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

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:: " "++
+}