1 files changed, 72 insertions, 0 deletions
diff --git a/tcllib/modules/struct/graph/tests/Xcontrol b/tcllib/modules/struct/graph/tests/Xcontrol
new file mode 100644
index 0000000..a08c0d0
--- /dev/null
+++ b/tcllib/modules/struct/graph/tests/Xcontrol
@@ -0,0 +1,72 @@
+# -*- tcl -*-
+# graph.testsuite:  tests for the graph structure.
+#
+# This file contains a collection of tests for one or more of the Tcl
+# built-in commands.  Sourcing this file into Tcl runs the tests and
+# generates output for errors.  No output means no errors were found.
+#
+# Copyright (c) 1998-2000 by Ajuba Solutions.
+# Copyright (c) 2006 Andreas Kupries <andreas_kupries@users.sourceforge.net>
+# All rights reserved.
+#
+# RCS: @(#) $Id: Xcontrol,v 1.3 2009/09/24 16:23:47 andreas_kupries Exp $
+
+# -------------------------------------------------------------------------
+
+set SELF [file dirname [info script]]
+
+# -------------------------------------------------------------------------
+
+source ${SELF}/Xsetup
+
+source ${SELF}/arcs.test
+source ${SELF}/assign.test
+source ${SELF}/command.test
+source ${SELF}/deserialize.test
+source ${SELF}/nodes.test
+source ${SELF}/rassign.test
+source ${SELF}/serialize.test
+source ${SELF}/swap.test
+source ${SELF}/walk.test
+
+source ${SELF}/arc/attr.test
+source ${SELF}/arc/delete.test
+source ${SELF}/arc/exists.test
+source ${SELF}/arc/flip.test
+source ${SELF}/arc/insert.test
+source ${SELF}/arc/move.test
+source ${SELF}/arc/move-source.test
+source ${SELF}/arc/move-target.test
+source ${SELF}/arc/rename.test
+source ${SELF}/arc/source.test
+source ${SELF}/arc/target.test
+source ${SELF}/arc/nodes.test
+source ${SELF}/arc/getweight.test
+source ${SELF}/arc/getunweighted.test
+source ${SELF}/arc/hasweight.test
+source ${SELF}/arc/setunweighted.test
+source ${SELF}/arc/setweight.test
+source ${SELF}/arc/unsetweight.test
+source ${SELF}/arc/weights.test
+
+source ${SELF}/node/attr.test
+source ${SELF}/node/degree.test
+source ${SELF}/node/delete.test
+source ${SELF}/node/exists.test
+source ${SELF}/node/insert.test
+source ${SELF}/node/opposite.test
+source ${SELF}/node/rename.test
+
+# Attribute handling, graph, arcs, nodes - mostly identical
+
+source ${SELF}/attr/Xsetup ; # Implementation independent - Move2 Xsupport?
+source ${SELF}/attr/append.test
+source ${SELF}/attr/get.test
+source ${SELF}/attr/getall.test
+source ${SELF}/attr/keyexists.test
+source ${SELF}/attr/keys.test
+source ${SELF}/attr/lappend.test
+source ${SELF}/attr/set.test
+source ${SELF}/attr/unset.test
+
+# -------------------------------------------------------------------------