summaryrefslogtreecommitdiff
path: root/lib/diagnostics.t
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2013-08-12 00:30:51 -0700
committerFather Chrysostomos <sprout@cpan.org>2013-08-12 00:30:51 -0700
commite4e607196cc89ddd00ce7ee29459a71f1aad42cd (patch)
treee253e8f60bc619c494ece0c68ef579ca4f255bfc /lib/diagnostics.t
parent1056510898819175df3d068b87fd4541e6063b90 (diff)
downloadperl-e4e607196cc89ddd00ce7ee29459a71f1aad42cd.tar.gz
Test multiline links in diagnostics.t
Diffstat (limited to 'lib/diagnostics.t')
-rw-r--r--lib/diagnostics.t10
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;