test.tcl

Go to the documentation of this file.
00001 /*  -*- tcl -*-*/
00002 /*  (C) 2006 Andreas Kupries <andreas_kupries@users.sourceforge.net>*/
00003 /** 
00004  * ###
00005  */
00006 
00007 namespace ::sak::test {}
00008 
00009 /*  ###*/
00010 
00011 ret  ::sak::test::usage (type args) {
00012     package require sak::help
00013     puts stdout [join $args { }]\n[sak::help::on test]
00014     exit 1
00015 }
00016 
00017 /** 
00018  * ###
00019  */
00020 
00021 package provide sak::test 1.0
00022