"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "testsuite/modules.50-cmds/076-alias-sub.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.

076-alias-sub.exp  (modules-5.1.1.tar.bz2)	:	076-alias-sub.exp  (modules-5.2.0.tar.bz2)
skipping to change at line 43		skipping to change at line 43
set module "alias/1.0"		set module "alias/1.0"
set modulefile "$modpath/$module"		set modulefile "$modpath/$module"
set alias {ls $1 $2 | grep $*}		set alias {ls $1 $2 | grep $*}
set alias_csh {ls !!:1 !!:2 | grep !*}		set alias_csh {ls !!:1 !!:2 | grep !*}
#		#
# For the different shells ...		# For the different shells ...
#		#
		lappend ans [list set __MODULES_LMREFRESH $module]
lappend ans [list set _LMFILES_ $modulefile]		lappend ans [list set _LMFILES_ $modulefile]
lappend ans [list set LOADEDMODULES $module]		lappend ans [list set LOADEDMODULES $module]
lappend ans [list alias testsuite $alias]		lappend ans [list alias testsuite $alias]
		lappend ans2 [list set __MODULES_LMREFRESH $module]
lappend ans2 [list set _LMFILES_ $modulefile]		lappend ans2 [list set _LMFILES_ $modulefile]
lappend ans2 [list set LOADEDMODULES $module]		lappend ans2 [list set LOADEDMODULES $module]
lappend ans2 [list alias testsuite $alias_csh]		lappend ans2 [list alias testsuite $alias_csh]
		lappend ans3 [list set __MODULES_LMREFRESH $module]
lappend ans3 [list set _LMFILES_ $modulefile]		lappend ans3 [list set _LMFILES_ $modulefile]
lappend ans3 [list set LOADEDMODULES $module]		lappend ans3 [list set LOADEDMODULES $module]
lappend ans3 [list alias testsuite $alias]		lappend ans3 [list alias testsuite $alias]
#		#
# The tests		# The tests
#		#
# different behavior than C-version: on Tcl-version set-alias command always		# different behavior than C-version: on Tcl-version set-alias command always
# produces a shell alias never a shell function on Bourne shell derivatives		# produces a shell alias never a shell function on Bourne shell derivatives
skipping to change at line 80		skipping to change at line 83
}		}
#		#
# Test special characters handling		# Test special characters handling
#		#
set module "alias/3.0"		set module "alias/3.0"
set modulefile "$modpath/$module"		set modulefile "$modpath/$module"
set ans [list]		set ans [list]
		lappend ans [list set __MODULES_LMREFRESH $module]
lappend ans [list set _LMFILES_ $modulefile]		lappend ans [list set _LMFILES_ $modulefile]
lappend ans [list set LOADEDMODULES $module]		lappend ans [list set LOADEDMODULES $module]
lappend ans [list alias ts2 {echo "http://an.example.web?&param=one"}]		lappend ans [list alias ts2 {echo "http://an.example.web?&param=one"}]
lappend ans [list alias testsuite {echo $(grep "report .Modules " modulecmd.tcl | tr -d \\ | awk '{print $3}')}]		lappend ans [list alias testsuite {echo $(grep "report .Modules " modulecmd.tcl | tr -d \\ | awk '{print $3}')}]
set ans2 [list]		set ans2 [list]
		lappend ans2 [list set __MODULES_LMREFRESH $module]
lappend ans2 [list set _LMFILES_ $modulefile]		lappend ans2 [list set _LMFILES_ $modulefile]
lappend ans2 [list set LOADEDMODULES $module]		lappend ans2 [list set LOADEDMODULES $module]
lappend ans2 [list alias ts2 {echo "http://an.example.web?&param=one"}]		lappend ans2 [list alias ts2 {echo "http://an.example.web?&param=one"}]
lappend ans2 [list alias testsuite {echo `grep "report .Modules " modulecmd.tcl | tr -d \\ | awk '{print $3}'`}]		lappend ans2 [list alias testsuite {echo `grep "report .Modules " modulecmd.tcl | tr -d \\ | awk '{print $3}'`}]
set ans3 [list]		set ans3 [list]
		lappend ans3 [list set __MODULES_LMREFRESH $module]
lappend ans3 [list set _LMFILES_ $modulefile]		lappend ans3 [list set _LMFILES_ $modulefile]
lappend ans3 [list set LOADEDMODULES $module]		lappend ans3 [list set LOADEDMODULES $module]
lappend ans3 [list alias ts2 {echo "http://an.example.web?&param=one"}]		lappend ans3 [list alias ts2 {echo "http://an.example.web?&param=one"}]
lappend ans3 [list alias testsuite {echo (grep "report .Modules " modulecmd.tcl | tr -d \\ | awk '{print $3}')}]		lappend ans3 [list alias testsuite {echo (grep "report .Modules " modulecmd.tcl | tr -d \\ | awk '{print $3}')}]
foreach sh $supported_shells {		foreach sh $supported_shells {
switch -- $sh {		switch -- $sh {
{sh} - {bash} - {ksh} - {zsh} {		{sh} - {bash} - {ksh} - {zsh} {
test_cmd $sh "load $module" $ans		test_cmd $sh "load $module" $ans
}		}
End of changes. 6 change blocks.
0 lines changed or deleted		6 lines changed or added

---