This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Eliminate $::PatchId from t/re/*.t.
authorNicholas Clark <nick@ccl4.org>
Fri, 25 Feb 2011 16:35:06 +0000 (16:35 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 25 Feb 2011 16:35:06 +0000 (16:35 +0000)
It was only being used in four places across two files, to add perforce
revision numbers to test descriptions. Replace this with the git commit hash
in the tests' descriptions.

t/re/ReTest.pl
t/re/pat_advanced.t
t/re/pat_rt_report.t

index 5baa953..766065c 100644 (file)
@@ -15,7 +15,6 @@ use vars qw(
     $DiePattern
     $WarnPattern
     $BugId
-    $PatchId
     $running_as_thread
     $IS_ASCII
     $IS_EBCDIC
@@ -61,7 +60,7 @@ sub pretty {
 }
 
 sub safe_globals {
-    defined($_) and s/#/\\#/g for $BugId, $PatchId, $TODO;
+    defined($_) and s/#/\\#/g for $BugId, $TODO;
 }
 
 sub _ok {
@@ -70,7 +69,6 @@ sub _ok {
     safe_globals();
     $mess    = pretty ($mess // $Message);
     $mess   .= "; Bug $BugId"     if defined $BugId;
-    $mess   .= "; Patch $PatchId" if defined $PatchId;
     $mess   .= " # TODO $TODO"     if defined $TODO;
 
     my $line_nr = (caller(1)) [2];
index b8ac367..58966e7 100644 (file)
@@ -488,14 +488,14 @@ sub run_tests {
 
     {
         use charnames ':full';
-        local $PatchId = "13843";
         local $Message = "GREEK CAPITAL LETTER SIGMA vs " .
                          "COMBINING GREEK PERISPOMENI";
 
         my $SIGMA = "\N{GREEK CAPITAL LETTER SIGMA}";
         my $char  = "\N{COMBINING GREEK PERISPOMENI}";
 
-        may_not_warn sub {ok "_:$char:_" !~ m/_:$SIGMA:_/i};
+        may_not_warn sub {ok "_:$char:_" !~ m/_:$SIGMA:_/i},
+           'Did not warn [change a5961de5f4215b5c]';
     }
 
 
index d18e7ea..c5c530a 100644 (file)
@@ -210,8 +210,7 @@ sub run_tests {
 
     {
         local $BugId   = "20020124.005";
-        local $PatchId = "14795";
-        local $Message = "s///eg";
+        local $Message = "s///eg [change 13f46d054db22cf4]";
 
         for my $char ("a", "\x{df}", "\x{100}") {
             my $x = "$char b $char";
@@ -260,11 +259,10 @@ sub run_tests {
     }
 
     {
-        local $PatchId = '18179';
         my $s = "\x{100}" x 5;
         my $ok = $s =~ /(\x{100}{4})/;
         my ($ord, $len) = (ord $1, length $1);
-        ok $ok && $ord == 0x100 && $len == 4, "No panic: end_shift";
+        ok $ok && $ord == 0x100 && $len == 4, "No panic: end_shift [change 0e933229fa758625]";
     }
 
 
@@ -589,18 +587,17 @@ sub run_tests {
 
 
     {
-        local $PatchId = '26410';
         {
             package wooosh;
             sub gloople {"!"}
         }
         my $aeek = bless {} => 'wooosh';
         eval_ok sub {$aeek -> gloople () =~ /(.)/g},
-               "//g match against return value of sub";
+               "//g match against return value of sub [change e26a497577f3ce7b]";
 
         sub gloople {"!"}
         eval_ok sub {gloople () =~ /(.)/g},
-               "26410 didn't affect sub calls for some reason";
+               "change e26a497577f3ce7b didn't affect sub calls for some reason";
     }