#1453 problems when make test

[Anonymous]

E-mail : morel@ig-edu.univ-paris13.fr

OS : Solaris8 host : sparc Ultra5
tcl : 8.4.2
tk : 8.4.2

bind.test

==== bind-22.10 HandleEventGenerate FAILED
==== Contents of test case:

setup
bind .b.f <Key> {set x "%s %K"}
set x {}
event gen .b.f <Control-Key-1>
set x

---- Result was:
5 1
---- Result should have been (exact matching):
4 1
==== bind-22.10 FAILED

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

==== focus-6.2 miscellaneous - embedded application in
different process FAILED
==== Contents of test case:

eval interp delete [interp slaves]
catch {destroy .t}
setupbg
toplevel .t
wm geometry .t +0+0
frame .t.f1 -container 1
frame .t.f2
pack .t.f1 .t.f2
entry .t.f2.e1 -bg red
pack .t.f2.e1
bind all <FocusIn> {lappend x "focus in %W %d"}
bind all <FocusOut> {lappend x "focus out %W %d"}
setupbg -use [winfo id .t.f1]
dobg {
entry .e1 -bg lightBlue
pack .e1
bind all <FocusIn> {lappend x "focus in %W %d"}
bind all <FocusOut> {lappend x "focus out %W
%d"}
set x {}
}

# Claim the focus and wait long enough for it to
really arrive.

focus -force .t.f2.e1
after 300 {set timer 1}
vwait timer
set x {}
lappend x [focus] [dobg focus]

# See if a "focus" command will move the focus to
the embedded
# application.

dobg {focus .e1}
after 300 {set timer 1}
vwait timer
lappend x |
dobg {lappend x |}

# Bring the focus back to the main application.

focus .t.f2.e1
after 300 {set timer 1}
vwait timer
set result [list $x [dobg {set x}]]
cleanupbg
set result

---- Result was:
{{} {} |} |
---- Result should have been (exact matching):
{.t.f2.e1 {} {focus out .t.f2.e1 NotifyNonlinear}
{focus out .t.f2 NotifyNonlinearVirtual} {focus in
.t.f1 NotifyNonlinear} | {focus out .t.f1
NotifyNonlinear} {focus in .t.f2
NotifyNonlinearVirtual} {focus in .t.f2.e1
NotifyNonlinear}} {{focus in . NotifyVirtual} {focus in
.e1 NotifyAncestor} | {focus out .e1 NotifyAncestor}
{focus out . NotifyVirtual}}
==== focus-6.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

window.test : never finish, I must type Ctrl C to stop

[Don Porter]

Logged In: YES
user_id=80530

The hand in window.test looks most
serious. Assigning to that maintainer.

Can you run the tests again with
the "-verbose bpste" option to
find out which test is hanging?

[Don Porter]

Logged In: YES
user_id=80530

candidate to close for lack
of information?

[Jeffrey Hobbs]

Logged In: YES
user_id=72656

lacking info.