lib/locale.t: Add omitted test cases

[perl5.git] / lib / diagnostics.t

diff --git a/lib/diagnostics.t b/lib/diagnostics.t
index 206d2a4..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 {
@@ -109,7 +109,7 @@ seek STDERR, 0,0;
 $warning = '';
 warn "Perl folding rules are not up-to-date for 0xA; please use the perlbug utility to report; in regex; marked by <-- HERE in m/\ <-- HERE q/";
 like $warning,
-    qr/regular expression folding rules/s,
+    qr/You used a regular expression with case-insensitive matching/s,
     '; works at the end of entries in perldiag.pod';
 
 # Differences in spaces in warnings (Why not be nice and accept them?)
@@ -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;