projects
/
sbp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
checkpoint
[sbp.git]
/
tests
/
regression.tc
diff --git
a/tests/regression.tc
b/tests/regression.tc
index
60b4736
..
af600f3
100644
(file)
--- a/
tests/regression.tc
+++ b/
tests/regression.tc
@@
-329,8
+329,8
@@
testcase {
testcase {
input "abc ";
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" ~[]*
}
&~ ~[] "b" ~[]*
}
@@
-338,17
+338,24
@@
testcase {
input "abc ";
output "s:{a b c}";
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";
}
testcase {
input "a+2";
- output "";
+ output "Plus:{left:{Foo} right:{{2}}}";
s = Expr
Expr = [0-9]++
s = Expr
Expr = [0-9]++
- | Plus:: left:Expra "+" right:Expr
+ | Plus:: (left::Expra) "+" (right::Expr)
Expra = Foo:: ("a" | "b")
}
Expra = Foo:: ("a" | "b")
}
+
+testcase {
+ input "aaaaa";
+ s = top:: z (q::"a"*) z
+ z = a:: "a"
+}
+