[Tcl-bugs] [ tktoolkit-Bugs-581627 ] 94 tests fail (up from 14)

[<no...@so...>]

Bugs item #581627, was opened at 2002-07-15 06:48
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=112997&aid=581627&group_id=12997

Category: 87. Test Tools
Group: 8.4b2
>Status: Pending
>Resolution: Fixed
Priority: 9
Submitted By: Vince Darley (vincentdarley)
Assigned to: Don Porter (dgp)
Summary: 94 tests fail (up from 14)

Initial Comment:
On Windows 2000, the latest tk build fails 94 
tests.  A few weeks back (see bug 571563) this was 
down to 14 but something (test suite changes 
recently?) has caused a lot to fail.

There is also a hang in unixWm.test (should this be 
running on Windows?) where the user has to 
manually tearoff a menu for the test to proceed.

null
---- Result should have been (exact matching):
44
==== send-10.4 FAILED


==== send-10.5 SendEventProc procedure, 
extraneous command options FAILED
==== Contents of test case:

    testsend prop comm Comm  "c\n-n tktest\n-x 
miscellanous\n-y who knows?\n-s s
et a new\n"
    set a null
    update
    set a

---- Result was:
null
---- Result should have been (exact matching):
new
==== send-10.5 FAILED


==== send-10.6 SendEventProc procedure, 
unknown interpreter FAILED
==== Contents of test case:

    testsend prop [winfo id .f] Comm {}
    testsend prop comm Comm  "c\n-n unknown\n-
r $id 44\n-s set a new\n"
    set a null
    update
    list [testsend prop [winfo id .f] Comm] $a

---- Result was:
{} null
---- Result should have been (exact matching):
{
r
-s 44
-r receiver never heard of interpreter "unknown"
-c 1
} null
==== send-10.6 FAILED


==== send-10.7 SendEventProc procedure, error in 
script FAILED
==== Contents of test case:

    testsend prop [winfo id .f] Comm {}
    testsend prop comm Comm  "c\n-n tktest\n-r 
$id 62\n-s foreach i {1 2 3} {err
or {test error} {Initial errorInfo} {test code}}\n"
    update
    testsend prop [winfo id .f] Comm

---- Result was:

---- Result should have been (exact matching):

r
-s 62
-r test error
-i Initial errorInfo
    ("foreach" body line 1)
    invoked from within
"foreach i {1 2 3} {error {test error} {Initial errorInfo} 
{test code}}"
-e test code
-c 1

==== send-10.7 FAILED


==== send-10.8 SendEventProc procedure, 
exceptional return FAILED
==== Contents of test case:

    testsend prop [winfo id .f] Comm {}
    testsend prop comm Comm  "c\n-n tktest\n-r 
$id 62\n-s break\n"
    update
    testsend prop [winfo id .f] Comm

---- Result was:

---- Result should have been (exact matching):

r
-s 62
-r
-c 3

==== send-10.8 FAILED


==== send-10.9 SendEventProc procedure, empty 
return FAILED
==== Contents of test case:

    testsend prop [winfo id .f] Comm {}
    testsend prop comm Comm  "c\n-n tktest\n-r 
$id 62\n-s concat\n"
    update
    testsend prop [winfo id .f] Comm

---- Result was:

---- Result should have been (exact matching):

r
-s 62
-r

==== send-10.9 FAILED


==== send-10.13 SendEventProc procedure, return 
processing FAILED
==== Contents of test case:

    testsend prop comm Comm  "r\n-c 1\n-e test1
\n-i test2\n-r test3\n-s [testsen
d serial]\n"
    list [catch {send dummy foo} msg] $msg 
$errorInfo $errorCode

---- Result was:
1 {invalid command name "send"} {invalid command 
name "send"
    while executing
"send dummy foo"} NONE
---- Result should have been (exact matching):
1 test3 {test2
    invoked from within
"send dummy foo"} test1
==== send-10.13 FAILED


