diff options
author | dkf <dkf@noemail.net> | 2009-07-20 23:08:38 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2009-07-20 23:08:38 (GMT) |
commit | 3ede6ea642fdb7834f427c1e4e9c1ea80cff196a (patch) | |
tree | 6835ff8e85e259c3b4d6589ba37fd2494c30ebcb /tests/select.test | |
parent | 0acf9b42dfa3dc04ac05ae1d2736869ec35a02d8 (diff) | |
download | tk-3ede6ea642fdb7834f427c1e4e9c1ea80cff196a.zip tk-3ede6ea642fdb7834f427c1e4e9c1ea80cff196a.tar.gz tk-3ede6ea642fdb7834f427c1e4e9c1ea80cff196a.tar.bz2 |
More fixes for [Bug 2824378]
FossilOrigin-Name: ee7271d00a06b8ccf0e91ceb10fb5df9227330fc
Diffstat (limited to 'tests/select.test')
-rw-r--r-- | tests/select.test | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/tests/select.test b/tests/select.test index 9ae67ce..37d6562 100644 --- a/tests/select.test +++ b/tests/select.test @@ -1,12 +1,12 @@ # This file is a Tcl script to test out Tk's selection management code, -# especially the "selection" command. It is organized in the standard -# fashion for Tcl tests. +# especially the "selection" command. It is organized in the standard fashion +# for Tcl tests. # # Copyright (c) 1994 Sun Microsystems, Inc. # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: select.test,v 1.18 2008/08/28 08:52:05 aniap Exp $ +# RCS: @(#) $Id: select.test,v 1.19 2009/07/20 23:08:38 dkf Exp $ # # Note: Multiple display selection handling will only be tested if the @@ -111,7 +111,7 @@ foreach i {a b c d e f g j h i j k l m o p q r s t u v w x y z} { } # Now we start the main body of the test code - + test select-1.1 {Tk_CreateSelHandler procedure} -body { setup lsort [selection get TARGETS] @@ -812,7 +812,7 @@ test select-9.1 {SelCvtToX and SelCvtFromX procedures} -setup { lappend result [dobg {selection get TEST}] cleanupbg lappend result $selInfo -} -result {0x400 {TEST 0 4000}} +} -result {{0x400 } {TEST 0 4000}} test select-9.2 {SelCvtToX and SelCvtFromX procedures} -constraints unix -body { setup setupbg @@ -824,7 +824,7 @@ test select-9.2 {SelCvtToX and SelCvtFromX procedures} -constraints unix -body { lappend result [dobg {selection get TEST}] cleanupbg lappend result $selInfo -} -result {{0x400 0xffff 0x800 0xfffffffe} {TEST 0 4000}} +} -result {{0x400 0xffff 0x800 0xfffffffe } {TEST 0 4000}} test select-9.3 {SelCvtToX and SelCvtFromX procedures} -constraints unix -body { setup setupbg @@ -836,7 +836,7 @@ test select-9.3 {SelCvtToX and SelCvtFromX procedures} -constraints unix -body { lappend result [dobg {selection get TEST}] cleanupbg lappend result $selInfo -} -result {{} {TEST 0 4000}} +} -result {{ } {TEST 0 4000}} test select-9.4 {SelCvtToX and SelCvtFromX procedures} -constraints unix -body { setup setupbg @@ -848,7 +848,7 @@ test select-9.4 {SelCvtToX and SelCvtFromX procedures} -constraints unix -body { lappend result [dobg {selection get TEST}] cleanupbg lappend result $selInfo -} -result {{0x10 0x0 0x20} {TEST 0 4000}} +} -result {{0x10 0x0 0x20 } {TEST 0 4000}} test select-9.5 {SelCvtToX and SelCvtFromX procedures} -setup { setup setupbg @@ -866,7 +866,6 @@ test select-9.5 {SelCvtToX and SelCvtFromX procedures} -setup { } -result {MULTIPLE TARGETS TIMESTAMP TK_APPLICATION TK_WINDOW {text/x-tk-test;detail="foo bar"}} ############################################################################## - # note, we are not testing MULTIPLE style selections # most control paths have been exercised above @@ -1000,7 +999,7 @@ test select-12.1 {DefaultSelection procedure} -constraints unix -body { lappend result [dobg {selection get -type TIMESTAMP}] cleanupbg set result -} -result {0x0 0x0} +} -result {0x0 {0x0 }} test select-12.2 {DefaultSelection procedure} -constraints unix -body { setup set result [lsort [list [selection get -type TARGETS]]] @@ -1046,7 +1045,6 @@ test select-12.6 {DefaultSelection procedure} -body { lappend result [selection get TARGETS] } -result {{Targets value} {TARGETS.f1 0 4000} {MULTIPLE TARGETS TIMESTAMP TK_APPLICATION TK_WINDOW}} - test select-13.1 {SelectionSize procedure, handler deleted} -constraints { unix } -setup { @@ -1075,10 +1073,13 @@ test select-13.1 {SelectionSize procedure, handler deleted} -constraints { cleanupbg lappend result $selInfo } -result {{PRIMARY selection doesn't exist or form "STRING" not defined} {.f1 STRING 0 4000 .f1 STRING 4000 4000}} - + catch {rename weirdHandler {}} # cleanup cleanupTests return +# Local Variables: +# mode: tcl +# End: |