Re: [perl #39868] [CAGE] convert C NN; }> to C NN;>

Nuno Carvalho Mon, 21 Aug 2006 02:33:45 -0700

Hi again,

I've tried this patch again and fixed only one minor detail, here's
the log of what i did:


$ rm -rf t/
$ make realclean
$ svn up
(...)
Updated to revision 14291.
$ perl Configure.pl
$ make
$ make test 2>&1 | tee BEFORE_PATCH

[apply patch]

$ svn up
At revision 14291.
$ make test 2>&1 | tee AFTER_PATCH

[fix small issue]

$ svn up
At revision 14291.
$ make test 2>&1 | tee AFTER_FIX

$ diff -u BEFORE_PATCH AFTER_FIX
$

No diff for make test before applying patch and after fix, which could
show that it seems safe to apply patch. I've created a new patch file
with:

$ svn diff t/ > BEGIN-t.updated.patch

to solve the issue around one file that no longer exists and another
one that failed to patch because the file itself changed. You can find
the new patch attatched to this message.

Best regards,
./smash

Index: t/pmc/lexpad.t
===================================================================
--- t/pmc/lexpad.t	(revision 14291)
+++ t/pmc/lexpad.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -35,5 +35,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/random.t
===================================================================
--- t/pmc/random.t	(revision 14291)
+++ t/pmc/random.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/parrotobject.t
===================================================================
--- t/pmc/parrotobject.t	(revision 14291)
+++ t/pmc/parrotobject.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -36,5 +36,3 @@
 # '
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/parrotio.t
===================================================================
--- t/pmc/parrotio.t	(revision 14291)
+++ t/pmc/parrotio.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -33,5 +33,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/slice.t
===================================================================
--- t/pmc/slice.t	(revision 14291)
+++ t/pmc/slice.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 2;
 
 =head1 NAME
 
@@ -57,5 +57,3 @@
 1.000000
 OUT
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 2; }
Index: t/pmc/addrregistry.t
===================================================================
--- t/pmc/addrregistry.t	(revision 14291)
+++ t/pmc/addrregistry.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/unmanagedstruct.t
===================================================================
--- t/pmc/unmanagedstruct.t	(revision 14291)
+++ t/pmc/unmanagedstruct.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/retcontinuation.t
===================================================================
--- t/pmc/retcontinuation.t	(revision 14291)
+++ t/pmc/retcontinuation.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/parrotinterpreter.t
===================================================================
--- t/pmc/parrotinterpreter.t	(revision 14291)
+++ t/pmc/parrotinterpreter.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/parrotlibrary.t
===================================================================
--- t/pmc/parrotlibrary.t	(revision 14291)
+++ t/pmc/parrotlibrary.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/parrotthread.t
===================================================================
--- t/pmc/parrotthread.t	(revision 14291)
+++ t/pmc/parrotthread.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/sharedref.t
===================================================================
--- t/pmc/sharedref.t	(revision 14291)
+++ t/pmc/sharedref.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/scalar.t
===================================================================
--- t/pmc/scalar.t	(revision 14291)
+++ t/pmc/scalar.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/deleg_pmc.t
===================================================================
--- t/pmc/deleg_pmc.t	(revision 14291)
+++ t/pmc/deleg_pmc.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/default.t
===================================================================
--- t/pmc/default.t	(revision 14291)
+++ t/pmc/default.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/enumerate.t
===================================================================
--- t/pmc/enumerate.t	(revision 14291)
+++ t/pmc/enumerate.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -35,5 +35,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/version.t
===================================================================
--- t/pmc/version.t	(revision 14291)
+++ t/pmc/version.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/exception_handler.t
===================================================================
--- t/pmc/exception_handler.t	(revision 14291)
+++ t/pmc/exception_handler.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/csub.t
===================================================================
--- t/pmc/csub.t	(revision 14291)
+++ t/pmc/csub.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/parrotclass.t
===================================================================
--- t/pmc/parrotclass.t	(revision 14291)
+++ t/pmc/parrotclass.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/super.t
===================================================================
--- t/pmc/super.t	(revision 14291)
+++ t/pmc/super.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/vtablecache.t
===================================================================
--- t/pmc/vtablecache.t	(revision 14291)
+++ t/pmc/vtablecache.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/lexinfo.t
===================================================================
--- t/pmc/lexinfo.t	(revision 14291)
+++ t/pmc/lexinfo.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -35,5 +35,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/null.t
===================================================================
--- t/pmc/null.t	(revision 14291)
+++ t/pmc/null.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/pointer.t
===================================================================
--- t/pmc/pointer.t	(revision 14291)
+++ t/pmc/pointer.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/env.t
===================================================================
--- t/pmc/env.t	(revision 14291)
+++ t/pmc/env.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 12;
 use Parrot::Config;
 
 =head1 NAME
