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
6dabcb2
..
a713405
100644
(file)
--- a/
tests/regression.tc
+++ b/
tests/regression.tc
@@
-41,8
+41,8
@@
testcase {
output "1:{{a b} {c}}";
s ::= ids
output "1:{{a b} {c}}";
s ::= ids
- ids ::= id (" " ids &~ id [~]*) => "1"
- | id ( ids &~ id [~]*) => "2"
+ ids ::= id (" " ids &~ id ~[]*) => "1"
+ | id ( ids &~ id ~[]*) => "2"
| id
id ::= [a-z]++
}
| id
id ::= [a-z]++
}
@@
-107,11
+107,12
@@
testcase {
}
testcase {
}
testcase {
- input "xbambambam";
+ input "qxbambambam";
output "bam:{a bam:{a bam:{a x:{x}}}}";
output "bam:{a bam:{a bam:{a x:{x}}}}";
- s ::= a s ^"bam"
- s ::= ^"x"
+ s ::= "q" z
+ z ::= a z ^"bam"
+ z ::= ^"x"
a ::= () => "a"
}
a ::= () => "a"
}
@@
-284,16
+285,16
@@
testcase {
indent !::= ww
outdent !::= " " outdent " "
indent !::= ww
outdent !::= " " outdent " "
- | " " ([~]*) "\n"
+ | " " (~[]*) "\n"
-any !::= [~]*
+any !::= ~[]*
s ::= any "\n\n" ww statement ww "\n\n" any => smt
ww !::= sp*
ws !::= sp**
sp ::= " "
block ::= "\n" indent blockBody
s ::= any "\n\n" ww statement ww "\n\n" any => smt
ww !::= sp*
ws !::= sp**
sp ::= " "
block ::= "\n" indent blockBody
- &~ "\n" outdent [~\ ] [~]*
+ &~ "\n" outdent ~[\ ] ~[]*
blockBody ::= statement
> statement blockBody /ws => "sbb"
blockBody ::= statement
> statement blockBody /ws => "sbb"