diff options
| author | Karl Williamson <khw@cpan.org> | 2016-11-20 07:56:40 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-11-24 08:29:14 -0700 |
| commit | 5c3356666e0c63b7bf654d7aa91c59d9c230ecba (patch) | |
| tree | eae359b7bae601ab81bf7b267cdb2465ce62eee5 /ext | |
| parent | cc25b9e2d291fedac80973dc493e321d31d3cb1a (diff) | |
| download | perl-5c3356666e0c63b7bf654d7aa91c59d9c230ecba.tar.gz | |
APItest/t/handy.t: Output details if test fails
There should be no warnings generated, but if there are, we want to see
what they were.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/XS-APItest/t/handy.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/XS-APItest/t/handy.t b/ext/XS-APItest/t/handy.t index b6eaa3e8cd..a85f701e99 100644 --- a/ext/XS-APItest/t/handy.t +++ b/ext/XS-APItest/t/handy.t @@ -453,6 +453,8 @@ foreach my $name (sort keys %to_properties) { } # This is primarily to make sure that no non-Unicode warnings get generated -is(scalar @warnings, 0, "No warnings were generated " . join ", ", @warnings); +unless (is(scalar @warnings, 0, "No warnings were generated")) { + diag @warnings; +} done_testing; |