diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2009-07-20 23:10:05 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2009-07-20 23:10:05 (GMT) |
| commit | fd74dc82e69d244b919fa35be64a6a732d9baac5 (patch) | |
| tree | 11978fe64123ca10dfc73c67ce71054102e8746a /tests/select.test | |
| parent | 29934ebd3650954dbca2530318c98ec2ed6d54ba (diff) | |
| download | tk-fd74dc82e69d244b919fa35be64a6a732d9baac5.zip tk-fd74dc82e69d244b919fa35be64a6a732d9baac5.tar.gz tk-fd74dc82e69d244b919fa35be64a6a732d9baac5.tar.bz2 | |
More fixes for [Bug 2824378]
Diffstat (limited to 'tests/select.test')
| -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]]] |