summaryrefslogtreecommitdiffstats
path: root/tests/unload.test
diff options
context:
space:
mode:
authornijtmans <nijtmans>2008-07-21 21:25:21 (GMT)
committernijtmans <nijtmans>2008-07-21 21:25:21 (GMT)
commit35f986c4f26a93c0b5a0f91c81deaea2a1e5f30f (patch)
tree1e36dc0aa27335f1696429c74cc680263b1c9a06 /tests/unload.test
parentca32e49e84dd1c4b6f27fac6eb8a747cd699d864 (diff)
downloadtcl-35f986c4f26a93c0b5a0f91c81deaea2a1e5f30f.zip
tcl-35f986c4f26a93c0b5a0f91c81deaea2a1e5f30f.tar.gz
tcl-35f986c4f26a93c0b5a0f91c81deaea2a1e5f30f.tar.bz2
fix [2021443] inconsistant "wrong # args" messages (follow-up)
Diffstat (limited to 'tests/unload.test')
-rw-r--r--tests/unload.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/unload.test b/tests/unload.test
index 761f05c..b61e4cc 100644
--- a/tests/unload.test
+++ b/tests/unload.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: unload.test,v 1.7 2008/04/23 15:44:38 dkf Exp $
+# RCS: @(#) $Id: unload.test,v 1.8 2008/07/21 21:25:22 nijtmans Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -43,10 +43,10 @@ testConstraint teststaticpkg [llength [info commands teststaticpkg]]
# Basic tests: parameter testing...
test unload-1.1 {basic errors} -returnCodes error -body {
unload
-} -result {wrong # args: should be "unload ?switches? fileName ?packageName? ?interp?"}
+} -result {wrong # args: should be "unload ?-switch ...? fileName ?packageName? ?interp?"}
test unload-1.2 {basic errors} -returnCodes error -body {
unload a b c d
-} -result {wrong # args: should be "unload ?switches? fileName ?packageName? ?interp?"}
+} -result {wrong # args: should be "unload ?-switch ...? fileName ?packageName? ?interp?"}
test unload-1.3 {basic errors} -returnCodes error -body {
unload a b foobar
} -result {could not find interpreter "foobar"}