X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Fregression.tc;h=33510182e1d2dcc8e10c45aafebbc3f63db2f897;hp=fba2786bd48a2ed5c97c617dee4fbb181443c712;hb=a8478f5ddfbfbc8d910d09f27163cbd55752d3b6;hpb=972303162555284f8066047d3caead8df139afd4

diff --git a/tests/regression.tc b/tests/regression.tc
index fba2786..3351018 100644
--- a/tests/regression.tc
+++ b/tests/regression.tc
@@ -408,3 +408,34 @@ testcase {
   WSB = () -> ~" "
       | WSB:: " "++
 }
+
+//testcase {
+//    input "aaaaaXaaaa";
+//    output "";
+//          s = ManyA &~ EndsWithZ
+//  EndsWithZ = Anything "Z"
+//      ManyA = () | "a" ManyA
+//   Anything = () | ("a" | "X" | "Z") Anything
+//}
+
+testcase {
+    input "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa";
+    output "";
+          s = ManyA
+      ManyA = ()
+            | A ManyA! & ManyAB
+          A = "a"
+     ManyAB = ()
+            | "a" ManyAB
+            | "b" ManyAB
+}
+
+testcase {
+  input "aaaaaaaa";
+  output "";
+  s = As & AAs
+  As = () | As "a"
+  AAs = () | AAs "aa"
+}
+
+