X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/2dc78664124f51814246e5b3da10c8a9f5fe2726..17a3df4c6a07533e2c03c46fdd27e3ee295d61d0:/t/lib/warnings/toke

diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke
index 5468ef0..425b613 100644
--- a/t/lib/warnings/toke
+++ b/t/lib/warnings/toke
@@ -739,10 +739,10 @@ dump() better written as CORE::dump() at - line 4.
 # toke.c
 use warnings 'misc';
 use subs qw/dump/;
-sub dump { print "no warning for overriden dump\n"; }
+sub dump { print "no warning for overridden dump\n"; }
 dump;
 EXPECT
-no warning for overriden dump
+no warning for overridden dump
 ########
 # toke.c
 use warnings 'ambiguous';
@@ -940,3 +940,19 @@ Use of ?PATTERN? without explicit operator is deprecated at - line 4.
 yes
 no
 no
+########
+# toke.c
+use warnings;
+my $a = "\c{ack}";
+$a = "\c,";
+$a = "\c`";
+no warnings 'syntax';
+$a = "\c{ack}";
+$a = "\c,";
+$a = "\c`";
+no warnings 'deprecated';
+EXPECT
+"\c{" is deprecated and is more clearly written as ";" at - line 3.
+"\c," is more clearly written simply as "l" at - line 4.
+"\c`" is more clearly written simply as "\ " at - line 5.
+"\c{" is deprecated and is more clearly written as ";" at - line 7.