460-sticky.exp (modules-5.1.1.tar.bz2) | : | 460-sticky.exp (modules-5.2.0.tar.bz2) | ||
---|---|---|---|---|
skipping to change at line 56 | skipping to change at line 56 | |||
testouterr_cmd_re sh {purge} ERR $tserr | testouterr_cmd_re sh {purge} ERR $tserr | |||
testouterr_cmd_re sh {switch sticky} ERR [msg_switch {sticky/1.0 <S>} sticky $er r_stickyunload] | testouterr_cmd_re sh {switch sticky} ERR [msg_switch {sticky/1.0 <S>} sticky $er r_stickyunload] | |||
testouterr_cmd_re sh {switch sticky/1.0 foo} ERR [msg_switch {sticky/1.0 <S>} fo o $err_stickyunload] | testouterr_cmd_re sh {switch sticky/1.0 foo} ERR [msg_switch {sticky/1.0 <S>} fo o $err_stickyunload] | |||
testouterr_cmd_re sh {reload} $anslo {} | testouterr_cmd_re sh {reload} $anslo {} | |||
skip_if_quick_mode | skip_if_quick_mode | |||
set ans [list] | set ans [list] | |||
lappend ans [list set _LMFILES_ $mp/sticky/1.0:$mp/foo/2.0] | lappend ans [list set _LMFILES_ $mp/foo/2.0] | |||
lappend ans [list set LOADEDMODULES sticky/1.0:foo/2.0] | lappend ans [list set LOADEDMODULES foo/2.0] | |||
lappend ans [list ERR] | lappend ans [list unset __MODULES_LMTAG] | |||
set tserr [msg_unload {sticky/1.0 <S>} $err_stickyunload]\n\n[msg_load foo/2.0] | set tserr [msg_unload {sticky/1.0 <S>}]\n[msg_load foo/2.0] | |||
testouterr_cmd_re sh {restore testsuite/home/coll-sticky-0} $ans $tserr | testouterr_cmd_re sh {restore testsuite/home/coll-sticky-0} $ans $tserr | |||
set ans [list] | set ans [list] | |||
lappend ans [list set _LMFILES_ $mp/foo/2.0:$mp/sticky/1.0] | lappend ans [list set _LMFILES_ $mp/foo/2.0:$mp/sticky/1.0] | |||
lappend ans [list set LOADEDMODULES foo/2.0:sticky/1.0] | lappend ans [list set LOADEDMODULES foo/2.0:sticky/1.0] | |||
lappend ans [list set __MODULES_LMTAG sticky/1.0&sticky] | lappend ans [list set __MODULES_LMTAG sticky/1.0&sticky] | |||
testouterr_cmd_re sh {restore testsuite/home/coll-sticky-1} $ans [msg_unload {st icky/1.0 <S>}]\n[msg_load foo/2.0]\n[msg_load {sticky/1.0 <S>}] | testouterr_cmd_re sh {restore testsuite/home/coll-sticky-1} $ans [msg_unload {st icky/1.0 <S>}]\n[msg_load foo/2.0]\n[msg_load {sticky/1.0 <S>}] | |||
# force commands | # force commands | |||
set ansun [list] | set ansun [list] | |||
skipping to change at line 89 | skipping to change at line 89 | |||
lappend ans [list set LOADEDMODULES foo/2.0] | lappend ans [list set LOADEDMODULES foo/2.0] | |||
lappend ans [list unset __MODULES_LMTAG] | lappend ans [list unset __MODULES_LMTAG] | |||
testouterr_cmd_re sh {switch -f sticky/1.0 foo} $ans [msg_unload {sticky/1.0 <S> } $err_stickyunloadf] | testouterr_cmd_re sh {switch -f sticky/1.0 foo} $ans [msg_unload {sticky/1.0 <S> } $err_stickyunloadf] | |||
testouterr_cmd_re sh {reload -f} $anslo {} | testouterr_cmd_re sh {reload -f} $anslo {} | |||
set ans [list] | set ans [list] | |||
lappend ans [list set _LMFILES_ $mp/foo/2.0] | lappend ans [list set _LMFILES_ $mp/foo/2.0] | |||
lappend ans [list set LOADEDMODULES foo/2.0] | lappend ans [list set LOADEDMODULES foo/2.0] | |||
lappend ans [list unset __MODULES_LMTAG] | lappend ans [list unset __MODULES_LMTAG] | |||
set tserr [msg_unload {sticky/1.0 <S>} $err_stickyunloadf]\n\n[msg_load foo/2.0] | set tserr [msg_unload {sticky/1.0 <S>}]\n[msg_load foo/2.0] | |||
testouterr_cmd_re sh {restore -f testsuite/home/coll-sticky-0} $ans $tserr | testouterr_cmd_re sh {restore -f testsuite/home/coll-sticky-0} $ans $tserr | |||
set ans [list] | set ans [list] | |||
lappend ans [list set _LMFILES_ $mp/foo/2.0:$mp/sticky/1.0] | lappend ans [list set _LMFILES_ $mp/foo/2.0:$mp/sticky/1.0] | |||
lappend ans [list set LOADEDMODULES foo/2.0:sticky/1.0] | lappend ans [list set LOADEDMODULES foo/2.0:sticky/1.0] | |||
lappend ans [list set __MODULES_LMTAG sticky/1.0&sticky] | lappend ans [list set __MODULES_LMTAG sticky/1.0&sticky] | |||
testouterr_cmd_re sh {restore -f testsuite/home/coll-sticky-1} $ans [msg_unload {sticky/1.0 <S>}]\n[msg_load foo/2.0]\n[msg_load {sticky/1.0 <S>}] | testouterr_cmd_re sh {restore -f testsuite/home/coll-sticky-1} $ans [msg_unload {sticky/1.0 <S>}]\n[msg_load foo/2.0]\n[msg_load {sticky/1.0 <S>}] | |||
# test with multiple module loaded, one is sticky | # test with multiple module loaded, one is sticky | |||
setenv_loaded_module [list foo/2.0 sticky/1.0 bar/2.0] [list $mp/foo/2.0 $mp/sti cky/1.0 $mp/bar/2.0] | setenv_loaded_module [list foo/2.0 sticky/1.0 bar/2.0] [list $mp/foo/2.0 $mp/sti cky/1.0 $mp/bar/2.0] | |||
skipping to change at line 144 | skipping to change at line 144 | |||
set ans [list] | set ans [list] | |||
lappend ans [list set _LMFILES_ $mp/sticky/1.0:$mp/foo/2.0] | lappend ans [list set _LMFILES_ $mp/sticky/1.0:$mp/foo/2.0] | |||
lappend ans [list set LOADEDMODULES sticky/1.0:foo/2.0] | lappend ans [list set LOADEDMODULES sticky/1.0:foo/2.0] | |||
lappend ans [list set __MODULES_LMTAG sticky/1.0&sticky] | lappend ans [list set __MODULES_LMTAG sticky/1.0&sticky] | |||
set tserr [msg_unload bar/2.0]\n[msg_unload {sticky/1.0 <S>}]\n[msg_unload foo/2 .0]\n[msg_load {sticky/1.0 <S>}]\n[msg_load foo/2.0] | set tserr [msg_unload bar/2.0]\n[msg_unload {sticky/1.0 <S>}]\n[msg_unload foo/2 .0]\n[msg_load {sticky/1.0 <S>}]\n[msg_load foo/2.0] | |||
testouterr_cmd_re sh {restore testsuite/home/coll-sticky-2} $ans $tserr | testouterr_cmd_re sh {restore testsuite/home/coll-sticky-2} $ans $tserr | |||
testouterr_cmd_re sh {restore -f testsuite/home/coll-sticky-2} $ans $tserr | testouterr_cmd_re sh {restore -f testsuite/home/coll-sticky-2} $ans $tserr | |||
set ans [list] | set ans [list] | |||
lappend ans [list set LOADEDMODULES sticky/1.0:sticky/4.0:foo/2.0] | ||||
lappend ans [list set _LMFILES_ $mp/sticky/1.0:$mp/sticky/4.0:$mp/foo/2.0] | ||||
lappend ans [list ERR] | ||||
set tserr [msg_unload bar/2.0]\n\n[msg_unload {sticky/1.0 <S>} $err_stickyunload | ||||
]\n\n[msg_unload foo/2.0]\n[msg_load sticky/4.0]\n[msg_load foo/2.0] | ||||
testouterr_cmd_re sh {restore testsuite/home/coll-sticky-3} $ans $tserr | ||||
set ans [list] | ||||
lappend ans [list set _LMFILES_ $mp/sticky/4.0:$mp/foo/2.0] | lappend ans [list set _LMFILES_ $mp/sticky/4.0:$mp/foo/2.0] | |||
lappend ans [list set LOADEDMODULES sticky/4.0:foo/2.0] | lappend ans [list set LOADEDMODULES sticky/4.0:foo/2.0] | |||
lappend ans [list unset __MODULES_LMTAG] | lappend ans [list unset __MODULES_LMTAG] | |||
set tserr [msg_unload bar/2.0]\n\n[msg_unload {sticky/1.0 <S>} $err_stickyunload | set tserr [msg_unload bar/2.0]\n[msg_unload {sticky/1.0 <S>}]\n[msg_unload foo/2 | |||
f]\n\n[msg_unload foo/2.0]\n[msg_load sticky/4.0]\n[msg_load foo/2.0] | .0]\n[msg_load sticky/4.0]\n[msg_load foo/2.0] | |||
testouterr_cmd_re sh {restore testsuite/home/coll-sticky-3} $ans $tserr | ||||
testouterr_cmd_re sh {restore -f testsuite/home/coll-sticky-3} $ans $tserr | testouterr_cmd_re sh {restore -f testsuite/home/coll-sticky-3} $ans $tserr | |||
# test over *Dependency Reload* mechanism | # test over *Dependency Reload* mechanism | |||
setenv_var TESTSUITE_STICKY_DEP 1 | setenv_var TESTSUITE_STICKY_DEP 1 | |||
setenv_loaded_module [list foo/2.0 sticky/1.0 bar/2.0] [list $mp/foo/2.0 $mp/sti cky/1.0 $mp/bar/2.0] | setenv_loaded_module [list foo/2.0 sticky/1.0 bar/2.0] [list $mp/foo/2.0 $mp/sti cky/1.0 $mp/bar/2.0] | |||
setenv_var __MODULES_LMTAG sticky/1.0&sticky | setenv_var __MODULES_LMTAG sticky/1.0&sticky | |||
setenv_var __MODULES_LMPREREQ sticky/1.0&foo|baz:bar/2.0&sticky/1.0 | setenv_var __MODULES_LMPREREQ sticky/1.0&foo|baz:bar/2.0&sticky/1.0 | |||
set ans [list] | set ans [list] | |||
lappend ans [list set __MODULES_LMPREREQ sticky/1.0&foo|baz:bar/2.0&sticky/1.0] | lappend ans [list set __MODULES_LMPREREQ sticky/1.0&foo|baz:bar/2.0&sticky/1.0] | |||
skipping to change at line 321 | skipping to change at line 316 | |||
set ans [list] | set ans [list] | |||
lappend ans [list set _LMFILES_ $mp/stickysub/dir2/4.0] | lappend ans [list set _LMFILES_ $mp/stickysub/dir2/4.0] | |||
lappend ans [list set LOADEDMODULES stickysub/dir2/4.0] | lappend ans [list set LOADEDMODULES stickysub/dir2/4.0] | |||
lappend ans [list unset __MODULES_LMTAG] | lappend ans [list unset __MODULES_LMTAG] | |||
set tserr [msg_unload {stickysub/dir1/1.0 <S>} $err_stickyunloadf] | set tserr [msg_unload {stickysub/dir1/1.0 <S>} $err_stickyunloadf] | |||
testouterr_cmd_re sh {switch -f stickysub} $ans $tserr | testouterr_cmd_re sh {switch -f stickysub} $ans $tserr | |||
testouterr_cmd_re sh {switch -f stickysub/dir2} $ans $tserr | testouterr_cmd_re sh {switch -f stickysub/dir2} $ans $tserr | |||
set ans [list] | set ans [list] | |||
lappend ans [list set _LMFILES_ $mp/stickysub/dir1/1.0:$mp/stickysub/dir2/4.0:$m | ||||
p/foo/2.0] | ||||
lappend ans [list set LOADEDMODULES stickysub/dir1/1.0:stickysub/dir2/4.0:foo/2. | ||||
0] | ||||
lappend ans [list ERR] | ||||
set tserr [msg_unload {stickysub/dir1/1.0 <S>} $err_stickyunload]\n\n[msg_load s | ||||
tickysub/dir2/4.0]\n[msg_load foo/2.0] | ||||
testouterr_cmd_re sh {restore testsuite/home/coll-sticky-6} $ans $tserr | ||||
set ans [list] | ||||
lappend ans [list set _LMFILES_ $mp/stickysub/dir2/4.0:$mp/foo/2.0] | lappend ans [list set _LMFILES_ $mp/stickysub/dir2/4.0:$mp/foo/2.0] | |||
lappend ans [list set LOADEDMODULES stickysub/dir2/4.0:foo/2.0] | lappend ans [list set LOADEDMODULES stickysub/dir2/4.0:foo/2.0] | |||
lappend ans [list unset __MODULES_LMTAG] | lappend ans [list unset __MODULES_LMTAG] | |||
set tserr [msg_unload {stickysub/dir1/1.0 <S>} $err_stickyunloadf]\n\n[msg_load | set tserr [msg_unload {stickysub/dir1/1.0 <S>}]\n[msg_load stickysub/dir2/4.0]\n | |||
stickysub/dir2/4.0]\n[msg_load foo/2.0] | [msg_load foo/2.0] | |||
testouterr_cmd_re sh {restore testsuite/home/coll-sticky-6} $ans $tserr | ||||
testouterr_cmd_re sh {restore -f testsuite/home/coll-sticky-6} $ans $tserr | testouterr_cmd_re sh {restore -f testsuite/home/coll-sticky-6} $ans $tserr | |||
setenv_var TESTSUITE_STICKY_GENERIC 3 | setenv_var TESTSUITE_STICKY_GENERIC 3 | |||
set tserr [msg_switch {stickysub/dir1/1.0 <S>} stickysub $err_stickyunload] | set tserr [msg_switch {stickysub/dir1/1.0 <S>} stickysub $err_stickyunload] | |||
testouterr_cmd_re sh {switch stickysub} ERR $tserr | testouterr_cmd_re sh {switch stickysub} ERR $tserr | |||
set ans [list] | set ans [list] | |||
lappend ans [list set _LMFILES_ $mp/stickysub/dir2/4.0] | lappend ans [list set _LMFILES_ $mp/stickysub/dir2/4.0] | |||
lappend ans [list set LOADEDMODULES stickysub/dir2/4.0] | lappend ans [list set LOADEDMODULES stickysub/dir2/4.0] | |||
lappend ans [list unset __MODULES_LMTAG] | lappend ans [list unset __MODULES_LMTAG] | |||
set tserr [msg_unload {stickysub/dir1/1.0 <S>} $err_stickyunloadf] | set tserr [msg_unload {stickysub/dir1/1.0 <S>} $err_stickyunloadf] | |||
skipping to change at line 353 | skipping to change at line 343 | |||
set tserr [msg_switch {stickysub/dir1/1.0 <S>} stickysub/dir1/2.0 $err_stickyunl oad] | set tserr [msg_switch {stickysub/dir1/1.0 <S>} stickysub/dir1/2.0 $err_stickyunl oad] | |||
testouterr_cmd_re sh {switch stickysub/dir1/2.0} ERR $tserr | testouterr_cmd_re sh {switch stickysub/dir1/2.0} ERR $tserr | |||
set ans [list] | set ans [list] | |||
lappend ans [list set _LMFILES_ $mp/stickysub/dir1/2.0] | lappend ans [list set _LMFILES_ $mp/stickysub/dir1/2.0] | |||
lappend ans [list set LOADEDMODULES stickysub/dir1/2.0] | lappend ans [list set LOADEDMODULES stickysub/dir1/2.0] | |||
lappend ans [list unset __MODULES_LMTAG] | lappend ans [list unset __MODULES_LMTAG] | |||
set tserr [msg_unload {stickysub/dir1/1.0 <S>} $err_stickyunloadf] | set tserr [msg_unload {stickysub/dir1/1.0 <S>} $err_stickyunloadf] | |||
testouterr_cmd_re sh {switch -f stickysub/dir1/2.0} $ans $tserr | testouterr_cmd_re sh {switch -f stickysub/dir1/2.0} $ans $tserr | |||
set ans [list] | set ans [list] | |||
lappend ans [list set _LMFILES_ $mp/stickysub/dir1/1.0:$mp/stickysub/dir2/4.0:$m | ||||
p/foo/2.0] | ||||
lappend ans [list set LOADEDMODULES stickysub/dir1/1.0:stickysub/dir2/4.0:foo/2. | ||||
0] | ||||
lappend ans [list ERR] | ||||
set tserr [msg_unload {stickysub/dir1/1.0 <S>} $err_stickyunload]\n\n[msg_load s | ||||
tickysub/dir2/4.0]\n[msg_load foo/2.0] | ||||
testouterr_cmd_re sh {restore testsuite/home/coll-sticky-6} $ans $tserr | ||||
set ans [list] | ||||
lappend ans [list set _LMFILES_ $mp/stickysub/dir2/4.0:$mp/foo/2.0] | lappend ans [list set _LMFILES_ $mp/stickysub/dir2/4.0:$mp/foo/2.0] | |||
lappend ans [list set LOADEDMODULES stickysub/dir2/4.0:foo/2.0] | lappend ans [list set LOADEDMODULES stickysub/dir2/4.0:foo/2.0] | |||
lappend ans [list unset __MODULES_LMTAG] | lappend ans [list unset __MODULES_LMTAG] | |||
set tserr [msg_unload {stickysub/dir1/1.0 <S>} $err_stickyunloadf]\n\n[msg_load | set tserr [msg_unload {stickysub/dir1/1.0 <S>}]\n[msg_load stickysub/dir2/4.0]\n | |||
stickysub/dir2/4.0]\n[msg_load foo/2.0] | [msg_load foo/2.0] | |||
testouterr_cmd_re sh {restore testsuite/home/coll-sticky-6} $ans $tserr | ||||
testouterr_cmd_re sh {restore -f testsuite/home/coll-sticky-6} $ans $tserr | testouterr_cmd_re sh {restore -f testsuite/home/coll-sticky-6} $ans $tserr | |||
setenv_var MODULES_ADVANCED_VERSION_SPEC 1 | setenv_var MODULES_ADVANCED_VERSION_SPEC 1 | |||
setenv_var TESTSUITE_STICKY_GENERIC 4 | setenv_var TESTSUITE_STICKY_GENERIC 4 | |||
set tserr [msg_switch {stickysub/dir1/1.0 <S>} stickysub/dir1/2.0 $err_stickyunl oad] | set tserr [msg_switch {stickysub/dir1/1.0 <S>} stickysub/dir1/2.0 $err_stickyunl oad] | |||
testouterr_cmd_re sh {switch stickysub/dir1/2.0} ERR $tserr | testouterr_cmd_re sh {switch stickysub/dir1/2.0} ERR $tserr | |||
set tserr [msg_switch {stickysub/dir1/1.0 <S>} stickysub/dir1 $err_stickyunload] | set tserr [msg_switch {stickysub/dir1/1.0 <S>} stickysub/dir1 $err_stickyunload] | |||
testouterr_cmd_re sh {switch stickysub/dir1} ERR $tserr | testouterr_cmd_re sh {switch stickysub/dir1} ERR $tserr | |||
set ans [list] | set ans [list] | |||
lappend ans [list set __MODULES_LMALTNAME stickysub/dir1/2.0&as|stickysub/dir1/d efault&as|stickysub/dir1/latest] | lappend ans [list set __MODULES_LMALTNAME stickysub/dir1/2.0&as|stickysub/dir1/d efault&as|stickysub/dir1/latest] | |||
lappend ans [list set _LMFILES_ $mp/stickysub/dir1/2.0] | lappend ans [list set _LMFILES_ $mp/stickysub/dir1/2.0] | |||
lappend ans [list set LOADEDMODULES stickysub/dir1/2.0] | lappend ans [list set LOADEDMODULES stickysub/dir1/2.0] | |||
lappend ans [list set __MODULES_LMTAG stickysub/dir1/2.0&sticky] | lappend ans [list set __MODULES_LMTAG stickysub/dir1/2.0&sticky] | |||
set tserr [msg_unload {stickysub/dir1/1.0 <S>} $err_stickyunloadf] | set tserr [msg_unload {stickysub/dir1/1.0 <S>} $err_stickyunloadf] | |||
testouterr_cmd_re sh {switch -f stickysub/dir1/2.0} $ans $tserr | testouterr_cmd_re sh {switch -f stickysub/dir1/2.0} $ans $tserr | |||
testouterr_cmd_re sh {switch -f stickysub/dir1} $ans $tserr | testouterr_cmd_re sh {switch -f stickysub/dir1} $ans $tserr | |||
set ans [list] | set ans [list] | |||
lappend ans [list set __MODULES_LMALTNAME stickysub/dir2/4.0&as|stickysub/defaul t&as|stickysub/latest&as|stickysub/dir2/default&as|stickysub/dir2/latest:foo/2.0 &as|foo/default&as|foo/latest] | lappend ans [list set __MODULES_LMALTNAME stickysub/dir2/4.0&as|stickysub/defaul t&as|stickysub/latest&as|stickysub/dir2/default&as|stickysub/dir2/latest:foo/2.0 &as|foo/default&as|foo/latest] | |||
lappend ans [list set _LMFILES_ $mp/stickysub/dir1/1.0:$mp/stickysub/dir2/4.0:$m | ||||
p/foo/2.0] | ||||
lappend ans [list set LOADEDMODULES stickysub/dir1/1.0:stickysub/dir2/4.0:foo/2. | ||||
0] | ||||
lappend ans [list ERR] | ||||
set tserr [msg_unload {stickysub/dir1/1.0 <S>} $err_stickyunload]\n\n[msg_load s | ||||
tickysub/dir2/4.0]\n[msg_load foo/2.0] | ||||
testouterr_cmd_re sh {restore testsuite/home/coll-sticky-6} $ans $tserr | ||||
set ans [list] | ||||
lappend ans [list set __MODULES_LMALTNAME stickysub/dir2/4.0&as|stickysub/defaul | ||||
t&as|stickysub/latest&as|stickysub/dir2/default&as|stickysub/dir2/latest:foo/2.0 | ||||
&as|foo/default&as|foo/latest] | ||||
lappend ans [list set _LMFILES_ $mp/stickysub/dir2/4.0:$mp/foo/2.0] | lappend ans [list set _LMFILES_ $mp/stickysub/dir2/4.0:$mp/foo/2.0] | |||
lappend ans [list set LOADEDMODULES stickysub/dir2/4.0:foo/2.0] | lappend ans [list set LOADEDMODULES stickysub/dir2/4.0:foo/2.0] | |||
lappend ans [list unset __MODULES_LMTAG] | lappend ans [list unset __MODULES_LMTAG] | |||
set tserr [msg_unload {stickysub/dir1/1.0 <S>} $err_stickyunloadf]\n\n[msg_load | set tserr [msg_unload {stickysub/dir1/1.0 <S>}]\n[msg_load stickysub/dir2/4.0]\n | |||
stickysub/dir2/4.0]\n[msg_load foo/2.0] | [msg_load foo/2.0] | |||
testouterr_cmd_re sh {restore testsuite/home/coll-sticky-6} $ans $tserr | ||||
testouterr_cmd_re sh {restore -f testsuite/home/coll-sticky-6} $ans $tserr | testouterr_cmd_re sh {restore -f testsuite/home/coll-sticky-6} $ans $tserr | |||
setenv_var TESTSUITE_STICKY_GENERIC 5 | setenv_var TESTSUITE_STICKY_GENERIC 5 | |||
set tserr [msg_switch {stickysub/dir1/1.0 <S>} stickysub/dir1/2.0 $err_stickyunl oad] | set tserr [msg_switch {stickysub/dir1/1.0 <S>} stickysub/dir1/2.0 $err_stickyunl oad] | |||
testouterr_cmd_re sh {switch stickysub/dir1/2.0} ERR $tserr | testouterr_cmd_re sh {switch stickysub/dir1/2.0} ERR $tserr | |||
set tserr [msg_switch {stickysub/dir1/1.0 <S>} stickysub/dir1 $err_stickyunload] | set tserr [msg_switch {stickysub/dir1/1.0 <S>} stickysub/dir1 $err_stickyunload] | |||
testouterr_cmd_re sh {switch stickysub/dir1} ERR $tserr | testouterr_cmd_re sh {switch stickysub/dir1} ERR $tserr | |||
set ans [list] | set ans [list] | |||
lappend ans [list set __MODULES_LMALTNAME stickysub/dir1/2.0&as|stickysub/dir1/d efault&as|stickysub/dir1/latest] | lappend ans [list set __MODULES_LMALTNAME stickysub/dir1/2.0&as|stickysub/dir1/d efault&as|stickysub/dir1/latest] | |||
lappend ans [list set _LMFILES_ $mp/stickysub/dir1/2.0] | lappend ans [list set _LMFILES_ $mp/stickysub/dir1/2.0] | |||
lappend ans [list set LOADEDMODULES stickysub/dir1/2.0] | lappend ans [list set LOADEDMODULES stickysub/dir1/2.0] | |||
lappend ans [list set __MODULES_LMTAG stickysub/dir1/2.0&sticky] | lappend ans [list set __MODULES_LMTAG stickysub/dir1/2.0&sticky] | |||
set tserr [msg_unload {stickysub/dir1/1.0 <S>} $err_stickyunloadf] | set tserr [msg_unload {stickysub/dir1/1.0 <S>} $err_stickyunloadf] | |||
testouterr_cmd_re sh {switch -f stickysub/dir1/2.0} $ans $tserr | testouterr_cmd_re sh {switch -f stickysub/dir1/2.0} $ans $tserr | |||
testouterr_cmd_re sh {switch -f stickysub/dir1} $ans $tserr | testouterr_cmd_re sh {switch -f stickysub/dir1} $ans $tserr | |||
set ans [list] | set ans [list] | |||
lappend ans [list set __MODULES_LMALTNAME stickysub/dir2/4.0&as|stickysub/defaul t&as|stickysub/latest&as|stickysub/dir2/default&as|stickysub/dir2/latest:foo/2.0 &as|foo/default&as|foo/latest] | lappend ans [list set __MODULES_LMALTNAME stickysub/dir2/4.0&as|stickysub/defaul t&as|stickysub/latest&as|stickysub/dir2/default&as|stickysub/dir2/latest:foo/2.0 &as|foo/default&as|foo/latest] | |||
lappend ans [list set _LMFILES_ $mp/stickysub/dir1/1.0:$mp/stickysub/dir2/4.0:$m | ||||
p/foo/2.0] | ||||
lappend ans [list set LOADEDMODULES stickysub/dir1/1.0:stickysub/dir2/4.0:foo/2. | ||||
0] | ||||
lappend ans [list ERR] | ||||
set tserr [msg_unload {stickysub/dir1/1.0 <S>} $err_stickyunload]\n\n[msg_load s | ||||
tickysub/dir2/4.0]\n[msg_load foo/2.0] | ||||
testouterr_cmd_re sh {restore testsuite/home/coll-sticky-6} $ans $tserr | ||||
set ans [list] | ||||
lappend ans [list set __MODULES_LMALTNAME stickysub/dir2/4.0&as|stickysub/defaul | ||||
t&as|stickysub/latest&as|stickysub/dir2/default&as|stickysub/dir2/latest:foo/2.0 | ||||
&as|foo/default&as|foo/latest] | ||||
lappend ans [list set _LMFILES_ $mp/stickysub/dir2/4.0:$mp/foo/2.0] | lappend ans [list set _LMFILES_ $mp/stickysub/dir2/4.0:$mp/foo/2.0] | |||
lappend ans [list set LOADEDMODULES stickysub/dir2/4.0:foo/2.0] | lappend ans [list set LOADEDMODULES stickysub/dir2/4.0:foo/2.0] | |||
lappend ans [list unset __MODULES_LMTAG] | lappend ans [list unset __MODULES_LMTAG] | |||
set tserr [msg_unload {stickysub/dir1/1.0 <S>} $err_stickyunloadf]\n\n[msg_load | set tserr [msg_unload {stickysub/dir1/1.0 <S>}]\n[msg_load stickysub/dir2/4.0]\n | |||
stickysub/dir2/4.0]\n[msg_load foo/2.0] | [msg_load foo/2.0] | |||
testouterr_cmd_re sh {restore testsuite/home/coll-sticky-6} $ans $tserr | ||||
testouterr_cmd_re sh {restore -f testsuite/home/coll-sticky-6} $ans $tserr | testouterr_cmd_re sh {restore -f testsuite/home/coll-sticky-6} $ans $tserr | |||
# test purge and reload when sticky module has a dependency | # test purge and reload when sticky module has a dependency | |||
unsetenv_var TESTSUITE_STICKY_GENERIC | unsetenv_var TESTSUITE_STICKY_GENERIC | |||
setenv_var MODULES_ADVANCED_VERSION_SPEC 0 | setenv_var MODULES_ADVANCED_VERSION_SPEC 0 | |||
setenv_var TESTSUITE_STICKY_DEP 1 | setenv_var TESTSUITE_STICKY_DEP 1 | |||
setenv_loaded_module [list foo/2.0 sticky/1.0 bar/2.0] [list $mp/foo/2.0 $mp/sti cky/1.0 $mp/bar/2.0] | setenv_loaded_module [list foo/2.0 sticky/1.0 bar/2.0] [list $mp/foo/2.0 $mp/sti cky/1.0 $mp/bar/2.0] | |||
setenv_var __MODULES_LMTAG sticky/1.0&sticky | setenv_var __MODULES_LMTAG sticky/1.0&sticky | |||
setenv_var __MODULES_LMPREREQ sticky/1.0&foo|baz:bar/2.0&sticky/1.0 | setenv_var __MODULES_LMPREREQ sticky/1.0&foo|baz:bar/2.0&sticky/1.0 | |||
End of changes. 12 change blocks. | ||||
64 lines changed or deleted | 20 lines changed or added |