diff options
Diffstat (limited to 'tcllib/modules/grammar_fa/dexec.test')
-rw-r--r-- | tcllib/modules/grammar_fa/dexec.test | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/tcllib/modules/grammar_fa/dexec.test b/tcllib/modules/grammar_fa/dexec.test new file mode 100644 index 0000000..463203c --- /dev/null +++ b/tcllib/modules/grammar_fa/dexec.test @@ -0,0 +1,45 @@ +# -*- tcl -*- +# dexec.test: tests for the grammar::fa::dexec - DFA executor class +# +# Copyright (c) 2004-2007 by Andreas Kupries <andreas_kupries@users.sourceforge.net> +# +# RCS: @(#) $Id: dexec.test,v 1.10 2007/04/12 03:43:14 andreas_kupries Exp $ + +# ------------------------------------------------------------------------- + +source [file join \ + [file dirname [file dirname [file join [pwd] [info script]]]] \ + devtools testutilities.tcl] + +testsNeedTcl 8.4 +testsNeedTcltest 1.0 + +support { + useAccel [useTcllibC] struct/sets.tcl struct::set + TestAccelInit struct::set + + use snit/snit.tcl snit ; # 1.1 always, even when Tcl 8.5 runs the testsuite. + use struct/list.tcl struct::list + + useLocal faop.tcl grammar::fa::op + useLocalKeep fa.tcl grammar::fa + + useLocalFile tests/Xsupport +} +testing { + useLocal dexec.tcl grammar::fa::dexec +} + +# ------------------------------------------------------------------------- + +set class ::grammar::fa::dexec + +# ------------------------------------------------------------------------- + +TestAccelDo struct::set setimpl { + TestFiles tests/de_*.test +} + +# ------------------------------------------------------------------------- +TestAccelExit struct::set +testsuiteCleanup |