513-prereq-any.exp (modules-5.1.1.tar.bz2) | : | 513-prereq-any.exp (modules-5.2.0.tar.bz2) | ||
---|---|---|---|---|
skipping to change at line 125 | skipping to change at line 125 | |||
lappend ans [list set __MODULES_LMPREREQ $mod&foo/1.0] | lappend ans [list set __MODULES_LMPREREQ $mod&foo/1.0] | |||
lappend ans [list set _LMFILES_ $mp/foo/1.0:$modfile] | lappend ans [list set _LMFILES_ $mp/foo/1.0:$modfile] | |||
lappend ans [list set LOADEDMODULES foo/1.0:$mod] | lappend ans [list set LOADEDMODULES foo/1.0:$mod] | |||
lappend ans [list set __MODULES_LMTAG foo/1.0&auto-loaded] | lappend ans [list set __MODULES_LMTAG foo/1.0&auto-loaded] | |||
set tserr [msg_top_load $mod {} foo/1.0 {}] | set tserr [msg_top_load $mod {} foo/1.0 {}] | |||
testouterr_cmd sh "load --auto $mod" $ans $tserr | testouterr_cmd sh "load --auto $mod" $ans $tserr | |||
setenv_var TESTSUITE_LCOMPAT prany3 | setenv_var TESTSUITE_LCOMPAT prany3 | |||
set ln [expr {[cmpversion $tclsh_version 8.6] == -1 ? 5 : 14}] | set ln [expr {[cmpversion $tclsh_version 8.6] == -1 ? 5 : 14}] | |||
set tserr [escre [msg_load $mod [msg_moderr {wrong # args: should be "prereq ?-- tag? ?taglist? modulefile ?...?"} {prereq-any<EXM>} $modfile $ln]]] | set tserr [escre [msg_load $mod [msg_moderr {wrong # args: should be "prereq ?-- optional? ?--tag? ?taglist? modulefile ?...?"} {prereq-any<EXM>} $modfile $ln]]] | |||
testouterr_cmd_re sh "load $mod" ERR $tserr | testouterr_cmd_re sh "load $mod" ERR $tserr | |||
setenv_var TESTSUITE_LCOMPAT pranyrc1 | setenv_var TESTSUITE_LCOMPAT pranyrc1 | |||
set ans [list] | set ans [list] | |||
lappend ans [list set _LMFILES_ $modfile] | lappend ans [list set _LMFILES_ $modfile] | |||
lappend ans [list set LOADEDMODULES $mod] | lappend ans [list set LOADEDMODULES $mod] | |||
lappend ans [list ERR] | lappend ans [list ERR] | |||
set ln [expr {[cmpversion $tclsh_version 8.6] == -1 ? 3 : 15}] | set ln [expr {[cmpversion $tclsh_version 8.6] == -1 ? 3 : 15}] | |||
set tserr [escre [msg_moderr {invalid command name "prereq-any"} {prereq-any foo /1.0 bar/1.0<EXM>} $mp/lcompat/.modulerc $ln { }]] | set tserr [escre [msg_moderr {invalid command name "prereq-any"} {prereq-any foo /1.0 bar/1.0<EXM>} $mp/lcompat/.modulerc $ln { }]] | |||
End of changes. 1 change blocks. | ||||
1 lines changed or deleted | 1 lines changed or added |