diff options
author | Father Chrysostomos <sprout@cpan.org> | 2013-08-12 00:30:51 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2013-08-12 00:30:51 -0700 |
commit | e4e607196cc89ddd00ce7ee29459a71f1aad42cd (patch) | |
tree | e253e8f60bc619c494ece0c68ef579ca4f255bfc /lib/diagnostics.t | |
parent | 1056510898819175df3d068b87fd4541e6063b90 (diff) | |
download | perl-e4e607196cc89ddd00ce7ee29459a71f1aad42cd.tar.gz |
Test multiline links in diagnostics.t
Diffstat (limited to 'lib/diagnostics.t')
-rw-r--r-- | lib/diagnostics.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/diagnostics.t b/lib/diagnostics.t index 497caaa40a..a7e31e110f 100644 --- a/lib/diagnostics.t +++ b/lib/diagnostics.t @@ -4,7 +4,7 @@ BEGIN { chdir '..' if -d '../pod' && -d '../t'; @INC = 'lib'; require './t/test.pl'; - plan(24); + plan(25); } BEGIN { @@ -128,6 +128,14 @@ like $warning, qr/The whole warning/s, 'spaces in warnings with periods at the end are matched lightly'; +# Wrapped links +seek STDERR, 0,0; +$warning = ''; +warn "Argument \"%s\" treated as 0 in increment (++)"; +like $warning, + qr/Auto-increment.*Auto-decrement/s, + 'multiline links are not truncated'; + *STDERR = $old_stderr; |