add test for RT #120511, <?[\n]>

Raku · Aug 16, 2015 · c82bbd5 · c82bbd5
1 parent b007c41
commit c82bbd5
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/S05-metasyntax/charset.t b/S05-metasyntax/charset.t
@@ -12,7 +12,7 @@ be valid perl6.
 
 =end pod
 
-plan 41;
+plan 42;
 
 # Broken:
 # L<S05/Extensible metasyntax (C<< <...> >>)/"A leading [ ">
@@ -93,4 +93,10 @@ nok '^'   ~~ /  <[ \[ .. \] ]>    /, '... does not match outside its range';
      ok 'z' ~~ / <[a..z]-[x]> /, '... but others are fine';
 }
 
+# RT #120511
+{
+    is "\r\na" ~~ /<?[\n]>"\r\na"/, "\r\na",
+        'look-ahead with windows newline does not advance cursor position';
+}
+
 # vim: ft=perl6