@@ -237,5 +237,3 @@
 OUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 12; }
Index: t/pmc/bound_nci.t
===================================================================
--- t/pmc/bound_nci.t	(revision 14291)
+++ t/pmc/bound_nci.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/continuation.t
===================================================================
--- t/pmc/continuation.t	(revision 14291)
+++ t/pmc/continuation.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/compiler.t
===================================================================
--- t/pmc/compiler.t	(revision 14291)
+++ t/pmc/compiler.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -34,5 +34,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/pmc/closure.t
===================================================================
--- t/pmc/closure.t	(revision 14291)
+++ t/pmc/closure.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 2;
 
 =head1 NAME
 
@@ -53,5 +53,3 @@
 We lived.
 OUTPUT
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 2; }
Index: t/dynpmc/perlenv.t
===================================================================
--- t/dynpmc/perlenv.t	(revision 14291)
+++ t/dynpmc/perlenv.t	(working copy)
@@ -7,7 +7,7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -41,5 +41,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/compilers/tge/basic.t
===================================================================
--- t/compilers/tge/basic.t	(revision 14291)
+++ t/compilers/tge/basic.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw(t . lib ../lib ../../lib ../../../lib);
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 3;
 
 
 =head1 NAME
@@ -106,6 +106,4 @@
 1
 OUT
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 3; }
 
Index: t/compilers/tge/grammar.t
===================================================================
--- t/compilers/tge/grammar.t	(revision 14291)
+++ t/compilers/tge/grammar.t	(working copy)
@@ -6,9 +6,8 @@
 use lib qw(t . lib ../lib ../../lib ../../../lib);
 
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 2;
 
-BEGIN { plan tests => 2; };
 
 =head1 NAME
 
Index: t/compilers/tge/parser.t
===================================================================
--- t/compilers/tge/parser.t	(revision 14291)
+++ t/compilers/tge/parser.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw(t . lib ../lib ../../lib ../../../lib);
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 2;
 
 
 =head1 NAME
@@ -88,5 +88,3 @@
 
 CODE
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 2; }
Index: t/compilers/pge/p6regex/syntax_errors.t
===================================================================
--- t/compilers/pge/p6regex/syntax_errors.t	(revision 14291)
+++ t/compilers/pge/p6regex/syntax_errors.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( t . lib ../lib ../../lib ../../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 5;
 use Parrot::Test::PGE;
 
 
@@ -40,5 +40,3 @@
 p6rule_throws(' :i a',
     qr/Too late for modifier/, 'whitespace before modifier', todo => 'not implemented');
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 5; }
Index: t/compilers/pge/p6regex/text_brk.t
===================================================================
--- t/compilers/pge/p6regex/text_brk.t	(revision 14291)
+++ t/compilers/pge/p6regex/text_brk.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( t . lib ../lib ../../lib ../../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 12;
 use Parrot::Test::PGE;
 
 
@@ -106,5 +106,3 @@
 p6rule_is  ('{ quoted "}" unbalanced quotes (`}}}"""}}}}`)} okay', $PTB);
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 12; }
Index: t/compilers/pge/p6regex/context.t
===================================================================
--- t/compilers/pge/p6regex/context.t	(revision 14291)
+++ t/compilers/pge/p6regex/context.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( t . lib ../lib ../../lib ../../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 20;
 use Parrot::Test::PGE;
 
 
@@ -329,5 +329,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 20; }
Index: t/compilers/pge/p6regex/subrules.t
===================================================================
--- t/compilers/pge/p6regex/subrules.t	(revision 14291)
+++ t/compilers/pge/p6regex/subrules.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( t . lib ../lib ../../lib ../../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 7;
 use Parrot::Test::PGE;
 
 
@@ -83,5 +83,3 @@
 
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 7; }
Index: t/compilers/pge/p6regex/builtins.t
===================================================================
--- t/compilers/pge/p6regex/builtins.t	(revision 14291)
+++ t/compilers/pge/p6regex/builtins.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( t . lib ../lib ../../lib ../../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 3;
 use Parrot::Test::PGE;
 
 
@@ -109,5 +109,3 @@
 OUTPUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 3; }
