diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-06-26 17:51:36 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-06-26 22:39:16 -0600 |
| commit | b0b90d2593e236a97dc84f1b1119699a33e42671 (patch) | |
| tree | 500bd403a756562d9afffedb4b703fbf04aa8372 /t | |
| parent | c448c12411b1ba5659a08b297155d18e37301885 (diff) | |
| download | perl-b0b90d2593e236a97dc84f1b1119699a33e42671.tar.gz | |
t/re/reg_mesg.t: Add diagnostic output on some failures
Diffstat (limited to 't')
| -rw-r--r-- | t/re/reg_mesg.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/re/reg_mesg.t b/t/re/reg_mesg.t index 56c7b554d6..a7da15a478 100644 --- a/t/re/reg_mesg.t +++ b/t/re/reg_mesg.t @@ -308,7 +308,12 @@ foreach my $ref (\@warning, \@experimental_regex_sets, \@deprecated) { } } foreach my $i (0 .. $count - 1) { - if (like($got[$i], qr/\Q$expect[$i]/, "... and gave expected warning[$i]")) { + if (! like($got[$i], qr/\Q$expect[$i]/, "... and gave expected warning")) { + chomp($got[$i]); + chomp($expect[$i]); + diag("GOT\n'$got[$i]'\nEXPECT\n'$expect[$i]'"); + } + else { ok (0 == capture_warnings(sub { $_ = "x"; eval "no warnings '$warning_type'; $regex;" } |