diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-05-23 13:12:38 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-05-23 13:12:38 (GMT) |
| commit | 18b4a3f8c3f6ba1af8983ba3143a77078650eb86 (patch) | |
| tree | 1344d403d5ecac72e91633f8b075148a2a3cff79 /tests/send.test | |
| parent | 47f808952dd2ca871d78ad1c4af0b2f78739afb0 (diff) | |
| download | tk-18b4a3f8c3f6ba1af8983ba3143a77078650eb86.zip tk-18b4a3f8c3f6ba1af8983ba3143a77078650eb86.tar.gz tk-18b4a3f8c3f6ba1af8983ba3143a77078650eb86.tar.bz2 | |
Make "send" (and "testsend") use the Tcl_Obj API.
Diffstat (limited to 'tests/send.test')
| -rw-r--r-- | tests/send.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/send.test b/tests/send.test index e3156a1..2a564bd 100644 --- a/tests/send.test +++ b/tests/send.test @@ -14,6 +14,7 @@ package require tcltest 2.1 eval tcltest::configure $argv tcltest::loadTestedCommands +testConstraint secureserver 1 testConstraint xhost [llength [auto_execok xhost]] # Compute a script that will load Tk into a child interpreter. @@ -227,7 +228,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 ...?"}} |