Test multi regex without proto regex

sorear · Apr 2, 2011 · 2eec5c9 · 2eec5c9
1 parent 58a9396
commit 2eec5c9
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/test2.pl b/test2.pl
@@ -61,6 +61,12 @@
     dies_ok { bar True }, "cannot pass wrong type";
 
     is "foo".$({ uc $_ }), "FOO", "contextualizer variables";
+
+    my grammar G19 {
+        multi token foo:a { x }
+        multi token foo:b { y }
+    }
+    ok "y" ~~ / :lang(G19) <foo> /, "can use multi regex without proto";
 }
 
 #is $?FILE, 'test.pl', '$?FILE works';