X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Fregression.tc;h=1197903ef0c6d17694dd4087179ed10eff57d566;hp=92ffe1173e054c6190099d84eafa08c0415a8afb;hb=0c8e6b67673f47003a92c496a9d005ab7d5354fa;hpb=eef891a53c43901acccac0dead16a79dbdb34c77

diff --git a/tests/regression.tc b/tests/regression.tc
index 92ffe11..1197903 100644
--- a/tests/regression.tc
+++ b/tests/regression.tc
@@ -323,7 +323,7 @@ testcase "a+2" {
 
 testcase "unnamed" {
     input "aaaaa";
-    output "top:{a q:{a a a} a}";
+    output "top:{a q a}";
 
     s = top:: z (q::"a"*) z
     z = a:: "a"
@@ -385,3 +385,13 @@ testcase "unnamed" {
   As = () | As "a"
   AAs = () | AAs "aa"
 }
+
+testcase "question mark" {
+  input "aa aba abba";
+  output "s:{Y Y Z}";
+  s = s:: X " " X " " X
+  X = Y > Z
+  Y = Y:: "a" B? "a"
+  Z = Z:: "a" "b"* "a"
+  B = "b"
+}