diff options
| author | Karl Williamson <khw@cpan.org> | 2015-07-11 12:08:42 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-07-13 12:17:41 -0600 |
| commit | e68670aedff308b76d0c1076a6073146840fb322 (patch) | |
| tree | 44df1ae284710dc347faa1e697277397961a04af | |
| parent | 9100b351e15341ed12d22822713635b0e4e2237d (diff) | |
| download | perl-e68670aedff308b76d0c1076a6073146840fb322.tar.gz | |
uni/variables.t: Output unexpected warnings
This helps debug when the test fails.
| -rw-r--r-- | t/uni/variables.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/uni/variables.t b/t/uni/variables.t index d88dc8c205..e87e1f6de3 100644 --- a/t/uni/variables.t +++ b/t/uni/variables.t @@ -243,7 +243,9 @@ for ( 0x0 .. 0xff ) { splice @warnings, $i, 1 if $warnings[$i] =~ /is no longer supported/; } } - ok(@warnings == 0, " ... and doesn't generate any warnings"); + if (! ok(@warnings == 0, " ... and doesn't generate any warnings")) { + note join "\n", @warnings; + } $tests++; } elsif (! @warnings) { |