#1806 test suite failures

[Larry W. Virden]

latest 8.4.9 candidate

platform: sparc solaris 8, using sun gnome desktop,
tcl/tk configured with
--prefix=/tmp/tcl --enable-shared --enable-symbols
--enable-stubs

The following test suite failures occurred:

focus.test

==== 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

focusTcl.test
font.test

==== font-45.4 TkFontGetAliasList: match FAILED
==== Contents of test case:

# can fail on Unix systems that have a real "times
new roman" font
font actual {{times new roman} 10} -family

---- Result was:
times new roman
---- Result should have been (exact matching):
times
==== font-45.4 FAILED

frame.test

==== frame-3.9 TkCreateFrame procedure, -use option FAILED
==== Contents of test case:

catch {destroy .t}
catch {destroy .x}
toplevel .t -container 1 -width 300 -height 120
wm geometry .t +0+0
toplevel .x -width 140 -height 300 -use [winfo id
.t] -bg green
tkwait visibility .x
set result "[expr [winfo rootx .x] - [winfo rootx
.t]] [expr [winfo rooty .x] - [winfo rooty .t]] [winfo
width .t] [winfo height .t]"
destroy .t
set result

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: window ".x" was deleted before its
visibility changed
while executing
"tkwait visibility .x"
("uplevel" body line 7)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== frame-3.9 FAILED

==== frame-3.10 TkCreateFrame procedure, -use option FAILED
==== Contents of test case:

catch {destroy .t}
catch {destroy .x}
toplevel .t -container 1 -width 300 -height 120
wm geometry .t +0+0
option add *x.use [winfo id .t]
toplevel .x -width 140 -height 300 -bg green
tkwait visibility .x
set result "[expr [winfo rootx .x] - [winfo rootx
.t]] [expr [winfo rooty .x] - [winfo rooty .t]] [winfo
width .t] [winfo height .t]"
destroy .t
option clear
set result

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: window ".x" was deleted before its
visibility changed
while executing
"tkwait visibility .x"
("uplevel" body line 8)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== frame-3.10 FAILED

unixWm.test

==== unixWm-4.3 moving window while withdrawn FAILED
==== Contents of test case:

wm withdraw .t
sleep 200
wm geom .t $geom
update
wm deiconify .t
wm geom .t

---- Result was:
100x150+0+40
---- Result should have been (exact matching):
100x150+0+0
==== unixWm-4.3 FAILED

==== unixWm-48.13 ParseGeometry procedure, resize
causes window to move FAILED
==== Contents of test case:

catch {destroy .t}
toplevel .t -width 200 -height 200
wm geom .t +0+0
update
wm geom .t -0-0
update
set x [winfo x .t]
set y [winfo y .t]
wm geometry .t 150x300
update
list [expr [winfo x .t] - $x] [expr [winfo y .t] -
$y] [winfo width .t] [winfo height .t]

---- Result was:
33 -100 150 300
---- Result should have been (exact matching):
50 -100 150 300
==== unixWm-48.13 FAILED
==== unixWm-50.1 Tk_CoordsToWindow procedure, finding a
toplevel, x-coords FAILED
==== Contents of test case:

deleteWindows
toplevel .t -width 300 -height 400 -bg green
wm geom .t +40+0
tkwait visibility .t
toplevel .t2 -width 100 -height 80 -bg red
wm geom .t2 +140+200
tkwait visibility .t2
raise .t2
set x [winfo rootx .t]
set y [winfo rooty .t]
list [winfo containing [expr $x - 30] [expr $y +
250]] [winfo containing [expr $x - 1] [expr $y + 250]]
[winfo containing $x [expr $y + 250]] [winfo
containing [expr $x + 99] [expr $y + 250]] [winfo
containing [expr $x + 100] [expr $y + 250]] [winfo
containing [expr $x + 199] [expr $y + 250]] [winfo
containing [expr $x + 200] [expr $y + 250]] [winfo
containing [expr $x + 220] [expr $y + 250]]

---- Result was:
{} {} .t .t .t .t .t .t
---- Result should have been (exact matching):
{} {} .t {} .t2 .t2 {} .t
==== unixWm-50.1 FAILED

==== unixWm-50.5 Tk_CoordsToWindow procedure, handling
menubars FAILED
==== Contents of test case:

deleteWindows
toplevel .t -width 300 -height 400 -bd 2 -relief raised
frame .t.f -width 150 -height 120 -bg green
place .t.f -x 10 -y 150
wm geom .t +0+50
frame .t.menu -width 100 -height 30 -bd 2 -relief
raised
frame .t.menu.f -width 40 -height 20 -bg purple
place .t.menu.f -x 30 -y 10
testmenubar window .t .t.menu
tkwait visibility .t.menu
update
set x [winfo rootx .t]
set y [winfo rooty .t]
list [winfo containing $x [expr $y - 31]] [winfo
containing $x [expr $y - 30]] [winfo containing [expr
$x + 50] [expr $y - 19]] [winfo containing [expr $x +
50] [expr $y - 18]] [winfo containing [expr $x + 50]
$y] [winfo containing [expr $x + 11] [expr $y + 152]]
[winfo containing [expr $x + 12] [expr $y + 152]]

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: window ".t.menu" was deleted before its
visibility changed
while executing
"tkwait visibility .t.menu"
("uplevel" body line 11)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== unixWm-50.5 FAILED

==== unixWm-50.8 Tk_CoordsToWindow procedure, more
basics FAILED
==== Contents of test case:

catch {destroy .t}
toplevel .t -width 400 -height 300 -bg green
wm geom .t +0+0
frame .t.f -width 200 -height 100 -bd 2 -relief raised
place .t.f -x 100 -y 100
frame .t.f.f -width 200 -height 100 -bd 2 -relief
raised
place .t.f.f -x 100 -y 0
update
set x [winfo rooty .t]
set y [expr [winfo rooty .t] + 150]
list [winfo containing [expr $x + 50] $y] [winfo
containing [expr $x + 150] $y] [winfo containing [expr
$x + 250] $y] [winfo containing [expr $x + 350] $y]
[winfo containing [expr $x + 450] $y]

---- Result was:
.t.f .t.f.f .t {} {}
---- Result should have been (exact matching):
.t .t.f .t.f.f .t {}
==== unixWm-50.8 FAILED

==== unixWm-50.10 Tk_CoordsToWindow procedure, unmapped
windows FAILED
==== Contents of test case:

catch {destroy .t}
toplevel .t -width 200 -height 200 -bg green
wm geometry .t +0+0
frame .t.f -width 150 -height 150 -bd 2 -relief raised
place .t.f -x 25 -y 25
tkwait visibility .t.f
set result [list [winfo containing 100 100]]
place forget .t.f
update
lappend result [winfo containing 100 100]

---- Result was:
.t .t
---- Result should have been (exact matching):
.t.f .t
==== unixWm-50.10 FAILED