Changeset 22062

Timestamp:

08/28/08 17:26:02 (3 months ago)

Author:

masak

Message:

[t/spec/S05-metasyntax/regex.t]
added tests for regex, token, and rule outside of grammars

Files:

• t/spec/S05-metasyntax/regex.t (modified) (2 diffs)

t/spec/S05-metasyntax/regex.t

@@ -2 +2 @@
 use Test;
 
-plan 11;
+plan 14;
 
 # L<S05/Regexes are now first-class language, not strings>
@@ -43 +43 @@
     lives_ok({regex baz {qux}}, 'regex foo {...} is valid');
 }
+
+#?rakudo skip 'rakudo cannot handle named regexes outside of grammars'
+{
+    regex alien { ET };
+    token archaeologist { Indiana };
+    rule food { pasta };
+
+    ok( 'ET phone home' ~~ alien, 'named regex outside of a grammar works' );
+    ok( 'Indiana has left the fridge' ~~ archaeologist,
+                                  'named token outside of a grammar works' );
+    ok( 'mmm, pasta' ~~ food,
+                                  'named tule outside of a grammar works' );
+}