From 358aaba21fbf55b6092da38dc786c829fbdd0f0a Mon Sep 17 00:00:00 2001
From: Xavier Delaruelle <xavier.delaruelle@cea.fr>
Date: Mon, 29 May 2023 12:01:36 +0200
Subject: [PATCH] ts: test module-info tags on full path mod in 50/441

---
 testsuite/modulefiles.4/tag/.modulerc            |  4 ++++
 testsuite/modulefiles.4/tag/1.0                  |  4 ++++
 .../modules.50-cmds/441-module-tag-full-path.exp | 16 ++++++++++++++++
 3 files changed, 24 insertions(+)

diff --git a/testsuite/modulefiles.4/tag/.modulerc b/testsuite/modulefiles.4/tag/.modulerc
index e2c29729..6381938d 100644
--- a/testsuite/modulefiles.4/tag/.modulerc
+++ b/testsuite/modulefiles.4/tag/.modulerc
@@ -138,5 +138,9 @@ if {[info exists env(TESTSUITE_FPMOD_TAG)]} {
         hide13 {
             module-hide --soft --hidden-loaded [file dirname $ModulesCurrentModulefile]/1.0
         }
+        info1 {
+            module-tag foo [file dirname $ModulesCurrentModulefile]/1.0
+            module-tag bar [file dirname $ModulesCurrentModulefile]/1.0
+        }
     }
 }
diff --git a/testsuite/modulefiles.4/tag/1.0 b/testsuite/modulefiles.4/tag/1.0
index e2b306d1..8c7976b4 100644
--- a/testsuite/modulefiles.4/tag/1.0
+++ b/testsuite/modulefiles.4/tag/1.0
@@ -15,5 +15,9 @@ if {[info exists env(TESTSUITE_FPMOD_TAG)]} {
         hide4 - hide5 {
             module-whatis [module-info name]
         }
+        info1 {
+            setenv FOO [module-info tags]
+            setenv BAR [module-info tags bar]
+        }
     }
 }
diff --git a/testsuite/modules.50-cmds/441-module-tag-full-path.exp b/testsuite/modules.50-cmds/441-module-tag-full-path.exp
index d97452e8..5b09a181 100644
--- a/testsuite/modules.50-cmds/441-module-tag-full-path.exp
+++ b/testsuite/modules.50-cmds/441-module-tag-full-path.exp
@@ -397,6 +397,22 @@ if {$plus_in_modpath && $install_advversspec eq {y}} {
 setenv_var MODULERCFILE $ORIG_MODULERCFILE
 
 
+#
+# full path tag set and module-info tags queries
+#
+
+setenv_var TESTSUITE_FPMOD_TAG info1
+
+set ans [list]
+lappend ans [list set FOO {bar foo}]
+lappend ans [list set BAR 1]
+lappend ans [list set _LMFILES_ $mp/tag/1.0]
+lappend ans [list set LOADEDMODULES tag/1.0]
+lappend ans [list set __MODULES_LMTAG tag/1.0&foo&bar]
+set tserr [msg_load {tag/1.0 <bar:foo>}]
+testouterr_cmd sh {load -v tag/1.0} $ans $tserr
+
+
 #
 #  Cleanup
 #