Author: particle
Date: Tue Feb 20 09:45:33 2007
New Revision: 17081
Modified:
trunk/t/distro/manifest_skip.t
Log:
[t]: fix skip test count
Modified: trunk/t/distro/manifest_skip.t
==============================================================================
--- trunk/t/distro/manifest_skip.t (original)
+++ trunk/t/distro/manifest_skip.t Tue Feb 20 09:45:33 2007
@@ -5,7 +5,7 @@
use strict;
use warnings;
use lib qw( . lib ../lib ../../lib );
-use Test::More;
+use Test::More tests => 2;
use Data::Dumper;
use File::Find qw(find);
@@ -34,7 +34,7 @@
# check that MANIFEST.SKIP is in sync with svn:ignore
# An new MANIFEST.SKIP can be generated with tools/dev/gen_manifest_skip.pl
- skip 'Not a working copy' => 3
+ skip 'Not a working copy' => 2
unless ( $Parrot::Revision::svn_entries || `svk ls .` );
diag "this may take a while...";
@@ -58,11 +58,11 @@
or diag("Files ignored by SVN but not in MANIFEST.SKIP:[EMAIL
PROTECTED]");
}
-# remember to change the number of tests :-)
-BEGIN { plan tests => 2; }
+
exit;
+
sub list_diff {
my ( $a, $b ) = @_;
@@ -74,6 +74,7 @@
[ sort grep { $elem{$_} > 0 } keys %elem ] );
}
+
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
