X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Fregression.tc;h=cdad8315c69aec0b073e782755d30ae295679df6;hp=77af77193dc5646ba29fd34aa5764dd1124cd636;hb=225993309e6183afa9a88fc13d39df56be54b992;hpb=474037fe8463b96dfaf0209be157cbf5223a0910

diff --git a/tests/regression.tc b/tests/regression.tc
index 77af771..cdad831 100644
--- a/tests/regression.tc
+++ b/tests/regression.tc
@@ -20,6 +20,22 @@
 //}
 
 testcase {
+    input "aaaaa";
+    s = A
+    A = "a" s &~ "a" A
+      | "a" A &~ "a" S
+}
+
+testcase {
+    input  "a";
+    output "yes:{}";
+    s = A
+    A = "a" s &~ "a" A
+      | "a" A &~ "a" S
+      | ()
+}
+
+testcase {
     input "ab c";
     output "1:{{a b} {c}}";
 
@@ -300,7 +316,7 @@ any        = ~[]*
 s          = smt:: !ws statement !ws statement !ws
 
 block       =        !"\n" !indent  blockBody
-           &~        !"\n" !outdent !(~[\ ]) !(~[]*)
+           &~        !"\n" (" " !outdent " ") !(~[\ ]) !(~[]*)
 
 blockBody   =       statement
             > sbb:: statement ws blockBody