diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-05-26 20:09:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-05-26 20:09:04 (GMT) |
| commit | 8414099b7a1df5a198e52e6184d753ba980d63bc (patch) | |
| tree | 0cfff9d02e4b3532d90881062a81e545dfebb63c /tests | |
| parent | ff98b3b125c4a9b171f4e810c4724bd5f80dad26 (diff) | |
| parent | a8ef8cc3e5d42c9f2c1be32d8cd9de92b0d80012 (diff) | |
| download | tk-8414099b7a1df5a198e52e6184d753ba980d63bc.zip tk-8414099b7a1df5a198e52e6184d753ba980d63bc.tar.gz tk-8414099b7a1df5a198e52e6184d753ba980d63bc.tar.bz2 | |
Make "send" (and "testsend") use the Tcl_Obj API.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/constraints.tcl | 1 | ||||
| -rw-r--r-- | tests/send.test | 2 |
2 files changed, 1 insertions, 2 deletions
diff --git a/tests/constraints.tcl b/tests/constraints.tcl index e28b159..535d839 100644 --- a/tests/constraints.tcl +++ b/tests/constraints.tcl @@ -207,7 +207,6 @@ testConstraint testembed [llength [info commands testembed]] testConstraint testfont [llength [info commands testfont]] testConstraint testmakeexist [llength [info commands testmakeexist]] testConstraint testmenubar [llength [info commands testmenubar]] -testConstraint testmenubar [llength [info commands testmenubar]] testConstraint testmetrics [llength [info commands testmetrics]] testConstraint testobjconfig [llength [info commands testobjconfig]] testConstraint testsend [llength [info commands testsend]] 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 ...?"}} |