This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/regop.t: improve test name
authorYves Orton <demerphq@gmail.com>
Wed, 19 Oct 2016 15:15:44 +0000 (17:15 +0200)
committerYves Orton <demerphq@gmail.com>
Wed, 19 Oct 2016 15:15:49 +0000 (17:15 +0200)
ext/re/t/regop.t

index f75e541..54a197b 100644 (file)
@@ -23,7 +23,7 @@ shift @tests
 plan( @tests + 2 + ( @strs - grep { !$_ or /^---/ } @strs ));
 
 is( scalar @tests, $NUM_SECTS,
-    "Expecting output for $NUM_SECTS patterns" );
+    "Expecting output for $NUM_SECTS patterns, got ". scalar(@tests) );
 ok( defined $out, 'regop.pl returned something defined' );
 
 $out ||= "";