X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Fregression.tc;h=0d4b8d405e17e6b071beec1d48d00f87a2e82c58;hp=6196b489c8ec134c32c9acf84395df4f17a8f561;hb=8633a1ff957ac9ccbafa5e897bc8b9f17eadab02;hpb=107df9a4aee6ba593b64d3bbe8b2efac84596cad diff --git a/tests/regression.tc b/tests/regression.tc index 6196b48..0d4b8d4 100644 --- a/tests/regression.tc +++ b/tests/regression.tc @@ -25,14 +25,14 @@ tibcase { hello there how - { are } + { are } "; output "yep"; s ::= { Hello } => "yep" w ::= " " | "\n" ws !::= w** - Hello ::= "hello" ws { ws "there" ws "how" ws { { "are" } ws } } + Hello ::= "hello" ws { "there" "how" { "are" } } } testcase { @@ -286,12 +286,12 @@ outdent !::= " " outdent " " | " " ([~]*) "\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 ::= " " -block ::= "\n" !indent blockBody +block ::= "\n" indent blockBody &~ "\n" outdent [~\ ] [~]* blockBody ::= statement