==== send-10.14 SendEventProc procedure, 
extraneous return options FAILED
==== Contents of test case:

    testsend prop comm Comm  "r\n-x test1\n-y 
test2\n-r result\n-s [testsend ser
ial]\n"
    list [catch {send dummy foo} msg] $msg

---- Result was:
1 {invalid command name "send"}
---- Result should have been (exact matching):
0 result
==== send-10.14 FAILED


==== send-10.15 SendEventProc procedure, serial 
number FAILED
==== Contents of test case:

    testsend prop comm Comm  "r\n-r response\n"
    list [catch {send dummy foo} msg] $msg

---- Result was:
1 {invalid command name "send"}
---- Result should have been (exact matching):
1 {target application died or uses a Tk version 
before 4.0}
==== send-10.15 FAILED


==== send-10.16 SendEventProc procedure, serial 
number FAILED
==== Contents of test case:

    testsend prop comm Comm  "r\n-r 
response\n\n-s 0"
    list [catch {send dummy foo} msg] $msg

---- Result was:
1 {invalid command name "send"}
---- Result should have been (exact matching):
1 {target application died or uses a Tk version 
before 4.0}
==== send-10.16 FAILED


==== send-10.17 SendEventProc procedure, 
errorCode and errorInfo FAILED
==== Contents of test case:

    testsend prop comm Comm  "r\n-i test1\n-e 
test2\n-c 4\n-s [testsend serial]\
n"
    set errorCode oldErrorCode
    set errorInfo oldErrorInfo
    list [catch {send dummy foo} msg] $msg 
$errorInfo $errorCode

---- Result was:
1 {invalid command name "send"} {invalid command 
name "send"
    while executing
"send dummy foo"} NONE
---- Result should have been (exact matching):
4 {} oldErrorInfo oldErrorCode
==== send-10.17 FAILED


==== send-10.18 SendEventProc procedure, send 
kills application FAILED
==== Contents of test case:

    setupbg
    dobg {tk appname t_s_3}
    set x [list [catch {send t_s_3 destroy .} msg] 
$msg]
    cleanupbg
    set x

---- Result was:
1 {invalid command name "send"}
---- Result should have been (exact matching):
0 {}
==== send-10.18 FAILED


==== send-10.19 SendEventProc procedure, send 
exits FAILED
==== Contents of test case:

    setupbg
    dobg {tk appname t_s_3}
    set x [list [catch {send t_s_3 exit} msg] $msg]
    cleanupbg
    set x

---- Result was:
1 {invalid command name "send"}
---- Result should have been (exact matching):
1 {target application died}
==== send-10.19 FAILED


==== send-11.1 AppendPropCarefully and 
AppendErrorProc procedures FAILED
==== Contents of test case:

    testsend prop root InterpRegistry "0x21447 
dummy\n"
    list [catch {send dummy foo} msg] $msg

---- Result was:
1 {invalid command name "send"}
---- Result should have been (exact matching):
1 {no application named "dummy"}
==== send-11.1 FAILED


==== send-12.1 TimeoutProc procedure FAILED
==== Contents of test case:

    testsend prop root InterpRegistry "$id dummy\n"
    list [catch {send dummy foo} msg] $msg

---- Result was:
1 {invalid command name "send"}
---- Result should have been (exact matching):
1 {target application died or uses a Tk version 
before 4.0}
==== send-12.1 FAILED


==== send-12.2 TimeoutProc procedure FAILED
==== Contents of test case:

    winfo interps
    tk appname tktest
    update
    setupbg
    set app [dobg {
        after 10 {after 10 {after 5000; exit}}
        tk appname
    }]
    after 200
    set result [list [catch {send $app foo} msg] $msg]
    cleanupbg
    set result

---- Result was:
1 {invalid command name "send"}
---- Result should have been (exact matching):
1 {target application died}
==== send-12.2 FAILED


