X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=tests%2Fregression.tc;h=fba2786bd48a2ed5c97c617dee4fbb181443c712;hb=fb8694140dd9736855795e64a9bd4c3d50f7f2ea;hp=26d81c7a5e9e08a922bf87bf43a1802837d19efe;hpb=d643fa7e95ca16571a8621ded500abf0215fd5ae;p=sbp.git

diff --git a/tests/regression.tc b/tests/regression.tc
index 26d81c7..fba2786 100644
--- a/tests/regression.tc
+++ b/tests/regression.tc
@@ -397,3 +397,14 @@ testcase {
 //    s = a:"a" b:"b"
 //}
 
+
+testcase {
+    input "a c";
+    s = first::  A WSA B? WSB C
+    A = "a"
+    B = "b"
+    C = "c"
+  WSA = WSA:: " "**
+  WSB = () -> ~" "
+      | WSB:: " "++
+}