From c0d3a21f46f3cadad5c0a3742b410670d83e10a4 Mon Sep 17 00:00:00 2001 From: Matthew Horsfall Date: Thu, 7 Jul 2011 23:58:03 -0400 Subject: Allow items in perldiag.pod to match warnings when they have periods at the end --- lib/diagnostics.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'lib/diagnostics.t') diff --git a/lib/diagnostics.t b/lib/diagnostics.t index dae2754b0d..1dc8ec3a57 100644 --- a/lib/diagnostics.t +++ b/lib/diagnostics.t @@ -5,7 +5,7 @@ BEGIN { @INC = 'lib'; } -use Test::More tests => 6; +use Test::More tests => 7; BEGIN { use_ok('diagnostics') } @@ -44,3 +44,8 @@ warn 'Code point 0x%X is not Unicode, may not be portable'; like $warning, qr/W utf8/, 'Message sharing its description with the following message'; +# Periods at end of entries in perldiag.pod get matched correctly +seek STDERR, 0,0; +$warning = ''; +warn "Execution of -e aborted due to compilation errors.\n"; +like $warning, qr/The final summary message/, 'Periods at end of line'; -- cgit v1.2.1