# -*- tcl -*-
# General set of error cases regarding the number of arguments.

# -------------------------------------------------------------------------

# Testing the processing of PEG input in various forms, using the PEG
# interpreter to handle the grammar.

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-peg-interp-rde:${rdeimpl}-stack:${stackimpl}-2.$k.$n "pt::peg::interp /text, $label$section, ok :- $input" -setup {
	    set g [pt::peg::container::peg]
	    set p [pt::peg::interp]
	    $p use $g
	} -body {
	    pt::ast print [$p parset $data]
	} -cleanup {
	    $g destroy
	    $p destroy
	} -result $expected

	test pt-peg-interp-rde:${rdeimpl}-stack:${stackimpl}-3.$k.$n "pt::peg::interp /file, $label$section, ok :- $input" -setup {
	    set g [pt::peg::container::peg]
	    set p [pt::peg::interp]
	    $p use $g
	    set chan [open $input]
	} -body {
	    pt::ast print [$p parse $chan]
	} -cleanup {
	    close $chan
	    $g destroy
	    $p destroy
	} -result $expected
    }
}

#----------------------------------------------------------------------
unset n label input data expected
