#2270 unixSelect test suite errors

[Larry W. Virden]

Platform: sun sparc solaris 9, sun c compiler, tcl/tk cvs head, windows xp pro and exceed 10 X server

==== unixSelect-1.4 TkSelGetSelection procedure: simple i18n text, iso2022 FAILE
D
==== Contents of test case:

setupbg
setup
selection handle -type COMPOUND_TEXT -format COMPOUND_TEXT . {handler COMPO
UND_TEXT}
selection own .
set selValue \u00fc\u0444
set selInfo {}
set result [dobg {
set x [selection get -type COMPOUND_TEXT]
list [string equal \u00fc\u0444 $x] [string length $x] [string byteleng
th $x]
}]
cleanupbg
lappend result $selInfo

---- Result was:
1 2 4 {COMPOUND_TEXT 0 4000 COMPOUND_TEXT 0 4000}
---- Result should have been (exact matching):
1 2 4 {COMPOUND_TEXT 0 4000}
==== unixSelect-1.4 FAILED]

==== unixSelect-1.5 TkSelGetSelection procedure: INCR i18n text, iso2022 FAILED
==== Contents of test case:

# This test is subtle. The selection ends up getting fetched twice by
# Tk: once to compute the length, and again to actually send the data.
# The first time through, we don't convert the data to ISO2022, so the
# buffer boundaries end up being different in the two passes.

setupbg
setup
selection handle -type COMPOUND_TEXT -format COMPOUND_TEXT . {handler COMPO
UND_TEXT}
selection own .
set selValue [string repeat x 3999]\u00fc\u0444[string repeat x 3999]
set selInfo {}
set result [dobg {
set x [selection get -type COMPOUND_TEXT]
list [string equal [string repeat x 3999]\u00fc\u0444[string repeat x 3
999] $x] [string length $x] [string bytelength $x]
}]
cleanupbg
lappend result $selInfo

---- Result was:
1 8000 8002 {COMPOUND_TEXT 0 4000 COMPOUND_TEXT 4000 3999 COMPOUND_TEXT 7998 400
0 COMPOUND_TEXT 0 4000 COMPOUND_TEXT 4000 3999 COMPOUND_TEXT 7998 4000 COMPOUND_
TEXT 0 4000 COMPOUND_TEXT 4000 3998 COMPOUND_TEXT 7997 4000}
---- Result should have been (exact matching):
1 8000 8002 {COMPOUND_TEXT 0 4000 COMPOUND_TEXT 4000 3999 COMPOUND_TEXT 7998 400
0 COMPOUND_TEXT 0 4000 COMPOUND_TEXT 4000 3998 COMPOUND_TEXT 7997 4000}
==== unixSelect-1.5 FAILED
==== unixSelect-1.6 TkSelGetSelection procedure: simple i18n text, iso2022 FAILE
D
==== Contents of test case:

setupbg
setup
selection handle -type COMPOUND_TEXT -format COMPOUND_TEXT . {handler COMPO
UND_TEXT}
selection own .
set selValue \u00fc\u0444
set selInfo {}
set result [dobg {
set x [selection get -type COMPOUND_TEXT]
list [string equal \u00fc\u0444 $x] [string length $x] [string byteleng
th $x]
}]
cleanupbg
lappend result $selInfo

---- Result was:
1 2 4 {COMPOUND_TEXT 0 4000 COMPOUND_TEXT 0 4000}
---- Result should have been (exact matching):
1 2 4 {COMPOUND_TEXT 0 4000}
==== unixSelect-1.6 FAILED

[Larry W. Virden]

just an update. Using SPARC Solaris 8 as the location where code was compiled and runs, displaying back to windows xp sp3 and exceed 10.0.0.12, and using tk 8.5.4 release code, I continue to see the identical problems reported here.

[Larry W. Virden]

just an update. Using SPARC Solaris 8 as the location where code was compiled and runs, displaying back to windows xp sp3 and exceed 10.0.0.12, and using tk 8.5.4 release code, I continue to see the identical problems reported here.