summaryrefslogtreecommitdiffstats
path: root/tests/send.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2014-05-26 20:09:04 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2014-05-26 20:09:04 (GMT)
commit8414099b7a1df5a198e52e6184d753ba980d63bc (patch)
tree0cfff9d02e4b3532d90881062a81e545dfebb63c /tests/send.test
parentff98b3b125c4a9b171f4e810c4724bd5f80dad26 (diff)
parenta8ef8cc3e5d42c9f2c1be32d8cd9de92b0d80012 (diff)
downloadtk-8414099b7a1df5a198e52e6184d753ba980d63bc.zip
tk-8414099b7a1df5a198e52e6184d753ba980d63bc.tar.gz
tk-8414099b7a1df5a198e52e6184d753ba980d63bc.tar.bz2
Make "send" (and "testsend") use the Tcl_Obj API.
Diffstat (limited to 'tests/send.test')
-rw-r--r--tests/send.test2
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 ...?"}}