==== send-13.1 DeleteProc procedure FAILED
==== Contents of test case:

    setupbg
    set app [dobg {rename send {}; tk appname}]
    set result [list [catch {send $app foo} msg] $msg 
[winfo interps]]
    cleanupbg
    set result

---- Result was:
1 {invalid command name "send"} {}
---- Result should have been (exact matching):
1 {no application named "tktest #2"} tktest
==== send-13.1 FAILED


==== send-13.2 DeleteProc procedure FAILED
==== Contents of test case:

    winfo interps
    tk appname tktest
    rename send {}
    set result {}
    lappend result [winfo interps] [info commands 
send]
    tk appname foo
    lappend result [winfo interps] [info commands 
send]

---- Result was:
can't delete "send": command doesn't exist
---- Result should have been (exact matching):
{} {} foo send
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== send-13.2 FAILED


==== send-15.1 UpdateCommWindow procedure 
FAILED
==== Contents of test case:

    set x [list [testsend prop comm 
TK_APPLICATION]]
    newApp "" t_s_1 Test
    send t_s_1 wm withdraw .
    newApp "" t_s_2 Test
    send t_s_2 wm withdraw .
    lappend x [testsend prop comm 
TK_APPLICATION]
    interp delete t_s_1
    lappend x [testsend prop comm 
TK_APPLICATION]
    interp delete t_s_2
    lappend x [testsend prop comm 
TK_APPLICATION]

---- Result was:
invalid command name "send"
---- Result should have been (exact matching):
tktest {t_s_2 t_s_1 tktest} {t_s_2 tktest} tktest
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== send-15.1 FAILED

spinbox.test
text.test
textBTree.test
textDisp.test
textImage.test
textIndex.test
textMark.test
textTag.test
textWind.test

==== textWind-10.1 EmbWinLayoutProc procedure 
FAILED
==== Contents of test case:

    .t delete 1.0 end
    .t insert 1.0 "Some sample text"
    .t window create 1.5 -create {
        frame .f -width 10 -height 20 -bg $color
    }
    update
    list [winfo exists .f] [winfo geom .f] [.t index .f]

---- Result was:
1 10x20+45+5 1.5
---- Result should have been (exact matching):
1 10x20+40+5 1.5
==== textWind-10.1 FAILED


==== textWind-10.11 EmbWinLayoutProc 
procedure, doesn't fit on line FAILED
==== Contents of test case:

    .t configure -wrap none
    .t delete 1.0 end
    .t insert 1.0 "Some sample text"
    frame .f -width 130 -height 20 -bg $color -bd 
2 -relief raised
    .t window create 1.12 -window .f
    update
    list [.t bbox .f] [.t bbox 1.13]

---- Result was:
{101 5 130 20} {231 6 8 17}
---- Result should have been (exact matching):
{89 5 126 20} {}
==== textWind-10.11 FAILED


==== textWind-11.1 EmbWinDisplayProc 
procedure, geometry transforms FAILED
==== Contents of test case:

    .t delete 1.0 end
    .t insert 1.0 "Some sample text"
    pack forget .t
    place .t -x 30 -y 50
    frame .f -width 30 -height 20 -bg $color
    .t window create 1.12 -window .f
    update
    winfo geom .f

---- Result was:
30x20+131+55
---- Result should have been (exact matching):
30x20+119+55
==== textWind-11.1 FAILED


==== textWind-11.2 EmbWinDisplayProc 
procedure, geometry transforms FAILED
==== Contents of test case:

    .t delete 1.0 end
    .t insert 1.0 "Some sample text"
    pack forget .t
    place .t -x 30 -y 50
    frame .t.f -width 30 -height 20 -bg $color
    .t window create 1.12 -window .t.f
    update
    winfo geom .t.f

---- Result was:
30x20+101+5
---- Result should have been (exact matching):
30x20+89+5
==== textWind-11.2 FAILED


