This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Eliminate the placeholder text 'Noname test'.
authorNicholas Clark <nick@ccl4.org>
Sat, 5 Mar 2011 06:23:18 +0000 (06:23 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 5 Mar 2011 20:26:09 +0000 (20:26 +0000)
It's no longer needed now that the migration from ReTest.pl's TAP generation
functions is completed.

t/re/pat_re_eval.t
t/re/pat_rt_report.t

index 981d959..0d04623 100644 (file)
@@ -178,7 +178,7 @@ sub run_tests {
             defined $_[0] ? $_[0] : "undef";
         };
 
-        like("123", qr/^(\d)(((??{1 + $^N})))+$/, "Noname test; Bug 56194");
+        like("123", qr/^(\d)(((??{1 + $^N})))+$/, 'Bug 56194');
 
         our @ctl_n;
         our @plus;
@@ -326,16 +326,18 @@ sub run_tests {
             my $str = join(", ", '$1 = '.$f->($1), '$2 = '.$f->($2), '$3 = '.$f->($3), '$4 = '.$f->($4),'$5 = '.$f->($5),'$^R = '.$f->($^R));
             push @ctl_n, $f->($^N);
             push @plus, $f->($+);
-            ok($match, "Noname test; Bug 56194");
+            ok($match, 'Bug 56194');
             if (not $match) {
                 # unset $str
                 @ctl_n = ();
                 @plus = ();
                 $str = "";
             }
-            is("@ctl_n", "1 2 undef", "Noname test; Bug 56194");
-            is("@plus", "1 2 undef", "Noname test; Bug 56194");
-            is($str, "\$1 = undef, \$2 = undef, \$3 = undef, \$4 = undef, \$5 = undef, \$^R = undef", "Noname test; Bug 56194");
+            is("@ctl_n", "1 2 undef", 'Bug 56194');
+            is("@plus", "1 2 undef", 'Bug 56194');
+            is($str,
+               "\$1 = undef, \$2 = undef, \$3 = undef, \$4 = undef, \$5 = undef, \$^R = undef",
+               'Bug 56194');
        }
     }
 
index db5a61e..a04d19c 100644 (file)
@@ -1050,9 +1050,7 @@ sub run_tests {
             '(?>) does not cause wrongness on long string; Bug 60034');
         my $b = $a . chr 256;
         chop $b;
-        {
-            is($a, $b, 'Noname test; Bug 60034');
-        }
+       is($a, $b, 'Bug 60034');
         like($b, qr/\A(?>[a-z])*\z/,
             '(?>) does not cause wrongness on long string with UTF-8; Bug 60034');
     }