Permalink
Browse files

add test for RT#83952

  • Loading branch information...
1 parent 4c65527 commit b14d48b29ac2a42d47c74ac5dd465c8f2a994c6f @coke coke committed Jan 13, 2014
Showing with 7 additions and 1 deletion.
  1. +7 −1 S02-literals/quoting.t
View
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan 155;
+plan 156;
my $foo = "FOO";
my $bar = "BAR";
@@ -576,6 +576,12 @@ is <<<\>'n'>>.join('|'), '<>|n', 'texas quotes edge case';
is "$x >> ", "42 >> ", '>> in interpolation is not shift operator';
}
+# RT #83952
+{
+ try { EVAL 'my $ya="\cIa"' };
+ my $error = ~$!;
+ ok $error ~~ / '\'I\' is not a valid number' /, "\\c followed by non-number";
+}
done;

0 comments on commit b14d48b

Please sign in to comment.