This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/re/anyof.t: Fix test names
authorKarl Williamson <khw@cpan.org>
Fri, 13 Sep 2019 02:56:59 +0000 (20:56 -0600)
committerKarl Williamson <khw@cpan.org>
Sun, 15 Sep 2019 04:26:49 +0000 (22:26 -0600)
This previously duplicated some boiler plate in the test name

t/re/anyof.t

index b7656d6..eee7467 100644 (file)
@@ -877,8 +877,7 @@ while (defined (my $test = shift @tests)) {
                               [[:xdigit:]]{2} )? /x, $test_name);
         }
         else {
                               [[:xdigit:]]{2} )? /x, $test_name);
         }
         else {
-            is($result, $expected,
-               "Verify compilation of $test displays as $test_name");
+            is($result, $expected, $test_name);
         }
     }
 }
         }
     }
 }