diff options
| author | dkf <dkf@noemail.net> | 2005-11-22 11:32:34 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2005-11-22 11:32:34 (GMT) |
| commit | 764ced5903b78e2577d7e3182c22612cc8fe8226 (patch) | |
| tree | a90c2e014e2a1d92cda19a88347eaa9f722e56f2 /tests/select.test | |
| parent | 7ef73e98a7bc76651b6ab11e6ce18d5a6f664587 (diff) | |
| download | tk-764ced5903b78e2577d7e3182c22612cc8fe8226.zip tk-764ced5903b78e2577d7e3182c22612cc8fe8226.tar.gz tk-764ced5903b78e2577d7e3182c22612cc8fe8226.tar.bz2 | |
Backport of fixes for [Bug 1353414]
FossilOrigin-Name: 2ec30a4b5bc3f503838bfb75ed3128d4323643be
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"}} ############################################################################## |