diff options
Diffstat (limited to 'tcllib/support/devel/sak/test/shells.tcl')
-rw-r--r-- | tcllib/support/devel/sak/test/shells.tcl | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/tcllib/support/devel/sak/test/shells.tcl b/tcllib/support/devel/sak/test/shells.tcl new file mode 100644 index 0000000..09a1bc6 --- /dev/null +++ b/tcllib/support/devel/sak/test/shells.tcl @@ -0,0 +1,24 @@ +# -*- tcl -*- +# (C) 2006 Andreas Kupries <andreas_kupries@users.sourceforge.net> +## +# ### + +package require sak::test +package require sak::test::shell +namespace eval ::sak::test::shells {} + +# ### + +proc ::sak::test::shells {argv} { + if {[llength $argv]} { + sak::test::usage Wrong # args + } + + puts stdout [join [sak::test::shell::list] \n] + return +} + +## +# ### + +package provide sak::test::shells 1.0 |