diff options
| author | ericm <ericm> | 2000-08-07 21:49:15 (GMT) |
|---|---|---|
| committer | ericm <ericm> | 2000-08-07 21:49:15 (GMT) |
| commit | e044e74cd1def551ad2923a29ada62a79582b1e6 (patch) | |
| tree | a551a35deb26a51e03dd25d179cef33971158fcf /tests/select.test | |
| parent | f917768b4785f69c4e85f629d10ccf7adf5ab33c (diff) | |
| download | tk-e044e74cd1def551ad2923a29ada62a79582b1e6.zip tk-e044e74cd1def551ad2923a29ada62a79582b1e6.tar.gz tk-e044e74cd1def551ad2923a29ada62a79582b1e6.tar.bz2 | |
* generic/tkWindow.c: Updated [selection] command entry to use
new Tcl_Obj interface.
* generic/tkInt.h: Replaced Tk_SelectionCmd prototype with
Tk_SelectionObjCmd prototype.
* tests/select.test: Updated test suite to recognize standardized
error messages.
* generic/tkSelect.c (Tk_SelectionObjCmd): Tcl_Obj'ified
[selection] command.
Diffstat (limited to 'tests/select.test')
| -rw-r--r-- | tests/select.test | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/tests/select.test b/tests/select.test index c367175..4879a15 100644 --- a/tests/select.test +++ b/tests/select.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: select.test,v 1.4 1999/12/14 06:53:14 hobbs Exp $ +# RCS: @(#) $Id: select.test,v 1.5 2000/08/07 21:49:17 ericm Exp $ # # Note: Multiple display selection handling will only be tested if the @@ -555,10 +555,10 @@ test select-6.5 {Tk_SelectionCmd procedure} { } {.f1 . .f1 {}} test select-6.6 {Tk_SelectionCmd procedure} { list [catch {selection clear -badopt foo} cmd] $cmd -} {1 {unknown option "-badopt"}} +} {1 {bad option "-badopt": must be -displayof or -selection}} test select-6.7 {Tk_SelectionCmd procedure} { list [catch {selection clear -selectionfoo foo} cmd] $cmd -} {1 {unknown option "-selectionfoo"}} +} {1 {bad option "-selectionfoo": must be -displayof or -selection}} test select-6.8 {Tk_SelectionCmd procedure} { catch {destroy .f2} list [catch {selection clear -displayof .f2} cmd] $cmd @@ -617,10 +617,10 @@ test select-6.16 {Tk_SelectionCmd procedure} { } {{Test value} {TEST 0 4000}} test select-6.17 {Tk_SelectionCmd procedure} { list [catch {selection get -badopt foo} cmd] $cmd -} {1 {unknown option "-badopt"}} +} {1 {bad option "-badopt": must be -displayof, -selection, or -type}} test select-6.18 {Tk_SelectionCmd procedure} { list [catch {selection get -selectionfoo foo} cmd] $cmd -} {1 {unknown option "-selectionfoo"}} +} {1 {bad option "-selectionfoo": must be -displayof, -selection, or -type}} test select-6.19 {Tk_SelectionCmd procedure} { catch { destroy .f2 } list [catch {selection get -displayof .f2} cmd] $cmd @@ -652,10 +652,10 @@ test select-6.23 {Tk_SelectionCmd procedure} { } {{} {Test value} {TEST 0 4000}} test select-6.24 {Tk_SelectionCmd procedure} { list [catch {selection handle -badopt foo} cmd] $cmd -} {1 {unknown option "-badopt"}} +} {1 {bad option "-badopt": must be -format, -selection, or -type}} test select-6.25 {Tk_SelectionCmd procedure} { list [catch {selection handle -selectionfoo foo} cmd] $cmd -} {1 {unknown option "-selectionfoo"}} +} {1 {bad option "-selectionfoo": must be -format, -selection, or -type}} test select-6.26 {Tk_SelectionCmd procedure} { list [catch {selection handle} cmd] $cmd } {1 {wrong # args: should be "selection handle ?options? window command"}} @@ -697,10 +697,10 @@ test select-6.33 {Tk_SelectionCmd procedure} { } {owned lost} test select-6.34 {Tk_SelectionCmd procedure} { list [catch {selection own -badopt foo} cmd] $cmd -} {1 {unknown option "-badopt"}} +} {1 {bad option "-badopt": must be -command, -displayof, or -selection}} test select-6.35 {Tk_SelectionCmd procedure} { list [catch {selection own -selectionfoo foo} cmd] $cmd -} {1 {unknown option "-selectionfoo"}} +} {1 {bad option "-selectionfoo": must be -command, -displayof, or -selection}} test select-6.36 {Tk_SelectionCmd procedure} { catch {destroy .f2} list [catch {selection own -displayof .f2} cmd] $cmd |