From 8ce2c0bf69e40cf0d86ce1f2c04fc57eb00a70d3 Mon Sep 17 00:00:00 2001
From: Xavier Delaruelle <xavier.delaruelle@cea.fr>
Date: Sat, 27 Nov 2021 21:29:46 +0100
Subject: [PATCH] ts: test ModuleVersion in 20/120

---
 testsuite/modulefiles.3/lcompat/.version      | 18 +++++
 .../modules.20-locate/120-moduleversion.exp   | 73 +++++++++++++++++++
 2 files changed, 91 insertions(+)
 create mode 100644 testsuite/modulefiles.3/lcompat/.version
 create mode 100644 testsuite/modules.20-locate/120-moduleversion.exp

diff --git a/testsuite/modulefiles.3/lcompat/.version b/testsuite/modulefiles.3/lcompat/.version
new file mode 100644
index 00000000..c331a4cc
--- /dev/null
+++ b/testsuite/modulefiles.3/lcompat/.version
@@ -0,0 +1,18 @@
+#%Module
+
+if {[info exists env(TESTSUITE_LCOMPAT)]} {
+    switch -- $env(TESTSUITE_LCOMPAT) {
+        modvers1 {
+            set ModuleVersion 1.0
+        }
+        modvers2 {
+            set ModulesVersion 2.0
+            set ModuleVersion 1.0
+        }
+        modvers3 {
+            set ModuleVersion 2.0
+            set ModulesVersion 1.0
+        }
+    }
+}
+
diff --git a/testsuite/modules.20-locate/120-moduleversion.exp b/testsuite/modules.20-locate/120-moduleversion.exp
new file mode 100644
index 00000000..d3be460f
--- /dev/null
+++ b/testsuite/modules.20-locate/120-moduleversion.exp
@@ -0,0 +1,73 @@
+##############################################################################
+#   Modules Revision 3.0
+#   Providing a flexible user environment
+#
+#   File:		modules.50-cmds/%M%
+#   Revision:		%I%
+#   First Edition:	2021/11/27
+#   Last Mod.:		%U%, %G%
+#
+#   Authors:		Xavier Delaruelle, xavier.delaruelle@cea.fr
+#
+#   Description:	Testuite testsequence
+#   Command:		load, unload, display, help, test, whatis, refresh, avail
+#   Modulefiles:    lcompat
+#   Sub-Command:
+#
+#   Comment:	%C{
+#           Test ModuleVersion modulefile variable
+#		}C%
+#
+##############################################################################
+
+skip_if_quick_mode
+
+set mp $modpath.3
+set mpre $modpathre.3
+setenv_path_var MODULEPATH $mp
+
+set mod lcompat/1.0
+set modfile $mp/$mod
+set modfilere $mpre/$mod
+
+
+setenv_var TESTSUITE_LCOMPAT modvers1
+
+set tserr "$mp:\n$mod\(default\)"
+testouterr_cmd sh "avail -t $mod" OK $tserr
+
+set ans [list]
+lappend ans [list set __MODULES_LMALTNAME $mod&lcompat/default&lcompat]
+lappend ans [list set _LMFILES_ $modfile]
+lappend ans [list set LOADEDMODULES $mod]
+testouterr_cmd sh "load lcompat" $ans {}
+
+
+setenv_var TESTSUITE_LCOMPAT modvers2
+set tserr "$mp:\n$mod\(default\)"
+testouterr_cmd sh "avail -t $mod" OK $tserr
+
+set ans [list]
+lappend ans [list set __MODULES_LMALTNAME $mod&lcompat/default&lcompat]
+lappend ans [list set _LMFILES_ $modfile]
+lappend ans [list set LOADEDMODULES $mod]
+testouterr_cmd sh "load lcompat" $ans {}
+
+
+setenv_var TESTSUITE_LCOMPAT modvers3
+
+set tserr "$mp:\n$mod\(default\)"
+testouterr_cmd sh "avail -t $mod" OK $tserr
+
+set ans [list]
+lappend ans [list set __MODULES_LMALTNAME $mod&lcompat/default&lcompat]
+lappend ans [list set _LMFILES_ $modfile]
+lappend ans [list set LOADEDMODULES $mod]
+testouterr_cmd sh "load lcompat" $ans {}
+
+
+#
+#  Cleanup
+#
+
+reset_test_env