==== textWind-13.1 EmbWinBboxProc procedure 
FAILED
==== Contents of test case:

    .t delete 1.0 end
    .t insert 1.0 "Some sample text"
    frame .f -width 5 -height 5 -bg $color
    .t window create 1.2 -window .f -align top -
padx 2 -pady 1
    update
    list [winfo geom .f] [.t bbox .f]

---- Result was:
5x5+23+6 {23 6 5 5}
---- Result should have been (exact matching):
5x5+21+6 {21 6 5 5}
==== textWind-13.1 FAILED


==== textWind-13.2 EmbWinBboxProc procedure 
FAILED
==== Contents of test case:

    .t delete 1.0 end
    .t insert 1.0 "Some sample text"
    frame .f -width 5 -height 5 -bg $color
    .t window create 1.2 -window .f -align center -
padx 2 -pady 1
    update
    list [winfo geom .f] [.t bbox .f]

---- Result was:
5x5+23+11 {23 11 5 5}
---- Result should have been (exact matching):
5x5+21+9 {21 9 5 5}
==== textWind-13.2 FAILED


==== textWind-13.9 EmbWinBboxProc procedure, 
spacing options FAILED
==== Contents of test case:

    .t configure -spacing1 5 -spacing3 2
    .t delete 1.0 end
    .t insert 1.0 "Some sample text"
    frame .f -width 5 -height 5 -bg $color
    .t window create 1.2 -window .f -align center -
padx 2 -pady 1
    update
    list [winfo geom .f] [.t bbox .f]

---- Result was:
5x5+23+16 {23 16 5 5}
---- Result should have been (exact matching):
5x5+21+14 {21 14 5 5}
==== textWind-13.9 FAILED


==== textWind-16.2 EmbWinTextStructureProc 
procedure FAILED
==== Contents of test case:

    .t configure -wrap none
    .t delete 1.0 end
    .t insert 1.0 "Some sample text"
    frame .f -width 30 -height 20 -bg $color
    .t window create 1.6 -window .f
    update
    set result {}
    lappend result [winfo geom .f] [.t bbox .f]
    frame .f2 -width 150 -height 30 -bd 2 -relief 
raised
    pack .f2 -before .t
    update
    lappend result [winfo geom .f] [.t bbox .f]

---- Result was:
30x20+53+5 {53 5 30 20} 30x20+53+35 {53 5 30 
20}
---- Result should have been (exact matching):
30x20+47+5 {47 5 30 20} 30x20+47+35 {47 5 30 
20}
==== textWind-16.2 FAILED


==== textWind-16.4 EmbWinTextStructureProc 
procedure FAILED
==== Contents of test case:

    .t configure -wrap none
    .t delete 1.0 end
    .t insert 1.0 "Some sample text"
    frame .t.f -width 30 -height 20 -bg $color
    .t window create 1.6 -window .t.f
    update
    pack forget .t
    update
    list [winfo ismapped .t.f] [.t bbox .t.f]

---- Result was:
1 {53 5 30 20}
---- Result should have been (exact matching):
1 {47 5 30 20}
==== textWind-16.4 FAILED

tk.test
unixButton.test
unixEmbed.test
unixFont.test
unixMenu.test
unixSelect.test
unixWm.test

==== unixWm-9.4 TkWmMapWindow procedure, 
icon windows FAILED
==== Contents of test case:

    catch {destroy .t}
    sleep 500
    toplevel .t -width 100 -height 50 -bg blue
    wm iconwindow . .t
    update
    set result [winfo ismapped .t]

---- Result was:
1
---- Result should have been (exact matching):
0
==== unixWm-9.4 FAILED


==== unixWm-16.2 Tk_WmCmd 
procedure, "deiconify" option FAILED
==== Contents of test case:

    catch {destroy .icon}
    toplevel .icon -width 50 -height 50 -bg red
    wm iconwindow .t .icon
    set result [list [catch {wm deiconify .icon} msg] 
$msg]
    destroy .icon
    set result

