#1505 tk8.4.3 test failures on Tru64Unix 5.1A

obsolete: 8.4.3
closed-duplicate
Don Porter
5
2003-10-03
2003-06-04
Anonymous
No

I have some pending bugs on the tcl side for this
platform, so those might be the underlying problem ...
I cannot judge. Here's what I got. Could anyone help?
Thanks!

==== focus-5.1 ChangeXFocus procedure, don't take focus
unless have it FAILED
==== Contents of test case:

focusSetup
focus -force .t
update
set result [focus]
send [dobg {tk appname}] {focus -force .; update}
lappend result [focus]
focus .t.b2
update
lappend result [focus]

---- Result was:
.t .t {}
---- Result should have been (exact matching):
.t {} {}
==== focus-5.1 FAILED

==== listbox-4.1 ConfigureListbox procedure FAILED
==== Contents of test case:

catch {destroy .l}
listbox .l -setgrid 1 -width 25 -height 15
pack .l
update
set x [getsize .]
.l configure -setgrid 0
update
list $x [getsize .]

---- Result was:
25x15 26x16
---- Result should have been (exact matching):
25x15 185x263
==== listbox-4.1 FAILED

==== listbox-9.2 ListboxCmdDeletedProc procedure,
disabling -setgrid FAILED
==== Contents of test case:
catch {destroy .top}
toplevel .top
wm geom .top +0+0
listbox .top.l -setgrid 1 -width 20 -height 10
pack .top.l
update
set x [wm geometry .top]
rename .top.l {}
update
lappend x [wm geometry .top]
destroy .top
set x

---- Result was:
20x10+0+0 21x11+0+0
---- Result should have been (exact matching):
20x10+0+0 150x178+0+0
==== listbox-9.2 FAILED

==== listbox-13.3 ListboxScanTo procedure FAILED
==== Contents of test case:

.l yview moveto 1.0
.l xview moveto 1.0
.l scan mark 10 20
.l scan dragto 5 10
update
set x [list [.l xview] [.l yview]]
.l scan dragto [expr 5+$width] [expr 10+$height]
update
lappend x [.l xview] [.l yview]

---- Result was:
{0.8 1} {0.75 1} {0.64 0.84} {0.25 0.5}
---- Result should have been (exact matching):
{0.8 1} {0.75 1} {0.62 0.82} {0.25 0.5}
==== listbox-13.3 FAILED

==== spinbox-5.7 ConfigureSpinbox procedure FAILED
==== Contents of test case:

catch {destroy .e}
spinbox .e -font $fixed -width 4 -xscrollcommand scroll
pack .e
.e insert end "01234567890"
update
.e configure -width 5
set scrollInfo

---- Result was:
0.315789 0.842105
---- Result should have been (exact matching):
0 0.363636
==== spinbox-5.7 FAILED

==== spinbox-7.1 InsertChars procedure FAILED
==== Contents of test case:

.e delete 0 end
.e insert 0 abcde
.e insert 2 XXX
update
list [.e get] $contents $scrollInfo

---- Result was:
abXXXcde abXXXcde {0.315789 0.842105}
---- Result should have been (exact matching):
abXXXcde abXXXcde {0 1}
==== spinbox-7.1 FAILED

==== spinbox-17.4 SpinboxUpdateScrollbar procedure FAILED
==== Contents of test case:

destroy .e
set x "Background error did not happen"
proc bgerror msg {
global x
set x $msg
}
spinbox .e -width 5 -xscrollcommand thisisnotacommand
pack .e
update
rename bgerror {}
list $x $errorInfo

---- Result was:
{Background error did not happen} {bad spinbox index "1xyz"
while executing
".e index 1xyz"}
---- Result should have been (exact matching):
{invalid command name "thisisnotacommand"} {invalid
command name "thisisnotacommand"
while executing
"thisisnotacommand 0 1"
(horizontal scrolling command executed by .e)}
==== spinbox-17.4 FAILED

==== spinbox-19.8 spinbox widget validation FAILED
==== Contents of test case:

focus -force .e
# update necessary to process FocusIn event
update
set ::vVals

---- Result was:

---- Result should have been (exact matching):
.e -1 -1 abcd abcd {} focus focusin
==== spinbox-19.8 FAILED

==== spinbox-19.9 spinbox widget validation FAILED
==== Contents of test case:

focus -force .
# update necessary to process FocusOut event
update
set ::vVals

---- Result was:

---- Result should have been (exact matching):
.e -1 -1 abcd abcd {} focus focusout
==== spinbox-19.9 FAILED

text.test

==== text-15.2 TextCmdDeletedProc procedure, disabling
-setgrid FAILED
==== Contents of test case:

catch {destroy .top}
toplevel .top
wm geom .top +0+0
text .top.t -setgrid 1 -width 20 -height 10
pack .top.t
update
set x [wm geometry .top]
rename .top.t {}
update
lappend x [wm geometry .top]
destroy .top
set x

---- Result was:
20x10+0+0 21x11+0+0
---- Result should have been (exact matching):
20x10+0+0 150x140+0+0
==== text-15.2 FAILED

textBTree.test
textDisp.test
choutextImage.test
textIndex.test
jatextMark.test
textTag.test

==== textTag-16.2 TkTextPickCurrent procedure FAILED
==== Contents of test case:

