[perl.git] branch blead, updated. v5.13.10-438-g6dd38c9

[Nicholas Clark]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/6dd38c9e18d1329b3326e9350e0dceb253c757b4?hp=178e9024261f3211ad53fe588199fa890a3dbd17>

- Log -----------------------------------------------------------------
commit 6dd38c9e18d1329b3326e9350e0dceb253c757b4
Author: Nicholas Clark <n...@ccl4.org>
Date:   Mon Mar 14 09:00:44 2011 +0000

    Convert t/re/subst_amp.t to test.pl, strict and warnings.
    
    This reduces the line count by about 25%.
    Also, remove the unneeded code to load Config, which is never referenced.
-----------------------------------------------------------------------

Summary of changes:
 t/re/subst_amp.t |   51 ++++++++++++++++++++-------------------------------
 1 files changed, 20 insertions(+), 31 deletions(-)

diff --git a/t/re/subst_amp.t b/t/re/subst_amp.t
index 7189572..f05d95d 100644
--- a/t/re/subst_amp.t
+++ b/t/re/subst_amp.t
@@ -1,75 +1,67 @@
-#!./perl
+#!./perl -w
 
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
-    require Config; import Config;
+    require './test.pl';
 }
 
-print "1..13\n";
+use strict;
 
 $_ = 'x' x 20; 
 s/\d*|x/<$&>/g; 
-$foo = '<>' . ('<x><>' x 20) ;
-print ($_ eq $foo ? "ok 1\n" : "not ok 1\n#'$_'\n#'$foo'\n");
+my $foo = '<>' . ('<x><>' x 20) ;
+is($_, $foo);
 
-$t = 'aaa';
+my $t = 'aaa';
 
 $_ = $t;
-@res = ();
+my @res;
 pos = 1;
 s/\Ga(?{push @res, $_, $`})/xx/g;
-print "not " unless "$_ @res" eq 'axxxx aaa a aaa aa';
-print "ok 2\n";
+is("$_ @res", 'axxxx aaa a aaa aa');
 
 $_ = $t;
 @res = ();
 pos = 1;
 s/\Ga(?{push @res, $_, $`})/x/g;
-print "not " unless "$_ @res" eq 'axx aaa a aaa aa';
-print "ok 3\n";
+is("$_ @res", 'axx aaa a aaa aa');
 
 $_ = $t;
 @res = ();
 pos = 1;
 s/\Ga(?{push @res, $_, $`})/xx/;
-print "not " unless "$_ @res" eq 'axxa aaa a';
-print "ok 4\n";
+is("$_ @res", 'axxa aaa a');
 
 $_ = $t;
 @res = ();
 pos = 1;
 s/\Ga(?{push @res, $_, $`})/x/;
-print "not " unless "$_ @res" eq 'axa aaa a';
-print "ok 5\n";
+is("$_ @res", 'axa aaa a');
 
 $a = $t;
 @res = ();
 pos ($a) = 1;
 $a =~ s/\Ga(?{push @res, $_, $`})/xx/g;
-print "#'$a' '@res'\nnot " unless "$a @res" eq 'axxxx aaa a aaa aa';
-print "ok 6\n";
+is("$a @res", 'axxxx aaa a aaa aa');
 
 $a = $t;
 @res = ();
 pos ($a) = 1;
 $a =~ s/\Ga(?{push @res, $_, $`})/x/g;
-print "#'$a' '@res'\nnot " unless "$a @res" eq 'axx aaa a aaa aa';
-print "ok 7\n";
+is("$a @res", 'axx aaa a aaa aa');
 
 $a = $t;
 @res = ();
 pos ($a) = 1;
 $a =~ s/\Ga(?{push @res, $_, $`})/xx/;
-print "#'$a' '@res'\nnot " unless "$a @res" eq 'axxa aaa a';
-print "ok 8\n";
+is("$a @res", 'axxa aaa a');
 
 $a = $t;
 @res = ();
 pos ($a) = 1;
 $a =~ s/\Ga(?{push @res, $_, $`})/x/;
-print "#'$a' '@res'\nnot " unless "$a @res" eq 'axa aaa a';
-print "ok 9\n";
+is("$a @res", 'axa aaa a');
 
 sub x2 {'xx'}
 sub x1 {'x'}
@@ -78,27 +70,24 @@ $a = $t;
 @res = ();
 pos ($a) = 1;
 $a =~ s/\Ga(?{push @res, $_, $`})/x2/ge;
-print "#'$a' '@res'\nnot " unless "$a @res" eq 'axxxx aaa a aaa aa';
-print "ok 10\n";
+is("$a @res", 'axxxx aaa a aaa aa');
 
 $a = $t;
 @res = ();
 pos ($a) = 1;
 $a =~ s/\Ga(?{push @res, $_, $`})/x1/ge;
-print "#'$a' '@res'\nnot " unless "$a @res" eq 'axx aaa a aaa aa';
-print "ok 11\n";
+is("$a @res", 'axx aaa a aaa aa');
 
 $a = $t;
 @res = ();
 pos ($a) = 1;
 $a =~ s/\Ga(?{push @res, $_, $`})/x2/e;
-print "#'$a' '@res'\nnot " unless "$a @res" eq 'axxa aaa a';
-print "ok 12\n";
+is("$a @res", 'axxa aaa a');
 
 $a = $t;
 @res = ();
 pos ($a) = 1;
 $a =~ s/\Ga(?{push @res, $_, $`})/x1/e;
-print "#'$a' '@res'\nnot " unless "$a @res" eq 'axa aaa a';
-print "ok 13\n";
+is("$a @res", 'axa aaa a');
 
+done_testing();

--
Perl5 Master Repository