1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
# -*- tcl -*-
# General set of error cases regarding the number of arguments.
# -------------------------------------------------------------------------
# Testing the processing of PEG input in various forms.
foreach {k section} {
0 {}
1 -fused
2 -templated
3 -templated-fused
} {
TestFilesProcess $mytestdir ok peg_peg$section peg_peg-ast$section -> n label input data expected {
test pt-parse-peg-parse:${parseimpl}-rde:${rdeimpl}-stack:${stackimpl}-2.$k.$n "pt::parse::peg /text, $label$section, ok :- $input" -setup {
set p [pt::parse::peg]
} -body {
pt::ast print [$p parset $data]
} -cleanup {
$p destroy
} -result $expected
test pt-parse-peg-parse:${parseimpl}-rde:${rdeimpl}-stack:${stackimpl}-3.$k.$n "pt::parse::peg /file, $label$section, ok :- $input" -setup {
set p [pt::parse::peg]
set chan [open $input]
} -body {
pt::ast print [$p parse $chan]
} -cleanup {
close $chan
$p destroy
} -result $expected
}
}
#----------------------------------------------------------------------
unset n label input data expected
|
