test/cmd.tcl

Go to the documentation of this file.
00001 /*  -*- tcl -*-*/
00002 /*  Implementation of 'doc'.*/
00003 
00004 /*  Available variables*/
00005 /*  * argv  - Cmdline arguments*/
00006 /*  * base  - Location of sak.tcl = Topd directory of Tcllib distribution*/
00007 /*  * cbase - Location of all files relevant to this command.*/
00008 /*  * sbase - Location of all files supporting the SAK.*/
00009 
00010 package require sak::util
00011 package require sak::test
00012 
00013 if {![llength $argv]} {
00014     sak::test::usage Command missing
00015 }
00016 
00017  cmd =   [lindex $argv 0]
00018  argv =  [lrange $argv 1 end]
00019 
00020 if {[catch {package require sak::test::$cmd} msg]} {
00021     sak::test::usage Unknown command \"$cmd\" : \
00022         \n $::errorInfo
00023 }
00024 
00025 sak::test::$cmd $argv
00026 
00027 /** 
00028  * ###
00029