1 files changed, 28 insertions, 0 deletions
diff --git a/tcllib/support/devel/sak/test/cmd.tcl b/tcllib/support/devel/sak/test/cmd.tcl
new file mode 100644
index 0000000..5622a16
--- /dev/null
+++ b/tcllib/support/devel/sak/test/cmd.tcl
@@ -0,0 +1,28 @@
+# -*- tcl -*-
+# Implementation of 'doc'.
+
+# Available variables
+# * argv  - Cmdline arguments
+# * base  - Location of sak.tcl = Top directory of Tcllib distribution
+# * cbase - Location of all files relevant to this command.
+# * sbase - Location of all files supporting the SAK.
+
+package require sak::util
+package require sak::test
+
+if {![llength $argv]} {
+    sak::test::usage Command missing
+}
+
+set cmd  [lindex $argv 0]
+set argv [lrange $argv 1 end]
+
+if {[catch {package require sak::test::$cmd} msg]} {
+    sak::test::usage Unknown command \"$cmd\" : \
+	    \n $::errorInfo
+}
+
+sak::test::$cmd $argv
+
+##
+# ###