checkpoint
[sbp.git] / tests / regression.tc
index 5ef3edc..7626c55 100644 (file)
@@ -325,3 +325,18 @@ testcase {
 //}
 //
 
+
+testcase {
+    input "abc                         ";
+
+    s   ::= q " "* => s
+    q   ::= [a-z] [a-z] [a-z] => a3
+         &~ ~[] "b" ~[]*
+}
+
+testcase {
+    input "abc                         ";
+    output "s:{a b c}";
+
+    s   ::= [a-z] [a-z] [a-z] " "* => s
+}