Index: t/compilers/pge/p6regex/closure.t
===================================================================
--- t/compilers/pge/p6regex/closure.t	(revision 14291)
+++ t/compilers/pge/p6regex/closure.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( t . lib ../lib ../../lib ../../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 6;
 use Parrot::Test::PGE;
 
 
@@ -62,5 +62,3 @@
      }}}} ghi",
     qr/357/, "PIR closure modifying match");
  
-# remember to change the number of tests :-)
-BEGIN { plan tests => 6; }
Index: t/compilers/pge/01-codestring.t
===================================================================
--- t/compilers/pge/01-codestring.t	(revision 14291)
+++ t/compilers/pge/01-codestring.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 7;
 
 =head1 NAME
 
@@ -140,6 +140,4 @@
     say "alpha, beta, W"
 OUTPUT
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 7; }
 
Index: t/compilers/pge/pge_globs.t
===================================================================
--- t/compilers/pge/pge_globs.t	(revision 14291)
+++ t/compilers/pge/pge_globs.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( t . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 22;
 use Parrot::Test::PGE;
 
 
@@ -142,5 +142,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 22; }
Index: t/compilers/pge/pge-hs.t
===================================================================
--- t/compilers/pge/pge-hs.t	(revision 14291)
+++ t/compilers/pge/pge-hs.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( t . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 
 =head1 NAME
@@ -45,5 +45,3 @@
 OUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/compilers/pge/03-optable.t
===================================================================
--- t/compilers/pge/03-optable.t	(revision 14291)
+++ t/compilers/pge/03-optable.t	(working copy)
@@ -5,10 +5,8 @@
 use warnings;
 use lib qw( t . lib ../lib ../../lib ../../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 35;
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 35; }
 
 optable_output_is('a', 'term:a',                    'Simple term');
 optable_output_is('a+b', 'infix:+(term:a, term:b)', 'Simple infix');
Index: t/compilers/pge/pge_util.t
===================================================================
--- t/compilers/pge/pge_util.t	(revision 14291)
+++ t/compilers/pge/pge_util.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( t . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 8;
 use Parrot::Test::PGE;
 
 
@@ -177,4 +177,3 @@
 -a-b-racad-a-b-ra
 OUT
 
-BEGIN { plan tests => 8; }
Index: t/compilers/pge/pge_examples.t
===================================================================
--- t/compilers/pge/pge_examples.t	(revision 14291)
+++ t/compilers/pge/pge_examples.t	(working copy)
@@ -7,7 +7,7 @@
 use lib qw( t . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 2;
 use Parrot::Test::PGE;
 
 
@@ -121,5 +121,3 @@
 OUT
 
 
-# remember to change the number of tests :-)
-BEGIN { plan tests => 2; }
Index: t/compilers/pge/02-match.t
===================================================================
--- t/compilers/pge/02-match.t	(revision 14291)
+++ t/compilers/pge/02-match.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 =head1 NAME
 
@@ -45,5 +45,4 @@
 hello world
 OUTPUT
 
-BEGIN { plan tests => 1; }
 
Index: t/library/parrotlib.t
===================================================================
--- t/library/parrotlib.t	(revision 14291)
+++ t/library/parrotlib.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( t . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 6;
 use Parrot::Config;
 
 
@@ -119,6 +119,4 @@
 =cut
 
 
-## remember to change the number of tests! :-)
-BEGIN { plan tests => 6; }
 
Index: t/library/streams.t
===================================================================
--- t/library/streams.t	(revision 14291)
+++ t/library/streams.t	(working copy)
@@ -6,7 +6,7 @@
 use lib qw( t . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 20;
 
 
 =head1 NAME
@@ -1485,6 +1485,4 @@
 }
 
 
-## remember to change the number of tests! :-)
-BEGIN { plan tests => 20; }
 
Index: t/library/md5.t
===================================================================
--- t/library/md5.t	(revision 14291)
+++ t/library/md5.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( t . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 6;
 
 
 =head1 NAME
@@ -821,6 +821,4 @@
 OUT
 
 
-## remember to change the number of tests! :-)
-BEGIN { plan tests => 6; }
 
Index: t/library/sort.t
===================================================================
--- t/library/sort.t	(revision 14291)
+++ t/library/sort.t	(working copy)
@@ -6,7 +6,7 @@
 use lib qw( t . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 9;
 
 
 =head1 NAME
@@ -441,6 +441,4 @@
 OUT
 
 
-## remember to change the number of tests! :-)
-BEGIN { plan tests => 9; }
 
Index: t/library/yaml_parser_syck.t
===================================================================
--- t/library/yaml_parser_syck.t	(revision 14291)
+++ t/library/yaml_parser_syck.t	(working copy)
@@ -6,7 +6,7 @@
 use lib qw( t . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 
 =head1 NAME
@@ -170,6 +170,4 @@
 =cut
 
 
-## remember to change the number of tests! :-)
-BEGIN { plan tests => 1; }
 
Index: t/library/data_escape.t
===================================================================
--- t/library/data_escape.t	(revision 14291)
+++ t/library/data_escape.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( t . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 22;
 
 
 =head1 NAME
@@ -282,7 +282,5 @@
 }
 
 
-## remember to change the number of tests! :-)
-BEGIN { plan tests => 22; }
 
 # vim: ft=imc :
Index: t/library/json.t
===================================================================
--- t/library/json.t	(revision 14291)
+++ t/library/json.t	(working copy)
@@ -6,7 +6,7 @@
 use lib qw( t . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 22;
 
 
 =head1 NAME
@@ -621,6 +621,4 @@
 }
 
 
-## remember to change the number of tests! :-)
-BEGIN { plan tests => 22; }
 
Index: t/library/pcre.t
===================================================================
--- t/library/pcre.t	(revision 14291)
+++ t/library/pcre.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( t . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 
 =head1 NAME
@@ -116,6 +116,4 @@
 };
 
 
-## remember to change the number of tests! :-)
-BEGIN { plan tests => 1; }
 
Index: t/library/dumper.t
===================================================================
--- t/library/dumper.t	(revision 14291)
+++ t/library/dumper.t	(working copy)
@@ -6,7 +6,7 @@
 use lib qw( t . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 26;
 
 
 =head1 NAME
@@ -967,5 +967,3 @@
 # pir_output_is(<<'CODE', <<'OUTPUT', "dumping FloatValArray PMC");
 
 
-## remember to change the number of tests! :-)
-BEGIN { plan tests => 26; }
Index: t/library/getopt_obj.t
===================================================================
--- t/library/getopt_obj.t	(revision 14291)
+++ t/library/getopt_obj.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( t . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 15;
 
 
 =head1 NAME
@@ -713,5 +713,4 @@
 
 =cut
 
-BEGIN { plan tests => 15; }
 
Index: t/op/00ff-dos.t
===================================================================
--- t/op/00ff-dos.t	(revision 14291)
+++ t/op/00ff-dos.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 2;
 
 
 =head1 NAME
@@ -35,6 +35,4 @@
 OUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 2; }
 
Index: t/op/spawnw.t
===================================================================
--- t/op/spawnw.t	(revision 14291)
+++ t/op/spawnw.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 7;
 
 
 =head1 NAME
@@ -169,6 +169,4 @@
 OUTPUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 7; }
 
Index: t/op/random.t
===================================================================
--- t/op/random.t	(revision 14291)
+++ t/op/random.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 
 =head1 NAME
@@ -34,6 +34,4 @@
 OUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
 
Index: t/op/globals.t
===================================================================
--- t/op/globals.t	(revision 14291)
+++ t/op/globals.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 11;
 
 
 =head1 NAME
@@ -163,5 +163,3 @@
 Ook...BANG!
 OUT
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 11; }
Index: t/op/jit.t
===================================================================
--- t/op/jit.t	(revision 14291)
+++ t/op/jit.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 62;
 
 
 =head1 NAME
@@ -1269,5 +1269,3 @@
 16
 OUTPUT
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 62; }
Index: t/op/trans.t
===================================================================
--- t/op/trans.t	(revision 14291)
+++ t/op/trans.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 21;
 use Math::Trig qw( tan sec atan asin acos asec cosh sinh tanh sech );
 
 
@@ -762,6 +762,4 @@
 0.015625
 OUTPUT
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 21; }
 
Index: t/op/stacks.t
===================================================================
--- t/op/stacks.t	(revision 14291)
+++ t/op/stacks.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 24;
 
 
 =head1 NAME
@@ -608,6 +608,4 @@
 ##############################
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 24; }
 
Index: t/op/gc.t
===================================================================
--- t/op/gc.t	(revision 14291)
+++ t/op/gc.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 22;
 
 
 =head1 NAME
@@ -786,6 +786,4 @@
 =cut
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 22; }
 
Index: t/op/string_cs.t
===================================================================
--- t/op/string_cs.t	(revision 14291)
+++ t/op/string_cs.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 51;
 use Parrot::Config;
 
 
@@ -844,6 +844,4 @@
 OUTPUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 51; }
 
Index: t/op/integer.t
===================================================================
--- t/op/integer.t	(revision 14291)
+++ t/op/integer.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 57;
 
 
 =head1 NAME
@@ -1382,6 +1382,4 @@
 OUTPUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 57; }
 
