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

diff --git a/tests/regression.tc b/tests/regression.tc
index 1197903..4b1b397 100644
--- a/tests/regression.tc
+++ b/tests/regression.tc
@@ -395,3 +395,21 @@ testcase "question mark" {
   Z = Z:: "a" "b"* "a"
   B = "b"
 }
+
+testcase "operator: ... " {
+  input "aaabbbaaa abababababa";
+  output "s:{C:{a a a b b b a a a} B:{a b a b a b a b a b a}}";
+  s:: = A " " A
+  A   = B > C
+  B:: = [ab]* &~ (... "bbb" ...)
+  C:: = [ab]*
+}
+
+testcase "operator: ~~" {
+  input "aaabbbaaa abababababa";
+  output "s:{C:{a a a b b b a a a} B:{a b a b a b a b a b a}}";
+  s:: = A " " A
+  A   = B > C
+  B:: = ~~(... "bbb" ...)
+  C:: = [ab]*
+}