diff options
author | nijtmans <nijtmans> | 2008-07-19 22:50:38 (GMT) |
---|---|---|
committer | nijtmans <nijtmans> | 2008-07-19 22:50:38 (GMT) |
commit | 421f74b6e684727db193b1b1fc1e3a9649f86f58 (patch) | |
tree | c042d36466266a5022288e3db7d8d9a7dc6e81be /tests/timer.test | |
parent | 9c9a7764a3a00160ff48011547624ecf659a3dc9 (diff) | |
download | tcl-421f74b6e684727db193b1b1fc1e3a9649f86f58.zip tcl-421f74b6e684727db193b1b1fc1e3a9649f86f58.tar.gz tcl-421f74b6e684727db193b1b1fc1e3a9649f86f58.tar.bz2 |
fix [2021443] inconsistant "wrong # args" messages
Diffstat (limited to 'tests/timer.test')
-rw-r--r-- | tests/timer.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/timer.test b/tests/timer.test index 16eff33..76be883 100644 --- a/tests/timer.test +++ b/tests/timer.test @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: timer.test,v 1.13 2008/04/23 15:44:38 dkf Exp $ +# RCS: @(#) $Id: timer.test,v 1.14 2008/07/19 22:50:39 nijtmans Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -188,7 +188,7 @@ test timer-5.1 {Tcl_ServiceIdle, self-rescheduling handlers} -setup { test timer-6.1 {Tcl_AfterCmd procedure, basics} -returnCodes error -body { after -} -result {wrong # args: should be "after option ?arg arg ...?"} +} -result {wrong # args: should be "after option ?arg ...?"} test timer-6.2 {Tcl_AfterCmd procedure, basics} -returnCodes error -body { after 2x } -result {bad argument "2x": must be cancel, idle, info, or an integer} @@ -327,7 +327,7 @@ test timer-6.15 {Tcl_AfterCmd procedure, cancel option, multiple interps} -setup } -result {2 0 aaa bbb {before b-after}} test timer-6.16 {Tcl_AfterCmd procedure, idle option} -body { after idle -} -returnCodes error -result {wrong # args: should be "after idle script script ..."} +} -returnCodes error -result {wrong # args: should be "after idle script ?script ...?"} test timer-6.17 {Tcl_AfterCmd procedure, idle option} { set x before after idle {set x after} |