testsuite: add 3-arg bad case test for putsModfileCmd

cea-hpc · Dec 9, 2017 · 943d3cc · 943d3cc
1 parent d7a9e7a
commit 943d3cc
Show file tree

Hide file tree

Showing 3 changed files with 109 additions and 66 deletions.
diff --git a/testsuite/modulefiles/puts/7 b/testsuite/modulefiles/puts/7
@@ -0,0 +1,30 @@
+#%Module1.0
+
+##############################################################################
+#   Modules Revision 3.0
+#   Providing a flexible user environment
+#
+#   File:		puts/%M%
+#   Revision:		%I%
+#   First Edition:	2017/12/09
+#   Last Mod.:		%U%, %G%
+#
+#   Authors:		Xavier Delaruelle, xavier.delaruelle@cea.fr
+#
+#   Description:	Testuite modulefile
+#   Command:
+#   Sub-Command:	puts
+#
+#   Invocation:		load @M@
+#   Result:	%R{
+#		}R%
+#   Comment:	%C{
+#			Check the 'puts' command
+#		}C%
+#			
+##############################################################################
+
+if {[module-info mode "load"] || [module-info mode "display"]} {
+    puts -badarg stdbad texterr2
+}
+setenv testsuite ok
diff --git a/testsuite/modules.50-cmds/310-puts.exp b/testsuite/modules.50-cmds/310-puts.exp
@@ -133,6 +133,19 @@ testouterr_cmd_re "sh" "load $module" "ERR" "$bad_puts"
 testouterr_cmd_re "sh" "display $module" "ERR" "$modlin\n$modulefilere:\n\n$bad_puts\n$modlin"
 
 
+set module "puts/7"
+set modulefilere "$modpathre/$module"
+set bad_puts "$moderr_msgs: wrong # args: should be \"puts \\\?-nonewline\\\? \\\?channelId\\\? string\"
+  In '$modulefilere'
+$err_contact"
+
+# test loading
+testouterr_cmd_re "sh" "load $module" "ERR" "$bad_puts"
+
+# test displaying
+testouterr_cmd_re "sh" "display $module" "ERR" "$modlin\n$modulefilere:\n\n$bad_puts\n$modlin"
+
+
 #
 #  Cleanup
 #