1# -*- tcl -*-
2# (C) 2006 Andreas Kupries <andreas_kupries@users.sourceforge.net>
3##
4# ###
5
6package require  sak::test
7package require  sak::test::shell
8namespace eval ::sak::test::shells {}
9
10# ###
11
12proc ::sak::test::shells {argv} {
13    if {[llength $argv]} {
14	sak::test::usage Wrong # args
15    }
16
17    puts stdout [join [sak::test::shell::list] \n]
18    return
19}
20
21##
22# ###
23
24package provide sak::test::shells 1.0
25