060-quar.exp (modules-5.1.1.tar.bz2) | : | 060-quar.exp (modules-5.2.0.tar.bz2) | ||
---|---|---|---|---|
skipping to change at line 23 | skipping to change at line 23 | |||
# Command: | # Command: | |||
# Sub-Command: | # Sub-Command: | |||
# | # | |||
# Comment: %C{ | # Comment: %C{ | |||
# Check runtime quarantine mechanism in real operation | # Check runtime quarantine mechanism in real operation | |||
# }C% | # }C% | |||
# | # | |||
############################################################################## | ############################################################################## | |||
if {$install_quarantinesupport eq y} { | if {$install_quarantinesupport eq y} { | |||
# skip quarantine tests if modulecmd.tcl found installed in a path | ||||
# containing a space character | ||||
if {[string first { } $install_libexecdir] == -1} { | ||||
set modfile "$env(TESTSUITEDIR)/modulefiles.2/quar" | set modfile "$env(TESTSUITEDIR)/modulefiles.2/quar" | |||
# if quarantine configured in init scripts at build time only check | # if quarantine configured in init scripts at build time only check | |||
# that defined configuration is operational | # that defined configuration is operational | |||
if {$install_quarantinevars ne ""} { | if {$install_quarantinevars ne ""} { | |||
set ans [list] | set ans [list] | |||
set ansr [list] | set ansr [list] | |||
# if test set LD_PRELOAD to a non-existent lib, ld will shout error | # if test set LD_PRELOAD to a non-existent lib, ld will shout error | |||
skipping to change at line 415 | skipping to change at line 420 | |||
send_user "\tDelete fake library $testlibfile\n" | send_user "\tDelete fake library $testlibfile\n" | |||
} | } | |||
file delete $testlibfile | file delete $testlibfile | |||
} | } | |||
} | } | |||
reset_test_env | reset_test_env | |||
} elseif {$verbose > 0} { | } elseif {$verbose > 0} { | |||
send_user "\tSkipping quarantine mechanism checks due to install path\n" | ||||
} | ||||
} elseif {$verbose > 0} { | ||||
send_user "\tSkipping quarantine mechanism checks\n" | send_user "\tSkipping quarantine mechanism checks\n" | |||
} | } | |||
# vim:set tabstop=3 shiftwidth=3 expandtab autoindent: | # vim:set tabstop=3 shiftwidth=3 expandtab autoindent: | |||
End of changes. 2 change blocks. | ||||
0 lines changed or deleted | 9 lines changed or added |