summaryrefslogtreecommitdiffstats
path: root/tcllib/modules/grammar_fa/dexec.test
diff options
context:
space:
mode:
Diffstat (limited to 'tcllib/modules/grammar_fa/dexec.test')
-rw-r--r--tcllib/modules/grammar_fa/dexec.test45
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