From 486991a2b4e52ad8c72fac17bcfd7b59d7d4a429 Mon Sep 17 00:00:00 2001
From: Xavier Delaruelle <xavier.delaruelle@cea.fr>
Date: Sun, 9 Jan 2022 18:01:21 +0100
Subject: [PATCH] ts: test prestdout channel on puts command in 50/311

---
 testsuite/modulefiles.3/puts/prestdout        |  20 +++
 .../modules.50-cmds/311-puts-prestdout.exp    | 134 ++++++++++++++++++
 2 files changed, 154 insertions(+)
 create mode 100644 testsuite/modulefiles.3/puts/prestdout
 create mode 100644 testsuite/modules.50-cmds/311-puts-prestdout.exp

diff --git a/testsuite/modulefiles.3/puts/prestdout b/testsuite/modulefiles.3/puts/prestdout
new file mode 100644
index 00000000..791ba8e3
--- /dev/null
+++ b/testsuite/modulefiles.3/puts/prestdout
@@ -0,0 +1,20 @@
+#%Module
+if {[module-info mode] in {load unload display} && [info exists ::env(TESTSUITE_PUTS)]} {
+    switch -- $::env(TESTSUITE_PUTS) {
+        prestdout1 {
+            puts prestdout textpreout1
+        }
+        prestdout2 {
+            puts stdout textout1
+            puts prestdout textpreout1
+            puts -nonewline prestdout1
+            puts prestdout2
+        }
+        prestdout3 {
+            puts -nonewline prestdout textpreout1
+            puts -nonewline prestdout textpreout2
+        }
+    }
+}
+
+setenv testsuite ok
diff --git a/testsuite/modules.50-cmds/311-puts-prestdout.exp b/testsuite/modules.50-cmds/311-puts-prestdout.exp
new file mode 100644
index 00000000..b17a5e44
--- /dev/null
+++ b/testsuite/modules.50-cmds/311-puts-prestdout.exp
@@ -0,0 +1,134 @@
+##############################################################################
+#   Modules Revision 3.0
+#   Providing a flexible user environment
+#
+#   File:       modules.50-cmds/%M%
+#   Revision:       %I%
+#   First Edition:  2022/01/09
+#   Last Mod.:      %U%, %G%
+#
+#   Authors:        Xavier Delaruelle, xavier.delaruelle@cea.fr
+#
+#   Description:    Testuite testsequence
+#   Command:        load
+#   Modulefiles:    puts
+#   Sub-Command:
+#
+#   Comment:    %C{
+#           Test puts modulefile command on prestdout channel
+#       }C%
+#
+##############################################################################
+
+set mp $modpath.3
+set mpre $modpathre.3
+setenv_path_var MODULEPATH $mp
+
+set mod puts/prestdout
+set modfile $mp/$mod
+set modfilere $mpre/$mod
+
+
+setenv_var TESTSUITE_PUTS prestdout1
+
+# test loading
+set ans [list]
+lappend ans [list out textpreout1]
+if {$install_advversspec eq {y}} {
+    lappend ans [list set __MODULES_LMALTNAME $mod&as|puts/default&as|puts/latest]
+}
+lappend ans [list set _LMFILES_ $modfile]
+lappend ans [list set LOADEDMODULES $mod]
+lappend ans [list set testsuite ok]
+testouterr_cmd sh "load $mod" $ans {}
+
+# test displaying
+set ans [list]
+lappend ans [list out textpreout1]
+set tserr "$modlin\n$modfilere:\n\nsetenv\t\ttestsuite ok\n$modlin"
+testouterr_cmd_re sh "display $mod" $ans $tserr
+
+# test unloading
+setenv_loaded_module [list $mod] [list $modfile]
+set ans [list]
+lappend ans [list out textpreout1]
+lappend ans [list unset _LMFILES_]
+lappend ans [list unset LOADEDMODULES]
+lappend ans [list unset testsuite]
+testouterr_cmd sh "unload $mod" $ans {}
+unsetenv_loaded_module
+
+skip_if_quick_mode
+
+
+setenv_var TESTSUITE_PUTS prestdout2
+
+# test loading
+set ans [list]
+lappend ans [list out textpreout1]
+if {$install_advversspec eq {y}} {
+    lappend ans [list set __MODULES_LMALTNAME $mod&as|puts/default&as|puts/latest]
+}
+lappend ans [list set _LMFILES_ $modfile]
+lappend ans [list set LOADEDMODULES $mod]
+lappend ans [list set testsuite ok]
+lappend ans [list out textout1]
+lappend ans [list out prestdout1prestdout2]
+testouterr_cmd sh "load $mod" $ans {}
+
+# test displaying
+set ans [list]
+lappend ans [list out textpreout1]
+lappend ans [list out textout1]
+lappend ans [list out prestdout1prestdout2]
+set tserr "$modlin\n$modfilere:\n\nsetenv\t\ttestsuite ok\n$modlin"
+testouterr_cmd_re sh "display $mod" $ans $tserr
+
+# test unloading
+setenv_loaded_module [list $mod] [list $modfile]
+set ans [list]
+lappend ans [list out textpreout1]
+lappend ans [list unset _LMFILES_]
+lappend ans [list unset LOADEDMODULES]
+lappend ans [list unset testsuite]
+lappend ans [list out textout1]
+lappend ans [list out prestdout1prestdout2]
+testouterr_cmd sh "unload $mod" $ans {}
+unsetenv_loaded_module
+
+
+setenv_var TESTSUITE_PUTS prestdout3
+
+# test loading
+set ans [list]
+lappend ans [list out textpreout1textpreout2]
+if {$install_advversspec eq {y}} {
+    lappend ans [list set __MODULES_LMALTNAME $mod&as|puts/default&as|puts/latest]
+}
+lappend ans [list set _LMFILES_ $modfile]
+lappend ans [list set LOADEDMODULES $mod]
+lappend ans [list set testsuite ok]
+testouterr_cmd sh "load $mod" $ans {}
+
+# test displaying
+set ans [list]
+lappend ans [list out textpreout1textpreout2]
+set tserr "$modlin\n$modfilere:\n\nsetenv\t\ttestsuite ok\n$modlin"
+testouterr_cmd_re sh "display $mod" $ans $tserr
+
+# test unloading
+setenv_loaded_module [list $mod] [list $modfile]
+set ans [list]
+lappend ans [list out textpreout1textpreout2]
+lappend ans [list unset _LMFILES_]
+lappend ans [list unset LOADEDMODULES]
+lappend ans [list unset testsuite]
+testouterr_cmd sh "unload $mod" $ans {}
+unsetenv_loaded_module
+
+
+#
+#  Cleanup
+#
+
+reset_test_env