This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexp.t: print diagnostics with leading '#'
authorKarl Williamson <public@khwilliamson.com>
Thu, 22 Sep 2011 23:34:35 +0000 (17:34 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sat, 24 Sep 2011 22:11:22 +0000 (16:11 -0600)
Some test platforms don't like unexpected output without the comment
prefix character

t/re/regexp.t

index 9c430ad..815b877 100644 (file)
@@ -59,6 +59,11 @@ BEGIN {
 
 }
 
+sub _comment {
+    return map { /^#/ ? "$_\n" : "# $_\n" }
+           map { split /\n/ } @_;
+}
+
 use strict;
 use warnings FATAL=>"all";
 use vars qw($iters $numtests $bang $ffff $nulnul $OP);
@@ -175,7 +180,7 @@ EOFCODE
            next TEST;
        }
        elsif ($@) {
-           print "not ok $test$todo $input => error `$err'\n$code\n$@\n"; next TEST;
+           print "not ok $test$todo $input => error `$err'\n", _comment("$code\n$@\n"); next TEST;
        }
        elsif ($result =~ /^n/) {
            if ($match) { print "not ok $test$todo ($study) $input => false positive\n"; next TEST }
@@ -184,12 +189,12 @@ EOFCODE
            if (!$match || $got ne $expect) {
                eval { require Data::Dumper };
                if ($@) {
-                   print "not ok $test$todo ($study) $input => `$got', match=$match\n$code\n";
+                   print "not ok $test$todo ($study) $input => `$got', match=$match\n", _comment("$code\n");
                }
                else { # better diagnostics
                    my $s = Data::Dumper->new([$subject],['subject'])->Useqq(1)->Dump;
                    my $g = Data::Dumper->new([$got],['got'])->Useqq(1)->Dump;
-                   print "not ok $test$todo ($study) $input => `$got', match=$match\n$s\n$g\n$code\n";
+                   print "not ok $test$todo ($study) $input => `$got', match=$match\n", _comment("$s\n$g\n$code\n");
                }
                next TEST;
            }