1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
##############################################################################
# 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} {
send_user "\tChecking user shells as arg 1 of modulecmd ...\n"
}
testouterr_cmd_re "ALL" "avail" "ERR" $err_nomodpath
testall_cmd_re "abc" "avail" "OK" $bad_shell 1
#
# Clean up variables used in this test case
#
unset bad_shell
|
