diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/select.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/select.test b/tests/select.test index 1c072da..cdc95b6 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.16 2005/11/13 21:58:16 dkf Exp $ +# RCS: @(#) $Id: select.test,v 1.16.4.1 2009/07/20 23:10:05 dkf Exp $ # # Note: Multiple display selection handling will only be tested if the @@ -796,7 +796,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} unix { setup setupbg @@ -808,7 +808,7 @@ test select-9.2 {SelCvtToX and SelCvtFromX procedures} unix { lappend result [dobg {selection get TEST}] cleanupbg lappend result $selInfo -} {{0x400 0xffff 0x800 0xfffffffe} {TEST 0 4000}} +} {{0x400 0xffff 0x800 0xfffffffe } {TEST 0 4000}} test select-9.3 {SelCvtToX and SelCvtFromX procedures} unix { setup setupbg @@ -820,7 +820,7 @@ test select-9.3 {SelCvtToX and SelCvtFromX procedures} unix { lappend result [dobg {selection get TEST}] cleanupbg lappend result $selInfo -} {{} {TEST 0 4000}} +} {{ } {TEST 0 4000}} test select-9.4 {SelCvtToX and SelCvtFromX procedures} unix { setup setupbg @@ -832,7 +832,7 @@ test select-9.4 {SelCvtToX and SelCvtFromX procedures} unix { lappend result [dobg {selection get TEST}] cleanupbg lappend result $selInfo -} {{0x10 0x0 0x20} {TEST 0 4000}} +} {{0x10 0x0 0x20 } {TEST 0 4000}} test select-9.5 {SelCvtToX and SelCvtFromX procedures} -setup { setup setupbg @@ -971,7 +971,7 @@ test select-12.1 {DefaultSelection procedure} unix { lappend result [dobg {selection get -type TIMESTAMP}] cleanupbg set result -} {0x0 0x0} +} {0x0 {0x0 }} test select-12.2 {DefaultSelection procedure} unix { setup set result [lsort [list [selection get -type TARGETS]]] |