diff options
| -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: |