ts: test tag set with full path module spec

Author: xdelaruelle

testsuite/modules.50-cmds/465-tag-opt.exp

@@ -1050,6 +1050,48 @@ unsetenv_path_var __MODULES_LMEXTRATAG
 unsetenv_path_var __MODULES_LMTAG
 
 
+# fullpath module specification and already loaded module
+# skip these tests, if fullpath module could be confused with variant spec
+if {[string first {+} $modfile] == -1} {
+
+unsetenv_var TESTSUITE_TAG_OPT
+setenv_loaded_module [list $modfile] [list $modfile]
+set ans [list]
+lappend ans [list set __MODULES_LMEXTRATAG $modfile&foo]
+lappend ans [list set __MODULES_LMTAG $modfile&foo]
+testouterr_cmd sh "load --tag=foo $mod" $ans {}
+testouterr_cmd sh "load --tag=foo $modfile" $ans {}
+
+setenv_path_var __MODULES_LMEXTRATAG $modfile&bar
+setenv_path_var __MODULES_LMTAG $modfile&bar
+set ans [list]
+lappend ans [list set __MODULES_LMEXTRATAG $modfile&bar&foo]
+lappend ans [list set __MODULES_LMTAG $modfile&bar&foo]
+testouterr_cmd sh "load --tag=foo $mod" $ans {}
+testouterr_cmd sh "load --tag=foo $modfile" $ans {}
+
+unsetenv_path_var __MODULES_LMEXTRATAG
+unsetenv_path_var __MODULES_LMTAG
+setenv_loaded_module [list $mod] [list $modfile]
+set ans [list]
+lappend ans [list set __MODULES_LMEXTRATAG $mod&foo]
+lappend ans [list set __MODULES_LMTAG $mod&foo]
+testouterr_cmd sh "load --tag=foo $modfile" $ans {}
+
+setenv_path_var __MODULES_LMEXTRATAG $mod&bar
+setenv_path_var __MODULES_LMTAG $mod&bar
+set ans [list]
+lappend ans [list set __MODULES_LMEXTRATAG $mod&bar&foo]
+lappend ans [list set __MODULES_LMTAG $mod&bar&foo]
+testouterr_cmd sh "load --tag=foo $modfile" $ans {}
+
+unsetenv_loaded_module
+unsetenv_path_var __MODULES_LMEXTRATAG
+unsetenv_path_var __MODULES_LMTAG
+
+}
+
+
 # bad prereq specifications
 setenv_var TESTSUITE_TAG_OPT prtagbad1
 setenv_var MODULES_ADVANCED_VERSION_SPEC 1