projects
/
sbp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added stuff to TibDoc
[sbp.git]
/
tests
/
regression.tc
diff --git
a/tests/regression.tc
b/tests/regression.tc
index
3204e6a
..
c359fa8
100644
(file)
--- a/
tests/regression.tc
+++ b/
tests/regression.tc
@@
-19,19
+19,22
@@
// s ::= () => s0
//}
// s ::= () => s0
//}
-//tibcase {
-// input "
-// hello
-// there
-// how
-// { are }
-//";
-//
-// s ::= ws S ws
-// ws !::= w*
-// S ::= { Hello }
-// Hello ::= "hello" { "there" "how" { "are" } }
-//}
+tibcase {
+ input
+"
+ hello
+ there
+ how
+ { are }
+";
+ output "yep:{are}";
+
+ s ::= { Hello } => "yep"
+ w ::= " " | "\n"
+ ws !::= w**
+ Hello ::= "hello" ws { "there" "how" { "are" } }
+}
+
testcase {
input "ab c";
testcase {
input "ab c";
@@
-59,11
+62,11
@@
testcase {
testcase {
input "aaabbbccc";
testcase {
input "aaabbbccc";
- output "";
+ output "ab";
s ::= ab & dc
s ::= ab & dc
- ab ::= a b
- dc ::= d c
+ ab ::= a b => ab
+ dc ::= d c => dc
a ::= "a" a | ()
b ::= "b" b "c" | ()
c ::= "c" c | ()
a ::= "a" a | ()
b ::= "b" b "c" | ()
c ::= "c" c | ()
@@
-74,8
+77,8
@@
testcase {
input "aaabbbbccc";
s ::= ab & dc
input "aaabbbbccc";
s ::= ab & dc
- ab !::= a b
- dc !::= d c
+ ab !::= a b => ab
+ dc !::= d c => dc
a ::= "a" a | ()
b ::= "b" b "c" | ()
c ::= "c" c | ()
a ::= "a" a | ()
b ::= "b" b "c" | ()
c ::= "c" c | ()
@@
-105,7
+108,7
@@
testcase {
testcase {
input "xbambambam";
testcase {
input "xbambambam";
- output "bam:{a bam:{a bam:{a x}}}";
+ output "bam:{a bam:{a bam:{a x:{x}}}}";
s ::= a s ^"bam"
s ::= ^"x"
s ::= a s ^"bam"
s ::= ^"x"
@@
-284,12
+287,12
@@
outdent !::= " " outdent " "
| " " ([~]*) "\n"
any !::= [~]*
| " " ([~]*) "\n"
any !::= [~]*
-s ::= !any "\n\n" !ww statement !ww "\n\n" !any => smt
-ww ::= sp*
+s ::= any "\n\n" ww statement ww "\n\n" any => smt
+ww !::= sp*
ws !::= sp**
sp ::= " "
ws !::= sp**
sp ::= " "
-block ::= "\n" !indent blockBody
+block ::= "\n" indent blockBody
&~ "\n" outdent [~\ ] [~]*
blockBody ::= statement
&~ "\n" outdent [~\ ] [~]*
blockBody ::= statement
@@
-315,3
+318,12
@@
ws ::= w*
}
}
+
+testcase {
+ input "aa bb";
+ output "{q:{{a a}} q:{{b b}}}";
+
+ s ::= q */ ws
+ ws ::= " "*
+ q ::= [a-z]+ !=> [a-z] => "q"
+}
\ No newline at end of file