ts: highlight --duplicates issue when unloading

Author: xdelaruelle

testsuite/modules.50-cmds/040-append.exp

@@ -216,6 +216,36 @@ lappend ans [list set LOADEDMODULES $module]
 
 testouterr_cmd "sh" "load $module" $ans ""
 
+# test unload mode on append-path --duplicates
+setenv_loaded_module [list $module] [list $modulefile]
+set ans [list]
+lappend ans [list unset __MODULES_SHARE_FOO]
+lappend ans [list unset FOO]
+lappend ans [list unset __MODULES_SHARE_BAR]
+lappend ans [list set BAR /path/to/dir1:/path/to/dir2]
+lappend ans [list unset _LMFILES_]
+lappend ans [list unset LOADEDMODULES]
+testouterr_cmd sh "unload $module" $ans {}
+
+setenv_var FOO /path/to/dir1:/path/to/dir2:/path/to/dir1
+setenv_var __MODULES_SHARE_FOO /path/to/dir1:2
+setenv_var BAR /path/to/dir1
+unsetenv_var __MODULES_SHARE_BAR
+
+set ans [list]
+lappend ans [list unset __MODULES_SHARE_FOO]
+lappend ans [list unset FOO]
+lappend ans [list unset BAR]
+lappend ans [list unset _LMFILES_]
+lappend ans [list unset LOADEDMODULES]
+testouterr_cmd sh "unload $module" $ans {}
+
+setenv_var FOO /path/to/dir1
+setenv_var __MODULES_SHARE_FOO /path/to/dir1:2
+setenv_var BAR /path/to/dir1:/path/to/dir2:/path/to/dir1
+setenv_var __MODULES_SHARE_BAR /path/to/dir1:2
+unsetenv_loaded_module
+
 set module "append/4.1"
 set modulefile "$modpath/$module"
 

testsuite/modules.50-cmds/060-remove.exp

@@ -213,6 +213,18 @@ lappend ans [list set LOADEDMODULES $module]
 
 testouterr_cmd "sh" "load $module" $ans [msg_load $module "$warn_msgs: --duplicates option has no effect on unload-path"]
 
+# test unload mode on remove-path --duplicates
+setenv_loaded_module [list $module] [list $modulefile]
+setenv_var FOO /path/to/dir1:/path/to/dir2
+unsetenv_var __MODULES_SHARE_FOO
+set ans [list]
+lappend ans [list unset _LMFILES_]
+lappend ans [list unset LOADEDMODULES]
+testouterr_cmd sh "unload $module" $ans [msg_unload $module "$warn_msgs: --duplicates option has no effect on unload-path"]
+
+unsetenv_loaded_module
+
+
 #
 # Remove path in index mode
 #