Index: t/op/string_cclass.t
===================================================================
--- t/op/string_cclass.t	(revision 14291)
+++ t/op/string_cclass.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 11;
 use Parrot::Config;
 
 
@@ -464,6 +464,4 @@
 OUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 11; }
 
Index: t/op/comp.t
===================================================================
--- t/op/comp.t	(revision 14291)
+++ t/op/comp.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 80;
 
 
 =head1 NAME
@@ -1335,6 +1335,4 @@
 OUTPUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 80; }
 
Index: t/op/interp.t
===================================================================
--- t/op/interp.t	(revision 14291)
+++ t/op/interp.t	(working copy)
@@ -6,7 +6,7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 6;
 
 
 =head1 NAME
@@ -131,5 +131,3 @@
 OUTPUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 6; }
Index: t/op/jitn.t
===================================================================
--- t/op/jitn.t	(revision 14291)
+++ t/op/jitn.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 14;
 
 
 =head1 NAME
@@ -336,5 +336,3 @@
 OUTPUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 14; }
Index: t/op/types.t
===================================================================
--- t/op/types.t	(revision 14291)
+++ t/op/types.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 3;
 
 
 =head1 NAME
@@ -92,6 +92,4 @@
 OUTPUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 3; }
 
Index: t/op/lexicals.t
===================================================================
--- t/op/lexicals.t	(revision 14291)
+++ t/op/lexicals.t	(working copy)
@@ -6,7 +6,7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 41;
 
 
 =head1 NAME
