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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
##############################################################################
# Modules Revision 3.0
# Providing a flexible user environment
#
# File: modules.50-cmds/%M%
# Revision: %I%
# First Edition: 2006/02/21
# Last Mod.: %U%, %G%
#
# Authors: R.K. Owen, <rk@owen.sj.ca.us>
#
# Description: Testuite testsequence
# Command: load
# Modulefiles: break/4.0, break/6.0
# continue/4.0, continue/6.0
# Sub-Command:
#
# Comment: %C{
# Tries the Tcl "break" and "continue" used in
# a valid loop
# }C%
#
##############################################################################
skip_if_quick_mode
# ensure auto symbolic versions are not set for these tests
setenv_var MODULES_ADVANCED_VERSION_SPEC 0
set break4 "break/4.0"
set cont4 "continue/4.0"
set break6 "break/6.0"
set cont6 "continue/6.0"
set break4p "$modpath/$break4"
set cont4p "$modpath/$cont4"
set break6p "$modpath/$break6"
set cont6p "$modpath/$cont6"
#
# set up an empty environment
#
set module ""
set modulefile ""
setenv_loaded_module $module $modulefile
#
# load (break)
# For the different shells ...
#
set module "$break4"
set modulefile "$break4p"
lappend ans [list set _LMFILES_ $modulefile]
lappend ans [list set LOADEDMODULES $module]
lappend ans [list set testsuite4 9]
#
# The tests
#
test_cmd "ALL" "load $break4" $ans
#
# load (continue)
# For the different shells ...
#
set module "$cont4"
set modulefile "$cont4p"
set ans [list]
lappend ans [list set _LMFILES_ $modulefile]
lappend ans [list set LOADEDMODULES $module]
lappend ans [list set testsuite4 9]
#
# The tests
#
test_cmd "ALL" "load $cont4" $ans
#
# load (break called from loop within proc)
# For the different shells ...
#
set module "$break6"
set modulefile "$break6p"
set ans [list]
lappend ans [list set testsuite6 9]
lappend ans [list set _LMFILES_ $modulefile]
lappend ans [list set LOADEDMODULES $module]
#
# The tests
#
test_cmd "ALL" "load $break6" $ans
#
# load (continue called from loop within proc)
# For the different shells ...
#
set module "$cont6"
set modulefile "$cont6p"
set ans [list]
lappend ans [list set testsuite6 9]
lappend ans [list set _LMFILES_ $modulefile]
lappend ans [list set LOADEDMODULES $module]
#
# The tests
#
test_cmd "ALL" "load $cont6" $ans
#
# Cleanup
#
reset_test_env
|
