X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Ftestcase.g;h=b25251d24a1e2616aa085099874f351e0ab137d1;hp=7245db8e82e7d779a82c3703805137b00457d9ee;hb=a61c67f0e574923f63bc939a79b5e9714a87a123;hpb=2a43edc3783a51c0ada2269835d833fa4ce8ab33 diff --git a/tests/testcase.g b/tests/testcase.g index 7245db8..b25251d 100644 --- a/tests/testcase.g +++ b/tests/testcase.g @@ -1,7 +1,12 @@ -ts ::= ws Ts ws => ts -Ts ::= Test* -ws !::= w* -Test ::= ^"testcase" "{" Input output+ Grammar "}" - | ^"testcase" "{" Input Grammar "}" -output ::= "output" quoted ";" / w* -Input ::= "input" quoted ";" +#import ../src/edu/berkeley/sbp/meta/meta.g as grammar +// this is a testx +s = ws! (TestCases:: TestCase */ ws) ws! +Input = "input" grammar.Quoted ";" /ws +Output = "output" grammar.Quoted ";" /ws +Outputs:: = Output */ ws +TestCase:: = "testcase" grammar.Quoted "{" + Input + (^"ignore output;" | Outputs) + (SubGrammar:: grammar.Grammar) + "}" /ws +ws = grammar.ws