---- Result was:
1 {can't deiconify .icon: it is an icon for .icon}
---- Result should have been (exact matching):
1 {can't deiconify .icon: it is an icon for .t}
==== unixWm-16.2 FAILED


==== unixWm-22.1 Tk_WmCmd 
procedure, "iconbitmap" option FAILED
==== Contents of test case:

    list [catch {wm iconbitmap .t 12 13} msg] $msg

---- Result was:
1 {illegal option "12 must be "-default"}
---- Result should have been (exact matching):
1 {wrong # arguments: must be "wm iconbitmap 
window ?bitmap?"}
==== unixWm-22.1 FAILED


==== unixWm-23.4 Tk_WmCmd 
procedure, "iconify" option FAILED
==== Contents of test case:

    catch {destroy .t2}
    toplevel .t2
    wm geom .t2 +0+0
    wm iconwindow .t .t2
    set result [list [catch {wm iconify .t2} msg] $msg]
    destroy .t2
    set result

---- Result was:
1 {can't iconify .t2: it is an icon for .t2}
---- Result should have been (exact matching):
1 {can't iconify .t2: it is an icon for .t}
==== unixWm-23.4 FAILED


==== unixWm-25.1 Tk_WmCmd 
procedure, "iconname" option FAILED
==== Contents of test case:

    list [catch {wm icon .t} msg] $msg

---- Result was:
1 {unknown or ambiguous option "icon": must be 
aspect, attributes, client, comma
nd, deiconify, focusmodel, frame, geometry, grid, 
group, iconbitmap, iconify, ic
onmask, iconname, iconposition, iconwindow, 
maxsize, minsize, overrideredirect,
positionfrom, protocol, resizable, sizefrom, 
stackorder state, title, transient,
 or withdraw}
---- Result should have been (exact matching):
1 {unknown or ambiguous option "icon": must be 
aspect, attributes, client, comma
nd, deiconify, focusmodel, frame, geometry, grid, 
group, iconbitmap, iconify, ic
onmask, iconname, iconposition, iconwindow, 
maxsize, minsize, overrideredirect,
positionfrom, protocol, resizable, sizefrom, 
stackorder, state, title, transient
, or withdraw}
==== unixWm-25.1 FAILED


==== unixWm-27.6 Tk_WmCmd 
procedure, "iconwindow" option, changing icons 
FAILED
==== Contents of test case:

    catch {destroy .icon}
    catch {destroy .icon2}
    toplevel .icon -width 50 -height 50 -bg green
    toplevel .icon2 -width 50 -height 50 -bg red
    set result {}
    wm iconwindow .t .icon
    lappend result [wm state .icon] [wm state .icon2]
    wm iconwindow .t .icon2
    lappend result [wm state .icon] [wm state .icon2]
    destroy .icon .icon2
    set result

---- Result was:
icon normal normal icon
---- Result should have been (exact matching):
icon normal withdrawn icon
==== unixWm-27.6 FAILED


==== unixWm-27.7 Tk_WmCmd 
procedure, "iconwindow" option, withdrawing icon 
FAILE
D
==== Contents of test case:

    catch {destroy .icon}
    toplevel .icon -width 50 -height 50 -bg green
    wm geometry .icon +0+0
    update
    set result {}
    lappend result [wm state .icon] [winfo 
viewable .icon]
    wm iconwindow .t .icon
    lappend result [wm state .icon] [winfo 
viewable .icon]
    destroy .icon
    set result

---- Result was:
couldn't send withdraw message to window 
manager
---- Result should have been (exact matching):
normal 1 icon 0
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== unixWm-27.7 FAILED


==== unixWm-35.1 Tk_WmCmd procedure, "state" 
option FAILED
==== Contents of test case:

    list [catch {wm state .t 1} msg]  $msg

---- Result was:
1 {bad argument "1": must be normal, iconic, 
withdrawn or zoomed}
---- Result should have been (exact matching):
1 {bad argument "1": must be normal, iconic or 
withdrawn}
==== unixWm-35.1 FAILED


==== unixWm-39.1 Tk_WmCmd procedure, 
miscellaneous FAILED
==== Contents of test case:

    list [catch {wm unknown .t} msg] $msg

---- Result was:
1 {unknown or ambiguous option "unknown": must 
be aspect, attributes, client, co
mmand, deiconify, focusmodel, frame, geometry, 
grid, group, iconbitmap, iconify,
 iconmask, iconname, iconposition, iconwindow, 
maxsize, minsize, overrideredirec
t, positionfrom, protocol, resizable, sizefrom, 
stackorder state, title, transie
nt, or withdraw}
---- Result should have been (exact matching):
1 {unknown or ambiguous option "unknown": must 
be aspect, attributes, client, co
mmand, deiconify, focusmodel, frame, geometry, 
grid, group, iconbitmap, iconify,
 iconmask, iconname, iconposition, iconwindow, 
maxsize, minsize, overrideredirec
t, positionfrom, protocol, resizable, sizefrom, 
stackorder, state, title, transi
ent, or withdraw}
==== unixWm-39.1 FAILED


==== unixWm-42.1 WrapperEventProc procedure, 
map and unmap events FAILED
==== Contents of test case:

    catch {destroy .t}
    toplevel .t -width 400 -height 150
    wm geometry .t +0+0
    tkwait visibility .t
    set result {}
    bind .t <Map> {set x "mapped"}
    bind .t <Unmap> {set x "unmapped"}
    set x {no event}
    wm iconify .t
    lappend result $x [winfo ismapped .t]
    set x {no event}
    wm deiconify .t
    lappend result $x [winfo ismapped .t]

---- Result was:
unmapped 0 {no event} 1
---- Result should have been (exact matching):
unmapped 0 mapped 1
==== unixWm-42.1 FAILED


==== unixWm-44.10 UpdateGeometryInfo 
procedure, menubar changing FAILED
==== Contents of test case:

    catch {destroy .t}
    toplevel .t -width 80 -height 60
    wm resizable .t 0 0
    wm geometry .t +0+0
    tkwait visibility .t
    .t configure -width 180 -height 50
    frame .t.m -bd 2 -relief raised -width 100 -
height 50
    testmenubar window .t .t.m
    update
    .t configure -height 70
    .t.m configure -height 30
    list [update] [destroy .t]

---- Result was:
testmenubar is supported only under Unix
---- Result should have been (exact matching):
{} {}
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== unixWm-44.10 FAILED


==== unixWm-48.1 ParseGeometry procedure 
FAILED
==== Contents of test case:

    wm geometry .t =100x120
    update
    list [winfo width .t] [winfo height .t]

---- Result was:
104 120
---- Result should have been (exact matching):
100 120
==== unixWm-48.1 FAILED


==== unixWm-49.1 Tk_GetRootCoords procedure 
FAILED
==== Contents of test case:

    catch {destroy .t}
    toplevel .t -width 300 -height 200
    frame .t.f -width 150 -height 100 -bd 2 -relief 
raised
    place .t.f -x 150 -y 120
    frame .t.f.f -width 20 -height 20 -bd 2 -relief 
raised
    place .t.f.f -x 10 -y 20
    wm overrideredirect .t 1
    wm geometry .t +40+50
    tkwait visibility .t
    list [winfo rootx .t.f.f] [winfo rooty .t.f.f]

---- Result was:
0 0
---- Result should have been (exact matching):
202 192
==== unixWm-49.1 FAILED


==== unixWm-50.1 Tk_CoordsToWindow 
procedure, finding a toplevel, x-coords FAILE
D
==== 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 [e
xpr $x - 1] [expr $y + 250]]  [winfo containing $x 
[expr $y + 250]]  [winfo cont
aining [expr $x + 99] [expr $y + 250]]  [winfo 
containing [expr $x + 100] [expr
$y + 250]]  [winfo containing [expr $x + 199] [expr 
$y + 250]]  [winfo containin
g [expr $x + 200] [expr $y + 250]]  [winfo 
containing [expr $x + 220] [expr $y +
 250]]

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


==== unixWm-50.3 Tk_CoordsToWindow 
procedure, finding a toplevel with embedding
FAILED
==== Contents of test case:

    deleteWindows
    toplevel .t -width 300 -height 400 -bg blue
    wm geom .t +0+50
    frame .t.f -container 1
    place .t.f -x 150 -y 50
    tkwait visibility .t.f
    setupbg
    dobg "
        wm withdraw .
        toplevel .x -width 100 -height 80 -use [winfo 
id .t.f] -bg yellow
        tkwait visibility .x"
    set result [dobg {
        set x [winfo rootx .x]
        set y [winfo rooty .x]
        list [winfo containing [expr $x - 1] [expr $y + 
50]]  [winfo containing
$x [expr $y +50]]
    }]
    set x [winfo rootx .t]
    set y [winfo rooty .t]
    lappend result [winfo containing [expr $x + 200] 
[expr $y + 49]]  [winfo con
taining [expr $x + 200] [expr $y +50]]

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


==== unixWm-60.1 wm attributes FAILED
==== Contents of test case:

    destroy .t
    toplevel .t
    wm attributes .t

---- Result was:
-disabled 0 -toolwindow 0 -topmost 0
---- Result should have been (exact matching):

==== unixWm-60.1 FAILED


==== unixWm-60.2 wm attributes FAILED
==== Contents of test case:

    destroy .t
    toplevel .t
    list [catch {wm attributes .t -foo} msg] $msg

---- Result was:
1 {wrong # arguments: must be "wm attributes 
window ?-disabled ?bool?? ?-toolwin
dow ?bool?? ?-topmost ?bool??"}
---- Result should have been (exact matching):
1 {wrong # arguments: must be "wm attributes 
window"}
==== unixWm-60.2 FAILED

util.test
visual.test
visual_bb.test
winButton.test

==== winbutton-1.1 TkpComputeButtonGeometry 
procedure FAILED
==== Contents of test case:

    deleteWindows
    image create test image1
    image1 changed 0 0 0 0 60 40
    label .b1 -image image1 -bd 4 -padx 0 -pady 2
    button .b2 -image image1 -bd 4 -padx 0 -pady 
2
    checkbutton .b3 -image image1 -bd 4 -padx 1 -
pady 1
    radiobutton .b4 -image image1 -bd 4 -padx 2 -
pady 0
    pack .b1 .b2 .b3 .b4
    update
    # with patch 463234 with native L&F enabled, 
this returns:
    # {68 48 70 50 88 50 88 50}
    list [winfo reqwidth .b1] [winfo reqheight .b1]  
[winfo reqwidth .b2] [winfo
 reqheight .b2]  [winfo reqwidth .b3] [winfo 
reqheight .b3]  [winfo reqwidth .b4
] [winfo reqheight .b4]

---- Result was:
68 48 72 52 92 54 92 54
---- Result should have been (exact matching):
68 48 70 50 90 52 90 52
==== winbutton-1.1 FAILED


==== winbutton-1.2 TkpComputeButtonGeometry 
procedure FAILED
==== Contents of test case:

    deleteWindows
    label .b1 -bitmap question -bd 3 -padx 0 -pady 
2
    button .b2 -bitmap question -bd 3 -padx 0 -
pady 2
    checkbutton .b3 -bitmap question -bd 3 -padx 
1 -pady 1
    radiobutton .b4 -bitmap question -bd 3 -padx 
2 -pady 0
    pack .b1 .b2 .b3 .b4
    update
    # with patch 463234 with native L&F enabled, 
this returns:
    # {23 33 25 35 43 35 43 35}
    list [winfo reqwidth .b1] [winfo reqheight .b1]  
[winfo reqwidth .b2] [winfo
 reqheight .b2]  [winfo reqwidth .b3] [winfo 
reqheight .b3]  [winfo reqwidth .b4
] [winfo reqheight .b4]

---- Result was:
23 33 27 37 47 39 47 39
---- Result should have been (exact matching):
23 33 25 35 45 37 45 37
==== winbutton-1.2 FAILED


==== winbutton-1.3 TkpComputeButtonGeometry 
procedure FAILED
==== Contents of test case:

    deleteWindows
    label .b1 -bitmap question -bd 3 -
highlightthickness 4
    button .b2 -bitmap question -bd 3 -
highlightthickness 0
    checkbutton .b3 -bitmap question -bd 3 -
highlightthickness 1  -indicatoron 0

    radiobutton .b4 -bitmap question -bd 3 -
indicatoron false
    pack .b1 .b2 .b3 .b4
    update
    # with patch 463234 with native L&F enabled, 
this returns:
    # {31 41 23 33 25 35 25 35}
    list [winfo reqwidth .b1] [winfo reqheight .b1]  
[winfo reqwidth .b2] [winfo
 reqheight .b2]  [winfo reqwidth .b3] [winfo 
reqheight .b3]  [winfo reqwidth .b4
] [winfo reqheight .b4]

---- Result was:
31 41 23 33 27 37 29 39
---- Result should have been (exact matching):
31 41 23 33 27 37 27 37
==== winbutton-1.3 FAILED


==== winbutton-1.9 TkpComputeButtonGeometry 
procedure FAILED
==== Contents of test case:

    deleteWindows
    button .b2 -bitmap question -default normal
    list [winfo reqwidth .b2] [winfo reqheight .b2]

---- Result was:
25 35
---- Result should have been (exact matching):
23 33
==== winbutton-1.9 FAILED

winClipboard.test
winDialog.test
winFont.test
winMenu.test
winSend.test
winWm.test

==== winWm-5.1 UpdateGeometryInfo: menu 
resizing FAILED
==== Contents of test case:

    set result {}
    toplevel .t
    frame .t.f -width 150 -height 50 -bg red
    pack .t.f
    update
    set result [winfo height .t]
    menu .t.m
    .t.m add command -label foo
    .t conf -menu .t.m
    update
    lappend result [winfo height .t]
    .t.m add command -label "thisisreallylong"
    .t.m add command -label "thisisreallylong"
    update
    lappend result [winfo height .t]
    destroy .t
    set result

---- Result was:
50 50 32
---- Result should have been (exact matching):
50 50 50
==== winWm-5.1 FAILED

window.test
winfo.test
wm.test
xmfbox.test

Tests ended at Mon Jul 15 11:45:43 AM GMT 
Daylight Time 2002
all.tcl:        Total   8112    Passed  6651    Skipped 
1367    Failed  94
Sourced 182 Test Files.
Files with failing tests: panedwindow.test send.test 
textWind.test unixWm.test w
inButton.test winWm.test
Number of tests skipped for each constraint:
        8       altDisplay
        16      colorsFree
        7       emptyTest
        265     fonts
        2       knownBug
        310     macOnly
        15      macOrUnix
        81      nonPortable
        79      nonUnixUserInteraction
        35      nt
        3       pseudocolor
        3       pseudocolor8
        1       tempNotPc
        2       testwrapper
        294     unix
        176     unixOnly
        19      userInteraction
        51      winSend
stderr32
Administrator@TRAPPER ~/tcl-source/tk8.4/win
$

----------------------------------------------------------------------

>Comment By: Don Porter (dgp)
Date: 2002-07-15 12:56

Message:
Logged In: YES 
user_id=80530


Committed (some) fixes.  Please try again.

Note that some of the newly failing tests
appear to indicate real bugs.  Others are
documented platform differences.  Mark
the latter with the appropriate constraint.
(For example "unix" if the test only passes
on a Unix system.)

If the userInteraction is still required, please
report what test causes that.

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=112997&aid=581627&group_id=12997