@@ -1094,5 +1094,3 @@
 42
 OUTPUT
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 41; }
Index: t/op/string.t
===================================================================
--- t/op/string.t	(revision 14291)
+++ t/op/string.t	(working copy)
@@ -6,7 +6,7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 160;
 use Parrot::Config;
 
 
@@ -2899,6 +2899,4 @@
 0
 OUT
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 160; }
 
Index: t/op/calling.t
===================================================================
--- t/op/calling.t	(revision 14291)
+++ t/op/calling.t	(working copy)
@@ -6,7 +6,7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 93;
 
 
 =head1 NAME
@@ -2412,6 +2412,4 @@
 OUTPUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 93 }
 
Index: t/op/basic.t
===================================================================
--- t/op/basic.t	(revision 14291)
+++ t/op/basic.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 23;
 
 
 =head1 NAME
@@ -229,6 +229,4 @@
 OUTPUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 23; }
 
Index: t/op/number.t
===================================================================
--- t/op/number.t	(revision 14291)
+++ t/op/number.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 57;
 
 
 =head1 NAME
@@ -1234,6 +1234,4 @@
 OUTPUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 57; }
 
Index: t/op/ifunless.t
===================================================================
--- t/op/ifunless.t	(revision 14291)
+++ t/op/ifunless.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 6;
 
 
 =head1 NAME
