diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2014-05-26 20:09:04 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2014-05-26 20:09:04 (GMT) |
| commit | 648d0230712dc09155b7b588e0cfae10e80a3bc3 (patch) | |
| tree | 0cfff9d02e4b3532d90881062a81e545dfebb63c /tests/send.test | |
| parent | 96fa57c773f3e032abb69bdf40c6eb128daf2c28 (diff) | |
| parent | aa3be9bbf1ba4711825544d2cb9df7835582e511 (diff) | |
| download | tk-648d0230712dc09155b7b588e0cfae10e80a3bc3.zip tk-648d0230712dc09155b7b588e0cfae10e80a3bc3.tar.gz tk-648d0230712dc09155b7b588e0cfae10e80a3bc3.tar.bz2 | |
Make "send" (and "testsend") use the Tcl_Obj API.
Diffstat (limited to 'tests/send.test')
| -rw-r--r-- | tests/send.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/send.test b/tests/send.test index e3156a1..945d4d0 100644 --- a/tests/send.test +++ b/tests/send.test @@ -227,7 +227,7 @@ test send-8.3 {Tk_SendCmd procedure, options} {secureserver} { } {1 {no application named "-async"}} test send-8.4 {Tk_SendCmd procedure, options} {secureserver} { list [catch {send -gorp foo bar baz} msg] $msg -} {1 {bad option "-gorp": must be -async, -displayof, or --}} +} {1 {no application named "-gorp"}} test send-8.5 {Tk_SendCmd procedure, options} {secureserver} { list [catch {send -async foo} msg] $msg } {1 {wrong # args: should be "send ?-option value ...? interpName arg ?arg ...?"}} |