testcase {
input "abc ";
- s = q " "* => s
- q = [a-z] [a-z] [a-z] => a3
+ s = s2:: q " "*
+ q = a3:: [a-z] [a-z] [a-z]
&~ ~[] "b" ~[]*
}
input "abc ";
output "s:{a b c}";
- s = [a-z] [a-z] [a-z] " "* => s
+ s = s:: [a-z] [a-z] [a-z] " "*
}
testcase {
input "a+2";
- output "";
+ output "Plus:{left:{Foo} right:{{2}}}";
s = Expr
Expr = [0-9]++
- | Plus:: left:Expra "+" right:Expr
+ | Plus:: (left::Expra) "+" (right::Expr)
Expra = Foo:: ("a" | "b")
}
+
+testcase {
+ input "aaaaa";
+ s = top:: z (q::"a"*) z
+ z = a:: "a"
+}
+