@@ -197,6 +197,4 @@
 OUTPUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 6; }
 
Index: t/op/hacks.t
===================================================================
--- t/op/hacks.t	(revision 14291)
+++ t/op/hacks.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 2;
 use Parrot::Config;
 use Config;
 
@@ -81,5 +81,3 @@
 }
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 2; }
Index: t/op/stringu.t
===================================================================
--- t/op/stringu.t	(revision 14291)
+++ t/op/stringu.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 25;
 use Parrot::Config;
 
 
@@ -382,6 +382,4 @@
 A\x00B\x00
 OUTPUT
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 25; }
 
Index: t/op/info.t
===================================================================
--- t/op/info.t	(revision 14291)
+++ t/op/info.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 
 =head1 NAME
@@ -35,5 +35,3 @@
 CODE
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/op/literal.t
===================================================================
--- t/op/literal.t	(revision 14291)
+++ t/op/literal.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 2;
 
 
 =head1 NAME
@@ -69,5 +69,3 @@
 OUTPUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 2; }
Index: t/op/time.t
===================================================================
--- t/op/time.t	(revision 14291)
+++ t/op/time.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 5;
 
 
 =head1 NAME
@@ -110,6 +110,4 @@
 CODE
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 5; }
 
Index: t/op/debuginfo.t
===================================================================
--- t/op/debuginfo.t	(revision 14291)
+++ t/op/debuginfo.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 6;
 
 
 =head1 NAME
@@ -161,6 +161,4 @@
 OUTPUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 6; }
 
Index: t/op/conv.t
===================================================================
--- t/op/conv.t	(revision 14291)
+++ t/op/conv.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 12;
 
 
 =head1 NAME
@@ -259,6 +259,4 @@
 OUTPUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 12; }
 
Index: t/op/bitwise.t
===================================================================
--- t/op/bitwise.t	(revision 14291)
+++ t/op/bitwise.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 26;
 use Parrot::Config;
 
 
@@ -504,6 +504,4 @@
 6
 OUTPUT
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 26; }
 
Index: t/op/00ff-unix.t
===================================================================
--- t/op/00ff-unix.t	(revision 14291)
+++ t/op/00ff-unix.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 1;
 
 
 =head1 NAME
@@ -32,5 +32,3 @@
 OUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 1; }
Index: t/op/arithmetics.t
===================================================================
--- t/op/arithmetics.t	(revision 14291)
+++ t/op/arithmetics.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test;
+use Parrot::Test tests => 26;
 
 
 =head1 NAME
@@ -884,6 +884,4 @@
 OUTPUT
 
 
-## remember to change the number of tests :-)
-BEGIN { plan tests => 26; }

Re: [perl #39868] [CAGE] convert C NN; }> to C NN;>

Reply via email to