event gen .t <ButtonRelease-1> -state 0x100 -x $x1
-y $y1
event gen .t <Motion> -x $x2 -y $y2
set x [.t index current]
.t tag add big 3.0
update
lappend x [.t index current]

---- Result was:
3.2 3.2
---- Result should have been (exact matching):
3.2 3.1
==== textTag-16.2 FAILED

textWind.test
tk.test
unixButton.test
unixEmbed.test

==== unixEmbed-5.1 EmbedFocusProc procedure, FocusIn
events FAILED
==== Contents of test case:

deleteWindows
frame .f1 -container 1 -width 200 -height 50
pack .f1
dobg "set w1 [winfo id .f1]"
dobg {
eval destroy [winfo child .]
toplevel .t1 -use $w1
bind .t1 <FocusIn> {lappend x "focus in %W"}
bind .t1 <FocusOut> {lappend x "focus out %W"}
set x {}
}
focus -force .f1
update
dobg {set x}

---- Result was:

---- Result should have been (exact matching):
{focus in .t1}
==== unixEmbed-5.1 FAILED

==== unixEmbed-5.3 EmbedFocusProc procedure, FocusOut
events FAILED
==== Contents of test case:

deleteWindows
frame .f1 -container 1 -width 200 -height 50
pack .f1
dobg "set w1 [winfo id .f1]"
dobg {
eval destroy [winfo child .]
toplevel .t1 -use $w1
bind .t1 <FocusIn> {lappend x "focus in %W"}
bind .t1 <FocusOut> {lappend x "focus out %W"}
set x {}
}
focus -force .f1
update
set x [dobg {update; set x}]
focus .
update
list $x [dobg {update; set x}]

---- Result was:
{} {}
---- Result should have been (exact matching):
{{focus in .t1}} {{focus in .t1} {focus out .t1}}
==== unixEmbed-5.3 FAILED

==== unixEmbed-7.2 TkpRedirectKeyEvent procedure, don't
forward keystroke width FAILED
==== Contents of test case:

deleteWindows
frame .f1 -container 1 -width 200 -height 50
pack .f1
dobg "set w1 [winfo id .f1]"
dobg {
eval destroy [winfo child .]
toplevel .t1 -use $w1
}
update
focus -force .f1
update
bind . <KeyPress> {lappend x {key %A}}
set x {}
set y [dobg {
update
bind .t1 <KeyPress> {lappend y {key %A}}
set y {}
event generate .t1 <KeyPress> -keysym b
set y
}]
update
bind . <KeyPress> {}
list $x $y

---- Result was:
{{key b}} {}
---- Result should have been (exact matching):
{} {{key b}}
==== unixEmbed-7.2 FAILED

==== unixEmbed-8.1 TkpClaimFocus procedure FAILED
==== Contents of test case:

deleteWindows
frame .f1 -container 1 -width 200 -height 50
frame .f2 -width 200 -height 50
pack .f1 .f2
dobg "set w1 [winfo id .f1]"
dobg {
eval destroy [winfo child .]
toplevel .t1 -use $w1 -highlightthickness 2 -bd
2 -relief sunken
}
focus -force .f2
update
list [dobg {
focus .t1
set x [list [focus]]
update
after 500
update
lappend x [focus]
}] [focus]

---- Result was:
{{} {}} .f1
---- Result should have been (exact matching):
{{} .t1} .f1
==== unixEmbed-8.1 FAILED

==== unixEmbed-8.2 TkpClaimFocus procedure FAILED
==== Contents of test case:

catch {interp delete child}
deleteWindows
frame .f1 -container 1 -width 200 -height 50
frame .f2 -width 200 -height 50
pack .f1 .f2
interp create child
child eval "set argv {-use [winfo id .f1]}"
load {} Tk child
child eval {
. configure -bd 2 -highlightthickness 2 -relief
sunken
}
focus -force .f2
update
list [child eval {
focus .
set x [list [focus]]
update
lappend x [focus]
}] [focus]

---- Result was:
{{} {}} .f1
---- Result should have been (exact matching):
{{} .} .f1
==== unixEmbed-8.2 FAILED

unixFont.test
unixMenu.test

==== unixMenu-18.1 GetTearoffEntryGeometry FAILED
==== Contents of test case:

catch {destroy .m1}
menubutton .mb -text "test" -menu .mb.m
menu .mb.m
.mb.m add command -label test
pack .mb
raise .
list [catch {tk::MbPost .mb} msg] $msg
[tk::MenuUnpost .mb.m] [destroy .mb]

---- Result was:
1 {grab failed: window not viewable} {} {}
---- Result should have been (exact matching):
0 {} {} {}
==== unixMenu-18.1 FAILED

Tests ended at Wed Jun 04 15:44:11 MEST 2003
all.tcl: Total 8373 Passed 7538 Skipped
818 Failed 17
Sourced 182 Test Files.
Files with failing tests: focus.test listbox.test
spinbox.test text.test textTag.test unixEmbed.test
unixMenu.test
Number of tests skipped for each constraint:
14 altDisplay
16 colorsFree
5 emptyTest
1 knownBug
310 macOnly
20 macOrPc
113 nonPortable
35 nt
233 pcOnly
4 pseudocolor
4 pseudocolor8
11 testmetrics
1 userInteraction
51 winSend

Discussion

  • Don Porter
    Don Porter
    2003-10-03

    • assigned_to: caflick --> dgp
    • status: open --> closed-duplicate