"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "testsuite/modules.61-coll/030-save.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.

030-save.exp  (modules-5.1.1.tar.bz2)	:	030-save.exp  (modules-5.2.0.tar.bz2)
skipping to change at line 26		skipping to change at line 26
#		#
# Comment: %C{		# Comment: %C{
# Test the module 'save' command		# Test the module 'save' command
# }C%		# }C%
#		#
##############################################################################		##############################################################################
set baddotmod "$env(HOME)/.module"		set baddotmod "$env(HOME)/.module"
set baddotmodfp "$baddotmod/$collbadn"		set baddotmodfp "$baddotmod/$collbadn"
set baddotmoderrmsg "$error_msgs: $baddotmod exists but is not a directory"		set baddotmoderrmsg "$error_msgs: $baddotmod exists but is not a directory"
set emptyenverrmsg "$error_msgs: Nothing to save in a collection"
		# clear previously existing collection directory
		if {[file exists $baddotmod]} {
		file delete $baddotmod
		}
#		#
# test saving when HOME/.module is not directory		# test saving when HOME/.module is not directory
#		#
# create HOME/.module as empty file		# create HOME/.module as empty file
if { $verbose > 0 } {		if { $verbose > 0 } {
send_user "\tCreate $baddotmod as an empty file\n"		send_user "\tCreate $baddotmod as an empty file\n"
}		}
set baddotmodfd [open $baddotmod w]		set baddotmodfd [open $baddotmod w]
skipping to change at line 67		skipping to change at line 71
# set home to unexistent directory for tests		# set home to unexistent directory for tests
# will automatically be created by save command		# will automatically be created by save command
if { $verbose > 0 } {		if { $verbose > 0 } {
send_user "\tSetup HOME = $hometestcoll\n"		send_user "\tSetup HOME = $hometestcoll\n"
}		}
set env(HOME) "$hometestcoll"		set env(HOME) "$hometestcoll"
# setup an empty environment state		# setup an empty environment state
unsetenv_path_var MODULEPATH		unsetenv_path_var MODULEPATH
testouterr_cmd "ALL" "save" "ERR" "$emptyenverrmsg"		testouterr_cmd "ALL" "save" "ERR" $err_save_emptyenv
#		#
# test saving default collection		# test saving default collection
# with module version pinned or not		# with module version pinned or not
#		#
# setup environment state		# setup environment state
if { $verbose > 0 } {		if { $verbose > 0 } {
send_user "\tSetup MODULES_COLLECTION_PIN_VERSION = 0\n"		send_user "\tSetup MODULES_COLLECTION_PIN_VERSION = 0\n"
}		}
skipping to change at line 475		skipping to change at line 479
testouterr_cmd "sh" "save" "ERR" "$err_loinconsist\n LOADEDMODULES=foo bar\n _ LMFILES_=/path/to/foo"		testouterr_cmd "sh" "save" "ERR" "$err_loinconsist\n LOADEDMODULES=foo bar\n _ LMFILES_=/path/to/foo"
#		#
# test when current environment has unsatisfied constraint		# test when current environment has unsatisfied constraint
#		#
setenv_loaded_module [list trace/all_on conflict/full] [list $c9modpath/trace/al l_on $c9modpath/conflict/full]		setenv_loaded_module [list trace/all_on conflict/full] [list $c9modpath/trace/al l_on $c9modpath/conflict/full]
setenv_var __MODULES_LMCONFLICT "conflict/full&trace/all_on"		setenv_var __MODULES_LMCONFLICT "conflict/full&trace/all_on"
testouterr_cmd "sh" "save" "ERR" "$error_msgs: Cannot save collection, some modu le constraints are not satistied"		testouterr_cmd "sh" "save" "ERR" $err_save_unsat
#		#
# Cleanup		# Cleanup
#		#
reset_test_env		reset_test_env
End of changes. 3 change blocks.
3 lines changed or deleted		7 lines changed or added

---