summaryrefslogtreecommitdiffstats
path: root/tests/trace.test
diff options
context:
space:
mode:
authornijtmans <nijtmans>2008-07-19 22:50:38 (GMT)
committernijtmans <nijtmans>2008-07-19 22:50:38 (GMT)
commit421f74b6e684727db193b1b1fc1e3a9649f86f58 (patch)
treec042d36466266a5022288e3db7d8d9a7dc6e81be /tests/trace.test
parent9c9a7764a3a00160ff48011547624ecf659a3dc9 (diff)
downloadtcl-421f74b6e684727db193b1b1fc1e3a9649f86f58.zip
tcl-421f74b6e684727db193b1b1fc1e3a9649f86f58.tar.gz
tcl-421f74b6e684727db193b1b1fc1e3a9649f86f58.tar.bz2
fix [2021443] inconsistant "wrong # args" messages
Diffstat (limited to 'tests/trace.test')
-rw-r--r--tests/trace.test8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/trace.test b/tests/trace.test
index 20a797d..4d924e2 100644
--- a/tests/trace.test
+++ b/tests/trace.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: trace.test,v 1.61 2007/12/13 15:26:07 dgp Exp $
+# RCS: @(#) $Id: trace.test,v 1.62 2008/07/19 22:50:38 nijtmans Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -857,13 +857,13 @@ foreach type {variable command} {
test trace-14.1 "trace command, wrong # args errors" {
list [catch {trace} msg] $msg
-} [list 1 "wrong # args: should be \"trace option ?arg arg ...?\""]
+} [list 1 "wrong # args: should be \"trace option ?arg ...?\""]
test trace-14.2 "trace command, wrong # args errors" {
list [catch {trace add} msg] $msg
-} [list 1 "wrong # args: should be \"trace add type ?arg arg ...?\""]
+} [list 1 "wrong # args: should be \"trace add type ?arg ...?\""]
test trace-14.3 "trace command, wrong # args errors" {
list [catch {trace remove} msg] $msg
-} [list 1 "wrong # args: should be \"trace remove type ?arg arg ...?\""]
+} [list 1 "wrong # args: should be \"trace remove type ?arg ...?\""]
test trace-14.4 "trace command, wrong # args errors" {
list [catch {trace info} msg] $msg
} [list 1 "wrong # args: should be \"trace info type name\""]