"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "testsuite/modules.50-cmds/391-function-undo.exp" between
modules-5.1.1.tar.bz2 and modules-5.2.0.tar.bz2

About: The Environment Modules package provides for the dynamic modification of a user’s environment via modulefiles.

391-function-undo.exp  (modules-5.1.1.tar.bz2)	:	391-function-undo.exp  (modules-5.2.0.tar.bz2)
skipping to change at line 38		skipping to change at line 38
#		#
set module "function/1.0"		set module "function/1.0"
set modulefile "$modpath/$module"		set modulefile "$modpath/$module"
#		#
# Set up the environment for reversal ...		# Set up the environment for reversal ...
#		#
setenv_loaded_module $module $modulefile		setenv_loaded_module $module $modulefile
		setenv_var __MODULES_LMREFRESH $module
#		#
# Expected results for the different shells ...		# Expected results for the different shells ...
#		#
set ans_fish [list]		set ans_fish [list]
lappend ans_fish [list unset _LMFILES_]		lappend ans_fish [list unset _LMFILES_]
lappend ans_fish [list unset LOADEDMODULES]		lappend ans_fish [list unset LOADEDMODULES]
		lappend ans_fish [list unset __MODULES_LMREFRESH]
lappend ans_fish [list "functions -e testsuite2;"]		lappend ans_fish [list "functions -e testsuite2;"]
lappend ans_fish [list "functions -e testsuite3;"]		lappend ans_fish [list "functions -e testsuite3;"]
lappend ans_fish [list "functions -e testsuite4;"]		lappend ans_fish [list "functions -e testsuite4;"]
lappend ans_fish [list "functions -e testsuite;"]		lappend ans_fish [list "functions -e testsuite;"]
lappend ans_fish [list "functions -e testsuite5;"]		lappend ans_fish [list "functions -e testsuite5;"]
set ans_sh [list]		set ans_sh [list]
lappend ans_sh [list unset _LMFILES_]		lappend ans_sh [list unset _LMFILES_]
lappend ans_sh [list unset LOADEDMODULES]		lappend ans_sh [list unset LOADEDMODULES]
		lappend ans_sh [list unset __MODULES_LMREFRESH]
lappend ans_sh [list "unset -f testsuite2;"]		lappend ans_sh [list "unset -f testsuite2;"]
lappend ans_sh [list "unset -f testsuite3;"]		lappend ans_sh [list "unset -f testsuite3;"]
lappend ans_sh [list "unset -f testsuite4;"]		lappend ans_sh [list "unset -f testsuite4;"]
lappend ans_sh [list "unset -f testsuite;"]		lappend ans_sh [list "unset -f testsuite;"]
lappend ans_sh [list "unset -f testsuite5;"]		lappend ans_sh [list "unset -f testsuite5;"]
set ans_empty [list]		set ans_empty [list]
lappend ans_empty [list unset _LMFILES_]		lappend ans_empty [list unset _LMFILES_]
lappend ans_empty [list unset LOADEDMODULES]		lappend ans_empty [list unset LOADEDMODULES]
		lappend ans_empty [list unset __MODULES_LMREFRESH]
#		#
# The tests		# The tests
#		#
foreach sh $supported_shells {		foreach sh $supported_shells {
# Can only sh/bash actually unset functions?		# Can only sh/bash actually unset functions?
if { [lsearch {sh bash zsh ksh} $sh] >= 0 } {		if { [lsearch {sh bash zsh ksh} $sh] >= 0 } {
test_cmd "$sh" "unload $module" $ans_sh		test_cmd "$sh" "unload $module" $ans_sh
} elseif { $sh == "fish" } {		} elseif { $sh == "fish" } {
test_cmd "$sh" "unload $module" $ans_fish		test_cmd "$sh" "unload $module" $ans_fish
End of changes. 4 change blocks.
0 lines changed or deleted		4 lines changed or added

---