Test for RT #122891.

Raku · Nov 10, 2015 · db7683e · db7683e
1 parent 6f6e494
commit db7683e
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/S05-metachars/line-anchors.t b/S05-metachars/line-anchors.t
@@ -14,7 +14,7 @@ be valid perl6.
 
 # L<S05/New metacharacters/"^^ and $$ match line beginnings and endings">
 
-plan 23;
+plan 24;
 
 my $str = q{abc
 def
@@ -52,4 +52,8 @@ ok(   $str ~~ m/^abc$$\n^^d.*f$$\n^^ghi$/, 'All dot' );
         'error when quantifying $$';
 }
 
+# RT #122891
+#?rakudo.jvm todo 'NFG'
+nok "a\r\n" ~~ /^^\s*$$/, 'No accidental match of ^^\s$$ between \r and \n';
+
 # vim: ft=perl6