Test multiline links in diagnostics.t

diff --git a/lib/diagnostics.t b/lib/diagnostics.t
index 497caaa..a7e31e1 100644 (file)
--- 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;