From e4e607196cc89ddd00ce7ee29459a71f1aad42cd Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Mon, 12 Aug 2013 00:30:51 -0700 Subject: [PATCH] Test multiline links in diagnostics.t --- lib/diagnostics.t | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lib/diagnostics.t b/lib/diagnostics.t index 497caaa..a7e31e1 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; -- 2.7.4