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
025f56e
..
26d81c7
100644
(file)
--- a/
tests/regression.tc
+++ b/
tests/regression.tc
@@
-1,6
+1,6
@@
//testcase {
// input "x";
//testcase {
// input "x";
-// output "a1:{x}";
+// output "a:{x}";
//
// s = a1:: a
// a = s1:: s
//
// s = a1:: a
// a = s1:: s
@@
-40,8
+40,8
@@
testcase {
output "1:{{a b} {c}}";
s = ids
output "1:{{a b} {c}}";
s = ids
- ids = "1":: id (" " ids &~ id !((~[])*))
- | "2":: id ( ids &~ id !((~[])*))
+ ids = "1":: id (" " ids &~ id ((~[])*)!)
+ | "2":: id ( ids &~ id ((~[])*)!)
| id
id = [a-z]++
}
| id
id = [a-z]++
}
@@
-292,10
+292,10
@@
ww = sp*
sp = " "
any = (~[])*
sp = " "
any = (~[])*
-s = smt:: !ws statement !ws statement !ws
+s = smt:: ws! statement ws! statement ws!
-block = !"\n" !indent blockBody
- &~ !"\n" (" " !outdent " ") !(~[\ ]) !((~[])*)
+block = "\n"! indent! blockBody
+ &~ "\n"! (" " outdent! " ") (~[\ ])! ((~[])*)!
blockBody = statement
> sbb:: statement ws blockBody
blockBody = statement
> sbb:: statement ws blockBody
@@
-326,7
+326,7
@@
testcase {
s = s2:: q " "*
q = a3:: [a-z] [a-z] [a-z]
s = s2:: q " "*
q = a3:: [a-z] [a-z] [a-z]
- &~ !(~[]) "b" !((~[])*)
+ &~ (~[])! "b" ((~[])*)!
}
testcase {
}
testcase {
@@
-364,7
+364,7
@@
testcase {
Expr = if:: "if" "(" Expr ")" IfBody /ws
| ident:: [a-z]++
IfBody = else:: Expr "else" Expr /ws
Expr = if:: "if" "(" Expr ")" IfBody /ws
| ident:: [a-z]++
IfBody = else:: Expr "else" Expr /ws
- | then:: Expr &~ ((~[])* "else" !Expr /ws)
+ | then:: Expr &~ ((~[])* "else" Expr! /ws)
ws = [ ]**
}
ws = [ ]**
}
@@
-390,3
+390,10
@@
testcase {
x = [123]
}
x = [123]
}
+
+//testcase {
+// input "ab";
+//
+// s = a:"a" b:"b"
+//}
+