Tests for RT #126438.

Raku · Oct 27, 2015 · c49587f · c49587f
1 parent 7f43444
commit c49587f
Showing 1 changed file with 13 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 19;
+plan 23;
 
 my $str = q{abc
 def
@@ -40,4 +40,16 @@ ok(   $str ~~ m/ghi$$/, 'ghi EOL' );
 ok(   $str ~~ m/ghi$/, 'ghi EOS' );
 ok(   $str ~~ m/^abc$$\n^^d.*f$$\n^^ghi$/, 'All dot' );
 
+# RT #126438
+{
+    throws-like q[/ ^+ /], X::Syntax::Regex::NonQuantifiable,
+        'error when quantifying ^';
+    throws-like q[/ ^^+ /], X::Syntax::Regex::NonQuantifiable,
+        'error when quantifying ^^';
+    throws-like q[/ $+ /], X::Syntax::Regex::NonQuantifiable,
+        'error when quantifying $';
+    throws-like q[/ $$+ /], X::Syntax::Regex::NonQuantifiable,
+        'error when quantifying $$';
+}
+
 # vim: ft=perl6