diff options
| author | Karl Williamson <khw@cpan.org> | 2020-02-19 09:47:16 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-02-19 18:45:57 -0700 |
| commit | 5522fd96a797ef2e8fe1cc39bc3b46cb29ff7920 (patch) | |
| tree | f53fe47595cbf65c62a4a3af8e9cf5f2326c66fb /t | |
| parent | 1a664e5570f9864ecabae58021baaa6b7004a42e (diff) | |
| download | perl-5522fd96a797ef2e8fe1cc39bc3b46cb29ff7920.tar.gz | |
t/re/reg_mesg.t: Emit diagnostics on some more failing tests
Diffstat (limited to 't')
| -rw-r--r-- | t/re/reg_mesg.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/t/re/reg_mesg.t b/t/re/reg_mesg.t index 5fea6fe579..9e8dc6d59e 100644 --- a/t/re/reg_mesg.t +++ b/t/re/reg_mesg.t @@ -868,8 +868,10 @@ for my $strict ("", "no warnings 'experimental::re_strict'; use re 'strict';") if ($this_default_on || grep { $_ =~ /\Q(?[/ } @expect ) { ok @warns > 0, "... and the warning is on by default"; } - else { - ok @warns == 0, "... and the warning is off by default"; + elsif (! (ok @warns == 0, + "... and the warning is off by default")) + { + diag("GOT\n" . join "\n", @warns); } } } |