projects
/
sbp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
fa1789c
)
update testcase grammar
author
adam
<adam@megacz.com>
Mon, 26 Mar 2007 05:54:34 +0000
(
01:54
-0400)
committer
adam
<adam@megacz.com>
Mon, 26 Mar 2007 05:54:34 +0000
(
01:54
-0400)
darcs-hash:
20070326055434
-5007d-
3f58e73e6d0b9e91f6d179127b77b2bc92df6210
.gz
tests/testcase.g
patch
|
blob
|
history
diff --git
a/tests/testcase.g
b/tests/testcase.g
index
2491600
..
35a36f1
100644
(file)
--- a/
tests/testcase.g
+++ b/
tests/testcase.g
@@
-1,9
+1,12
@@
#import meta.g as grammar
#import meta.g as grammar
+s = ws! (TestCases:: TestCase */ ws) ws!
+Input = "input" grammar.Quoted ";" /ws
+Output = "output" grammar.Quoted ";" /ws
+Outputs:: = Output */ ws
+TestCase:: = "testcase" grammar.Quoted "{"
+ Input
+ Outputs
+ (SubGrammar:: grammar.Grammar)
+ "}" /ws
ws = grammar.ws
ws = grammar.ws
-ts = ts:: ws! tests ws!
-tests = test */ ws
-test = tca:: "testcase" "{" input (o::(output +/ ws)) (grammaro::grammar.Grammar) "}" /ws
- | tcb:: "testcase" "{" input (grammaro::grammar.Grammar) "}" /ws
-output = "output" grammar.Quoted ";" /ws
-input = "input" grammar.Quoted ";" /ws