X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Fregression.tc;h=025500a348e1424ece9c0c1a5b8f5d8438935a12;hp=7d170e08abd35d07dabacfcdb6fdd80ea04c17e8;hb=842f3c9b981b35721bb50d49e85c11085b2040a3;hpb=ebb5fe5647046306f415e31e4967b23169c9004e diff --git a/tests/regression.tc b/tests/regression.tc index 7d170e0..025500a 100644 --- a/tests/regression.tc +++ b/tests/regression.tc @@ -255,59 +255,59 @@ testcase { q ::= [a-z]++ => "q" } -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* +// +// +//}