X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Fregression.tc;h=c2206eecd9762327bd76ed8aa212579a9f877ebd;hp=a713405e289e0959dffdb2a1dd76d2e4e184bb8f;hb=6c2a17e674b32389d281261796e9e962e9d9380c;hpb=7fbee73b4dd985cb5b217ed297710c00fd9d7004 diff --git a/tests/regression.tc b/tests/regression.tc index a713405..c2206ee 100644 --- a/tests/regression.tc +++ b/tests/regression.tc @@ -263,62 +263,62 @@ testcase { idl ::= [a-d] } -testcase { - - input " - - - while x>0 - while y>0 - foo() - bar() - - while x>0 - while y>0 - foo() - bar() - - -"; - output "smt:{while:{>:{{x} {0}} while:{>:{{y} {0}} sbb:{{f o o} {b a r}}}}}"; - output "smt:{while:{>:{{x} {0}} sbb:{while:{>:{{y} {0}} {f o o}} {b a r}}}}"; - -indent !::= ww -outdent !::= " " outdent " " - | " " (~[]*) "\n" - -any !::= ~[]* -s ::= any "\n\n" ww statement ww "\n\n" any => smt -ww !::= sp* -ws !::= sp** -sp ::= " " - -block ::= "\n" indent blockBody - &~ "\n" outdent ~[\ ] ~[]* - -blockBody ::= statement - > statement blockBody /ws => "sbb" - -statement ::= call - | ^"while" expr block /ws - -expr ::= ident - | call - | expr ^">" expr /ws - | num - -call ::= expr "()" /ws - -num ::= [0-9]++ - -ident ::= [a-z]++ &~ keyword -keyword ::= "if" | "then" | "else" | "while" - -w ::= " " | "\n" | "\r" -ws ::= w* - - -} +//testcase { +// +// input " +// +// +// while x>0 +// while y>0 +// foo() +// bar() +// +// while x>0 +// while y>0 +// foo() +// bar() +// +// +//"; +// output "smt:{while:{>:{{x} {0}} while:{>:{{y} {0}} sbb:{{f o o} {b a r}}}}}"; +// output "smt:{while:{>:{{x} {0}} sbb:{while:{>:{{y} {0}} {f o o}} {b a r}}}}"; +// +//indent !::= ww +//outdent !::= " " outdent " " +// | " " (~[]*) "\n" +// +//any !::= ~[]* +//s ::= any "\n\n" ww statement ww "\n\n" any => smt +//ww !::= sp* +//ws !::= sp** +//sp ::= " " +// +//block ::= "\n" indent blockBody +// &~ "\n" outdent ~[\ ] ~[]* +// +//blockBody ::= statement +// > statement blockBody /ws => "sbb" +// +//statement ::= call +// | ^"while" expr block /ws +// +//expr ::= ident +// | call +// | expr ^">" expr /ws +// | num +// +//call ::= expr "()" /ws +// +//num ::= [0-9]++ +// +//ident ::= [a-z]++ &~ keyword +//keyword ::= "if" | "then" | "else" | "while" +// +//w ::= " " | "\n" | "\r" +//ws ::= w* +// +// +//} testcase { input "aa bb";