The following tests fail in cvs HEAD:
select.test
==== select-1.4.1 Tk_CreateSelHandler procedure FAILED
==== Contents of test case:
setup
selection handle .f1 {handler TEST} TEST
selection handle .f1 {handler STRING}
lsort [selection get TARGETS]
---- Result was:
MULTIPLE STRING TARGETS TEST TIMESTAMP TK_APPLICATION
TK_WINDOW
---- Result should have been (exact matching):
MULTIPLE STRING TARGETS TEST TIMESTAMP TK_APPLICATION
TK_WINDOW UTF8_STRING
==== select-1.4.1 FAILED
==== select-1.6.1 Tk_CreateSelHandler procedure FAILED
==== Contents of test case:
global selValue selInfo
setup
selection handle .f1 {handler TEST} TEST
selection handle .f1 {handler STRING}
set selValue ""
set selInfo ""
selection get
selection get -type TEST
selection handle .f1 {handler TEST2} TEST
selection get -type TEST
list [set selInfo] [lsort [selection get TARGETS]]
---- Result was:
{STRING 0 4000 TEST 0 4000 TEST2 0 4000} {MULTIPLE STRING
TARGETS TEST TIMESTAMP TK_APPLICATION TK_WINDOW}
---- Result should have been (exact matching):
{STRING 0 4000 TEST 0 4000 TEST2 0 4000} {MULTIPLE STRING
TARGETS TEST TIMESTAMP TK_APPLICATION TK_WINDOW
UTF8_STRING}
==== select-1.6.1 FAILED
==== select-1.7.1 Tk_CreateSelHandler procedure FAILED
==== Contents of test case:
setup
selection own -selection CLIPBOARD .f1
selection handle -selection CLIPBOARD .f1 {handler TEST} TEST
selection handle -selection PRIMARY .f1 {handler TEST2} STRING
list [lsort [selection get -selection PRIMARY TARGETS]] [lsort
[selection get -selection CLIPBOARD TARGETS]]
---- Result was:
{MULTIPLE STRING TARGETS TIMESTAMP TK_APPLICATION TK_WINDOW}
{MULTIPLE TARGETS TEST TIMESTAMP TK_APPLICATION TK_WINDOW}
---- Result should have been (exact matching):
{MULTIPLE STRING TARGETS TIMESTAMP TK_APPLICATION TK_WINDOW
UTF8_STRING} {MULTIPLE TARGETS TEST TIMESTAMP TK_APPLICATION
TK_WINDOW}
==== select-1.7.1 FAILED
==== select-2.1 Tk_DeleteSelHandler procedure FAILED
==== Contents of test case:
setup
selection handle .f1 {handler STRING}
selection handle -type TEST .f1 {handler TEST}
selection handle -type USER .f1 {handler USER}
set result [list [lsort [selection get TARGETS]]]
selection handle -type TEST .f1 {}
lappend result [lsort [selection get TARGETS]]
---- Result was:
{MULTIPLE STRING TARGETS TEST TIMESTAMP TK_APPLICATION
TK_WINDOW USER} {MULTIPLE STRING TARGETS TIMESTAMP
TK_APPLICATION TK_WINDOW USER}
---- Result should have been (exact matching):
{MULTIPLE STRING TARGETS TEST TIMESTAMP TK_APPLICATION
TK_WINDOW USER UTF8_STRING} {MULTIPLE STRING TARGETS
TIMESTAMP TK_APPLICATION TK_WINDOW USER UTF8_STRING}
==== select-2.1 FAILED
==== select-2.2 Tk_DeleteSelHandler procedure FAILED
==== Contents of test case:
setup
selection handle .f1 {handler STRING}
selection handle -type TEST .f1 {handler TEST}
selection handle -type USER .f1 {handler USER}
set result [list [lsort [selection get TARGETS]]]
selection handle -type USER .f1 {}
lappend result [lsort [selection get TARGETS]]
---- Result was:
{MULTIPLE STRING TARGETS TEST TIMESTAMP TK_APPLICATION
TK_WINDOW USER} {MULTIPLE STRING TARGETS TEST TIMESTAMP
TK_APPLICATION TK_WINDOW}
---- Result should have been (exact matching):
{MULTIPLE STRING TARGETS TEST TIMESTAMP TK_APPLICATION
TK_WINDOW USER UTF8_STRING} {MULTIPLE STRING TARGETS TEST
TIMESTAMP TK_APPLICATION TK_WINDOW UTF8_STRING}
==== select-2.2 FAILED
==== select-2.3 Tk_DeleteSelHandler procedure FAILED
==== Contents of test case:
setup
selection own -selection CLIPBOARD .f1
selection handle -selection PRIMARY .f1 {handler STRING}
selection handle -selection CLIPBOARD .f1 {handler STRING}
selection handle -selection CLIPBOARD .f1 {}
list [lsort [selection get TARGETS]] [lsort [selection get -selection
CLIPBOARD TARGETS]]
---- Result was:
{MULTIPLE STRING TARGETS TIMESTAMP TK_APPLICATION TK_WINDOW}
{MULTIPLE TARGETS TIMESTAMP TK_APPLICATION TK_WINDOW}
---- Result should have been (exact matching):
{MULTIPLE STRING TARGETS TIMESTAMP TK_APPLICATION TK_WINDOW
UTF8_STRING} {MULTIPLE TARGETS TIMESTAMP TK_APPLICATION
TK_WINDOW}
==== select-2.3 FAILED
==== select-3.7 Tk_OwnSelection procedure FAILED
==== Contents of test case:
global lostSel
setup
setupbg
set lostSel {owned}
selection own -command { set lostSel {lost1} } .f1
update
set result {}
lappend result [dobg { selection own . }]
lappend result [dobg {selection own}]
update
cleanupbg
lappend result $lostSel
---- Result was:
{} . owned
---- Result should have been (exact matching):
{} . lost1
==== select-3.7 FAILED
==== select-4.4 Tk_ClearSelection procedure FAILED
==== Contents of test case:
global lostSel
setup
setupbg
set lostSel {owned}
selection own -command { set lostSel {lost1} } .f1
update
set result {}
lappend result [dobg {selection clear; update}]
update
cleanupbg
lappend result [selection own]
---- Result was:
{} .f1
---- Result should have been (exact matching):
{} {}
==== select-4.4 FAILED
==== select-5.9 Tk_GetSelection procedure FAILED
==== Contents of test case:
setup
setupbg
selection handle -selection PRIMARY .f1 {handler TEST} TEST
update
set selValue "Test value"
set selInfo ""
set result ""
lappend result [dobg {selection get TEST}]
cleanupbg
lappend result $selInfo
---- Result was:
{PRIMARY selection doesn't exist or form "TEST" not defined} {}
---- Result should have been (exact matching):
{Test value} {TEST 0 4000}
==== select-5.9 FAILED
==== select-5.10 Tk_GetSelection procedure FAILED
==== Contents of test case:
setup
setupbg
selection handle -selection PRIMARY .f1 {handler TEST} TEST
update
set selValue "Test value"
set selInfo ""
selection own .f1
set result ""
lappend result [dobg {selection get TEST} 1]
cleanupbg
lappend result $selInfo
---- Result was:
{PRIMARY selection doesn't exist or form "TEST" not defined} {}
---- Result should have been (exact matching):
{selection owner didn't respond} {}
==== select-5.10 FAILED
==== select-9.1 SelCvtToX and SelCvtFromX procedures FAILED
==== Contents of test case:
set selValue "1024"
set selInfo ""
selection handle -selection PRIMARY -format INTEGER -type
TEST .f1 {handler TEST}
update
set result ""
lappend result [dobg {selection get TEST}]
cleanupbg
lappend result $selInfo
---- Result was:
{PRIMARY selection doesn't exist or form "TEST" not defined} {}
---- Result should have been (exact matching):
0x400 {TEST 0 4000}
==== select-9.1 FAILED
==== select-9.2 SelCvtToX and SelCvtFromX procedures FAILED
==== Contents of test case:
setup
setupbg
set selValue "1024 0xffff 2048 -2 "
set selInfo ""
selection handle -selection PRIMARY -format INTEGER -type
TEST .f1 {handler TEST}
set result ""
lappend result [dobg {selection get TEST}]
cleanupbg
lappend result $selInfo
---- Result was:
{PRIMARY selection doesn't exist or form "TEST" not defined} {}
---- Result should have been (exact matching):
{0x400 0xffff 0x800 0xfffffffe} {TEST 0 4000}
==== select-9.2 FAILED
==== select-9.3 SelCvtToX and SelCvtFromX procedures FAILED
==== Contents of test case:
setup
setupbg
set selValue " "
set selInfo ""
selection handle -selection PRIMARY -format INTEGER -type
TEST .f1 {handler TEST}
set result ""
lappend result [dobg {selection get TEST}]
cleanupbg
lappend result $selInfo
---- Result was:
{PRIMARY selection doesn't exist or form "TEST" not defined} {}
---- Result should have been (exact matching):
{} {TEST 0 4000}
==== select-9.3 FAILED
==== select-9.4 SelCvtToX and SelCvtFromX procedures FAILED
==== Contents of test case:
setup
setupbg
set selValue "16 foobar 32"
set selInfo ""
selection handle -selection PRIMARY -format INTEGER -type
TEST .f1 {handler TEST}
set result ""
lappend result [dobg {selection get TEST}]
cleanupbg
lappend result $selInfo
---- Result was:
{PRIMARY selection doesn't exist or form "TEST" not defined} {}
---- Result should have been (exact matching):
{0x10 0x0 0x20} {TEST 0 4000}
==== select-9.4 FAILED
==== select-9.5 SelCvtToX and SelCvtFromX procedures FAILED
==== Contents of test case:
# 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}]
---- Result was:
PRIMARY TARGETS defined doesn't exist form not or selection
---- Result should have been (exact matching):
MULTIPLE TARGETS TIMESTAMP TK_APPLICATION TK_WINDOW {text/x-
tk-test;detail="foo bar"}
==== select-9.5 FAILED
==== select-10.2 ConvertSelection procedure FAILED
==== Contents of test case:
setup
setupbg
set selValue [string range $longValue 0 3999]
set selInfo ""
selection handle .f1 {handler STRING}
set result ""
lappend result [dobg {selection get}]
cleanupbg
lappend result $selInfo
---- Result was:
{PRIMARY selection doesn't exist or form "STRING" not defined} {}
---- Result should have been (exact matching):
Aa.1a.2a.3a.4a.5a.6a.7a.8a.9a.10a.11a.12a.13a.14Ba.1a.2a.3a.4a.5a.
6a.7a.8a.9a.10a.11a.12a.13a.14Ca.1a.2a.3a.4a.5a.6a.7a.8a.9a.10a.
11a.12a.13a.14Da.1a.2a.3a.4a.5a.6a.7a.8a.9a.10a.11a.12a.13a.14Ea.
1a.2a.3a.4a.5a.6a.7a.8a.9a.10a.11a.12a.13a.14Fa.1a.2a.3a.4a.5a.6a.
7a.8a.9a.10a.11a.12a.13a.14Ga.1a.2a.3a.4a.5a.6a.7a.8a.9a.10a.11a.
12a.13a.14Ha.1a.2a.3a.4a.5a.6a.7a.8a.9a.10a.11a.12a.13a.14Ia.1a.2a.
3a.4a.5a.6a.7a.8a.9a.10a.11a.12a.13a.14Ka.1a.2a.3a.4a.5a.6a.7a.8a.
9a.10a.11a.12a.13a.14La.1a.2a.3a.4a.5a.6a.7a.8a.9a.10a.11a.12a.13a.
14Ma.1a.2a.3a.4a.5a.6a.7a.8a.9a.10a.11a.12a.13a.14Na.1a.2a.3a.4a.
5a.6a.7a.8a.9a.10a.11a.12a.13a.14Ab.1b.2b.3b.4b.5b.6b.7b.8b.9b.
10b.11b.12b.13b.14Bb.1b.2b.3b.4b.5b.6b.7b.8b.9b.10b.11b.12b.13b.
14Cb.1b.2b.3b.4b.5b.6b.7b.8b.9b.10b.11b.12b.13b.14Db.1b.2b.3b.
4b.5b.6b.7b.8b.9b.10b.11b.12b.13b.14Eb.1b.2b.3b.4b.5b.6b.7b.8b.
9b.10b.11b.12b.13b.14Fb.1b.2b.3b.4b.5b.6b.7b.8b.9b.10b.11b.12b.
13b.14Gb.1b.2b.3b.4b.5b.6b.7b.8b.9b.10b.11b.12b.13b.14Hb.1b.2b.
3b.4b.5b.6b.7b.8b.9b.10b.11b.12b.13b.14Ib.1b.2b.3b.4b.5b.6b.7b.
8b.9b.10b.11b.12b.13b.14Kb.1b.2b.3b.4b.5b.6b.7b.8b.9b.10b.11b.
12b.13b.14Lb.1b.2b.3b.4b.5b.6b.7b.8b.9b.10b.11b.12b.13b.14Mb.
1b.2b.3b.4b.5b.6b.7b.8b.9b.10b.11b.12b.13b.14Nb.1b.2b.3b.4b.5b.
6b.7b.8b.9b.10b.11b.12b.13b.14Ac.1c.2c.3c.4c.5c.6c.7c.8c.9c.10c.
11c.12c.13c.14Bc.1c.2c.3c.4c.5c.6c.7c.8c.9c.10c.11c.12c.13c.14Cc.1c.
2c.3c.4c.5c.6c.7c.8c.9c.10c.11c.12c.13c.14Dc.1c.2c.3c.4c.5c.6c.7c.8c.
9c.10c.11c.12c.13c.14Ec.1c.2c.3c.4c.5c.6c.7c.8c.9c.10c.11c.12c.13c.
14Fc.1c.2c.3c.4c.5c.6c.7c.8c.9c.10c.11c.12c.13c.14Gc.1c.2c.3c.4c.5c.
6c.7c.8c.9c.10c.11c.12c.13c.14Hc.1c.2c.3c.4c.5c.6c.7c.8c.9c.10c.11c.
12c.13c.14Ic.1c.2c.3c.4c.5c.6c.7c.8c.9c.10c.11c.12c.13c.14Kc.1c.2c.
3c.4c.5c.6c.7c.8c.9c.10c.11c.12c.13c.14Lc.1c.2c.3c.4c.5c.6c.7c.8c.9c.
10c.11c.12c.13c.14Mc.1c.2c.3c.4c.5c.6c.7c.8c.9c.10c.11c.12c.13c.
14Nc.1c.2c.3c.4c.5c.6c.7c.8c.9c.10c.11c.12c.13c.14Ad.1d.2d.3d.4d.
5d.6d.7d.8d.9d.10d.11d.12d.13d.14Bd.1d.2d.3d.4d.5d.6d.7d.8d.9d.
10d.11d.12d.13d.14Cd.1d.2d.3d.4d.5d.6d.7d.8d.9d.10d.11d.12d.13d.
14Dd.1d.2d.3d.4d.5d.6d.7d.8d.9d.10d.11d.12d.13d.14Ed.1d.2d.3d.
4d.5d.6d.7d.8d.9d.10d.11d.12d.13d.14Fd.1d.2d.3d.4d.5d.6d.7d.8d.
9d.10d.11d.12d.13d.14Gd.1d.2d.3d.4d.5d.6d.7d.8d.9d.10d.11d.12d.
13d.14Hd.1d.2d.3d.4d.5d.6d.7d.8d.9d.10d.11d.12d.13d.14Id.1d.2d.
3d.4d.5d.6d.7d.8d.9d.10d.11d.12d.13d.14Kd.1d.2d.3d.4d.5d.6d.7d.
8d.9d.10d.11d.12d.13d.14Ld.1d.2d.3d.4d.5d.6d.7d.8d.9d.10d.11d.
12d.13d.14Md.1d.2d.3d.4d.5d.6d.7d.8d.9d.10d.11d.12d.13d.14Nd.
1d.2d.3d.4d.5d.6d.7d.8d.9d.10d.11d.12d.13d.14Ae.1e.2e.3e.4e.5e.
6e.7e.8e.9e.10e.11e.12e.13e.14Be.1e.2e.3e.4e.5e.6e.7e.8e.9e.10e.
11e.12e.13e.14Ce.1e.2e.3e.4e.5e.6e.7e.8e.9e.10e.11e.12e.13e.14De.
1e.2e.3e.4e.5e.6e.7e.8e.9e.10e.11e.12e.13e.14Ee.1e.2e.3e.4e.5e.6e.
7e.8e.9e.10e.11e.12e.13e.14Fe.1e.2e.3e.4e.5e.6e.7e.8e.9e.10e.11e.
12e.13e.14Ge.1e.2e.3e.4e.5e.6e.7e.8e.9e.10e.11e.12e.13e.14He.1e.
2e.3e.4e.5e.6e.7e.8e.9e.10e.11e.12e.13e.14Ie.1e.2e.3e.4e.5e.6e.7e.
8e.9e.10e.11e.12e.13e.14Ke.1e.2e.3e.4e.5e.6e.7e.8e.9e.10e.11e.12e.
13e.14Le.1e.2e.3e.4e.5e.6e.7e.8e.9e.10e.11e.12e.13e.14Me.1e.2e.3e.
4e.5e.6e.7e.8e.9e.10e.11e.12e.13e.14Ne.1e.2e.3e.4e.5e.6e.7e.8e.9e.
10e.11e.12e.13e.14Af.1f.2f.3f.4f.5f.6f.7f.8f.9f.10f.11f.12f.13f.14Bf.1f.
2f.3f.4f.5f.6f.7f.8f.9f.10f.11f.12f.13f.14Cf.1f.2f.3f.4f.5f.6f.7f.8f.9f.10f.
11f.12f.13f.14Df.1f.2f.3f.4f.5f.6f.7f.8f.9f.10f.11f.12f.13f.14Ef.1f.2f.3f.
4f.5f.6f.7f.8f.9f.10f.11f.12f.13f.14Ff.1f.2f.3f.4f.5f.6f.7f.8f.9f.10f.11f.
12f.13f.14Gf.1f.2f.3f.4f.5f.6f.7f.8f.9f.10f.11f.12f.13f.14Hf.1f.2f.3f.4f.
5f.6f.7f.8f.9f.10f.11f.12f.13f.14If.1f.2f.3f.4f.5f.6f.7f.8f.9f.10f.11f.12f.
13f.14Kf.1f.2f.3f.4f.5f.6f.7f.8f.9f.10f.11f.12f.13f.14Lf.1f.2f.3f.4f.5f.6f.
7f.8f.9f.10f.11f.12f.13f.14Mf.1f.2f.3f.4f.5f.6f.7f.8f.9f.10f.11f.12f.13f.
14Nf.1f.2f.3f.4f.5f.6f.7f.8f.9f.10f.11f.12f.13f.14Ag.1g.2g.3g.4g.5g.6g.
7g.8g.9g.10g.11g.12g.13g.14Bg.1g.2g.3g.4g.5g.6g.7g.8g.9g.10g.
11g.12g.13g.14Cg.1g.2g.3g.4g.5g.6g.7g.8g.9g.10g.11g.12g.13g.
14Dg.1g.2g.3g.4g.5g.6g.7g.8g.9g.10g.11g.12g.13g.14Eg.1g.2g.3g.
4g.5g.6g.7g.8g.9g.10g.11g.12g.13g.14Fg.1g.2g.3g.4g.5 {STRING 0
4000 STRING 4000 4000 STRING 0 4000 STRING 4000 4000}
==== select-10.2 FAILED
==== select-10.4 ConvertSelection procedure FAILED
==== Contents of test case:
setup
setupbg
set selValue $longValue
set selInfo ""
selection handle .f1 {errIncrHandler STRING}
set result ""
set pass 0
lappend result [dobg {selection get}]
cleanupbg
lappend result $selInfo
---- Result was:
{PRIMARY selection doesn't exist or form "STRING" not defined} {}
---- Result should have been (exact matching):
{selection owner didn't respond} {STRING 0 4000 STRING 4000 4000
STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0
4000 STRING 4000 4000}
==== select-10.4 FAILED
==== select-10.5 ConvertSelection procedure, reentrancy issues
FAILED
==== Contents of test case:
setup
setupbg
set selValue "Test value"
set selInfo ""
selection handle -type TEST .f1 { handler TEST }
selection handle -type STRING .f1 { badHandler .f1 STRING }
set result ""
lappend result [dobg {selection get}]
cleanupbg
lappend result $selInfo
---- Result was:
{PRIMARY selection doesn't exist or form "STRING" not defined} {}
---- Result should have been (exact matching):
{PRIMARY selection doesn't exist or form "STRING" not defined} {.f1
STRING 0 4000}
==== select-10.5 FAILED
==== select-10.6 ConvertSelection procedure, reentrancy issues
FAILED
==== Contents of test case:
proc weirdHandler {type offset count} {
destroy .f1
handler $type $offset $count
}
setup
setupbg
set selValue $longValue
set selInfo ""
selection handle .f1 {weirdHandler STRING}
set result ""
lappend result [dobg {selection get}]
cleanupbg
lappend result $selInfo
---- Result was:
{PRIMARY selection doesn't exist or form "STRING" not defined} {}
---- Result should have been (exact matching):
{PRIMARY selection doesn't exist or form "STRING" not defined} {STRING
0 4000}
==== select-10.6 FAILED
==== select-11.1 TkSelPropProc procedure FAILED
==== Contents of test case:
setup
setupbg
set selValue $longValue
set selInfo ""
selection handle -type TEST .f1 { handler TEST }
selection handle -type STRING .f1 { reallyBadHandler .f1 STRING }
set result ""
set pass 0
lappend result [dobg {selection get}]
cleanupbg
lappend result $selInfo
---- Result was:
{PRIMARY selection doesn't exist or form "STRING" not defined} {}
---- Result should have been (exact matching):
{selection owner didn't respond} {.f1 STRING 0 4000 .f1 STRING 4000
4000 .f1 STRING 8000 4000 .f1 STRING 12000 4000 .f1 STRING 16000
4000 .f1 STRING 0 4000 .f1 STRING 4000 4000}
==== select-11.1 FAILED
==== select-12.1 DefaultSelection procedure FAILED
==== Contents of test case:
setup
set result [selection get -type TIMESTAMP]
setupbg
lappend result [dobg {selection get -type TIMESTAMP}]
cleanupbg
set result
---- Result was:
0x0 {PRIMARY selection doesn't exist or form "TIMESTAMP" not defined}
---- Result should have been (exact matching):
0x0 0x0
==== select-12.1 FAILED
==== select-12.2 DefaultSelection procedure FAILED
==== Contents of test case:
setup
set result [lsort [list [selection get -type TARGETS]]]
setupbg
lappend result [dobg {lsort [selection get -type TARGETS]}]
cleanupbg
set result
---- Result was:
{MULTIPLE TARGETS TIMESTAMP TK_APPLICATION TK_WINDOW}
{PRIMARY selection doesn't exist or form "TARGETS" not defined}
---- Result should have been (exact matching):
{MULTIPLE TARGETS TIMESTAMP TK_APPLICATION TK_WINDOW}
{MULTIPLE TARGETS TIMESTAMP TK_APPLICATION TK_WINDOW}
==== select-12.2 FAILED
==== select-12.3 DefaultSelection procedure FAILED
==== Contents of test case:
setup
selection handle .f1 {handler TEST} TEST
set result [list [lsort [selection get -type TARGETS]]]
setupbg
lappend result [dobg {lsort [selection get -type TARGETS]}]
cleanupbg
set result
---- Result was:
{MULTIPLE TARGETS TEST TIMESTAMP TK_APPLICATION TK_WINDOW}
{PRIMARY selection doesn't exist or form "TARGETS" not defined}
---- Result should have been (exact matching):
{MULTIPLE TARGETS TEST TIMESTAMP TK_APPLICATION TK_WINDOW}
{MULTIPLE TARGETS TEST TIMESTAMP TK_APPLICATION TK_WINDOW}
==== select-12.3 FAILED
==== select-12.4 DefaultSelection procedure FAILED
==== Contents of test case:
setup
set result ""
lappend result [selection get -type TK_APPLICATION]
setupbg
lappend result [dobg {selection get -type TK_APPLICATION}]
cleanupbg
set result
---- Result was:
tktest {PRIMARY selection doesn't exist or form "TK_APPLICATION" not
defined}
---- Result should have been (exact matching):
tktest tktest
==== select-12.4 FAILED
==== select-12.5 DefaultSelection procedure FAILED
==== Contents of test case:
setup
set result [selection get -type TK_WINDOW]
setupbg
lappend result [dobg {selection get -type TK_WINDOW}]
cleanupbg
set result
---- Result was:
.f1 {PRIMARY selection doesn't exist or form "TK_WINDOW" not defined}
---- Result should have been (exact matching):
.f1 .f1
==== select-12.5 FAILED
==== select-13.1 SelectionSize procedure, handler deleted FAILED
==== Contents of test case:
proc badHandler {path type offset count} {
global selValue selInfo abortCount
incr abortCount -1
if {$abortCount == 0} {
selection handle -type $type $path {}
}
lappend selInfo $path $type $offset $count
set numBytes [expr {[string length $selValue] - $offset}]
if {$numBytes <= 0} {
return ""
}
string range $selValue $offset [expr $numBytes+$offset]
}
setup
setupbg
set selValue $longValue
set selInfo ""
selection handle .f1 {badHandler .f1 STRING}
set result ""
set abortCount 2
lappend result [dobg {selection get}]
cleanupbg
lappend result $selInfo
---- Result was:
{PRIMARY selection doesn't exist or form "STRING" not defined} {}
---- Result should have been (exact matching):
{PRIMARY selection doesn't exist or form "STRING" not defined} {.f1
STRING 0 4000 .f1 STRING 4000 4000}
==== select-13.1 FAILED
Tests ended at Sun Apr 23 22:19:00 BST 2006
all.tcl: Total 109 Passed 68 Skipped 15 Failed 26
Sourced 1 Test Files.
Files with failing tests: select.test
Number of tests skipped for each constraint:
8 altDisplay
1 nonPortable
6 win
