##############################################################################
#   Modules Revision 3.0
#   Providing a flexible user environment
#
#   File:		modules.00-init/%M%
#   Revision:		%I%
#   First Edition:	95/12/06
#   Last Mod.:		%U%, %G%
#
#   Authors:		Jens Hamisch, Jens.Hamisch@Strawberry.COM
#
#   Description:	Testuite testsequence
#   Command:
#   Sub-Command:
#
#   Comment:	%C{
#			Check valid shell type.
#			
#			This test has to be run at a moment, when *NO*
#                       initialization (MODULEPATH !) is done in order to
#                       ensure well defined error-answers!
#		}C%
#
##############################################################################
#
# The following answers are to be expected in this testcase ...
#

set bad_shell	"$error_msgs: Unknown shell type '(\[^ \t\n'\]+)'"

#
# The tests
#

if { $verbose > 0 } {
    send_user "\tChecking user shells as arg 1 of modulecmd ...\n"
}

testouterr_cmd_re "ALL" "avail" "ERR" $err_nomodpath
testouterr_cmd_re "abc" "avail" "OK" $bad_shell

#
#  Clean up variables used in this test case
#

unset bad_shell
