ts: test tag extra specifier with modfile definitions

xdelaruelle · xdelaruelle · commit 2ad90ec7b959 · 2025-03-31T21:28:17.000+02:00
Signed-off-by: Xavier Delaruelle &lt;xavier.delaruelle@cea.fr&gt;
diff --git a/testsuite/modulefiles.4/extra/1.0 b/testsuite/modulefiles.4/extra/1.0
@@ -330,5 +330,11 @@ if {[info exists env(TESTSUITE_EXTRA)]} {
             setenv TESTSUITE_EXTRA_INREF ir2
             append-path MODULEPATH /path/to/d\$TESTSUITE_EXTRA_INREF
         }
+        tag5 {
+            module-tag xtfoo [module-info name]
+        }
+        tag6 {
+            add-property name xtfoo
+        }
     }
 }
diff --git a/testsuite/modules.51-scan/044-extra_spec-tag.exp b/testsuite/modules.51-scan/044-extra_spec-tag.exp
@@ -97,6 +97,18 @@ set tserr {extra/1.0 <xtfoo>}
 testouterr_cmd sh {avail -t extra tag:xtfoo} OK $tserr
 
 
+setenv_var TESTSUITE_EXTRA tag5
+
+# tag defined in modulefiles are not found currently
+testouterr_cmd sh {avail -t extra tag:xtfoo} OK {}
+
+
+setenv_var TESTSUITE_EXTRA tag6
+
+# tag defined in modulefiles are not found currently
+testouterr_cmd sh {avail -t extra tag:xtfoo} OK {}
+
+
 #
 #  Cleanup
 #

Original file line number	Diff line number	Diff line change
`@@ -330,5 +330,11 @@ if {[info exists env(TESTSUITE_EXTRA)]} {`
`330`	`330`	`setenv TESTSUITE_EXTRA_INREF ir2`
`331`	`331`	`append-path MODULEPATH /path/to/d\$TESTSUITE_EXTRA_INREF`
`332`	`332`	`}`
	`333`	`+ tag5 {`
	`334`	`+ module-tag xtfoo [module-info name]`
	`335`	`+ }`
	`336`	`+ tag6 {`
	`337`	`+ add-property name xtfoo`
	`338`	`+ }`
`333`	`339`	`}`
`334`	`340`	`}`