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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
##############################################################################
# Modules Revision 3.0
# Providing a flexible user environment
#
# File: modules.50-cmds/%M%
# Revision: %I%
# First Edition: 2001/11/05
# Last Mod.: %U%, %G%
#
# Authors: R.K. Owen, <rk@owen.sj.ca.us>
#
# Description: Testuite testsequence
# Command: load
# Modulefiles: break/1.0,
# break/2.0,
# break/3.0, break/5.0
# Sub-Command:
#
# Comment: %C{
# Tries the Tcl "break" to skip loading a module,
# but not affecting the other loaded modules.
# }C%
#
##############################################################################
set mod1 "break/1.0"
set mod2 "break/2.0"
set mod3 "break/3.0"
set mod5 "break/5.0"
set mod1p "$modpath/$mod1"
set mod2p "$modpath/$mod2"
set mod3p "$modpath/$mod3"
set mod5p "$modpath/$mod5"
#
# set up an empty environment
#
set module ""
set modulefile ""
setenv_loaded_module $module $modulefile
#
# load
# For the different shells ...
#
set module "$mod1:$mod3"
set modulefile "$mod1p:$mod3p"
lappend ans [list set testsuite3 yes]
lappend ans [list set LOADEDMODULES $module]
lappend ans [list set _LMFILES_ $modulefile]
lappend ans [list set testsuite1 yes]
lappend ans [list ERR]
#
# The tests
#
test_cmd_re "ALL" "load $mod1 $mod2 $mod3" $ans
# same test with break called from a proc
test_cmd_re "ALL" "load $mod1 $mod5 $mod3" $ans
#
# Cleanup
#
reset_test_env
|
