diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2005-11-22 11:32:35 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2005-11-22 11:32:35 (GMT) |
| commit | d8d6f63a208246d2f1b9366a3c009b0438e84e28 (patch) | |
| tree | a90c2e014e2a1d92cda19a88347eaa9f722e56f2 /tests/select.test | |
| parent | f0d62bb7554a60f4229c29e7f8bcd6150fb3a044 (diff) | |
| download | tk-d8d6f63a208246d2f1b9366a3c009b0438e84e28.zip tk-d8d6f63a208246d2f1b9366a3c009b0438e84e28.tar.gz tk-d8d6f63a208246d2f1b9366a3c009b0438e84e28.tar.bz2 | |
Backport of fixes for [Bug 1353414]
Diffstat (limited to 'tests/select.test')
| -rw-r--r-- | tests/select.test | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/tests/select.test b/tests/select.test index 0e24c7c..4e63f9b 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.9 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: select.test,v 1.9.2.1 2005/11/22 11:32:37 dkf Exp $ # # Note: Multiple display selection handling will only be tested if the @@ -848,6 +848,21 @@ test select-9.4 {SelCvtToX and SelCvtFromX procedures} {unixOnly} { cleanupbg lappend result $selInfo } {{0x10 0x0 0x20} {TEST 0 4000}} +test select-9.5 {SelCvtToX and SelCvtFromX procedures} -setup { + setup + setupbg +} -constraints unix -body { + # Ensure that lists of atoms are constructed correctly, even when the + # atom names have spaces in. [Bug 1353414] + set selValue "foo bar" + set selInfo "" + set selType {text/x-tk-test;detail="foo bar"} + selection handle -selection PRIMARY -format STRING -type $selType \ + .f1 [list handler $selType] + lsort [dobg {selection get TARGETS}] +} -cleanup { + cleanupbg +} -result {MULTIPLE TARGETS TIMESTAMP TK_APPLICATION TK_WINDOW {text/x-tk-test;detail="foo bar"}} ############################################################################## |