[Tcl-bugs] [ tktoolkit-Bugs-694532 ] Tk test suite failuers...

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 454-5900

Bugs item #694532, was opened at 2003-02-27 10:51
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=112997&aid=694532&group_id=12997

Category: None
Group: None
>Status: Closed
>Resolution: Duplicate
Priority: 5
Submitted By: Nobody/Anonymous (nobody)
Assigned to: Nobody/Anonymous (nobody)
Summary: Tk test suite failuers...

Initial Comment:
=================================
=================================
=============
*** Compiler has 'Optimizations'
*** Compiler has 'Pentium 0x0f fix'
*** Linker has 'Win98 alignment problem'
*** Doing threads
*** Doing symbols
*** Doing profile
*** Doing thrdalloc
*** Doing memdbg
*** Doing compdbg
*** Intermediate directory will 
be '.\Debug\tk_ThreadedDynamic'
*** Output directory will be '.\Debug'
*** Suffix for binaries will be 'td'
*** Optional defines are '-DTCL_MEM_DEBUG -
DTCL_COMPILE_DEBUG -DTCL_COMPILE_STAT
S -DTCL_THREADS=1 -DUSE_THREAD_ALLOC=1'
*** Dependency rules are not being used.

        set TCL_LIBRARY=..\..\tcl\library
        set PATH=..\..\tcl\win\Debug
        ".\Debug\tktest.exe" ..\tests\all.tcl  
| ".\Debug\cat32.exe"
Tests running in interp:  
F:/tcl/pure/8.4.2/tk/win/Debug/tktest.exe
Tests located in:  F:/tcl/pure/8.4.2/tk/tests
Tests running in:  F:/tcl/pure/8.4.2/tk/win
Temporary files stored in F:/tcl/pure/8.4.2/tk/win
Test files sourced into current interpreter
Running tests that match:  *
Skipping test files that match:  l.*.test
Only running test files that match:  *.test
Tests began at Thu Feb 27 10:33:05 AM Pacific 
Standard Time 2003
bell.test
Bell should ring now ...
bgerror.test
bind.test
bitmap.test
border.test
button.test
canvImg.test
canvPs.test
canvRect.test
canvText.test
canvWind.test
canvas.test
choosedir.test
clipboard.test
clrpick.test
cmds.test
color.test
config.test
cursor.test
dialog.test
embed.test
entry.test
event.test
filebox.test
focus.test
focusTcl.test
font.test
frame.test
geometry.test
get.test
grab.test
grid.test
id.test
image.test
imgBmap.test
imgPPM.test
imgPhoto.test
listbox.test
macEmbed.test
macFont.test
macMenu.test
macWinMenu.test
macscrollbar.test
main.test
menu.test
menuDraw.test
menubut.test
message.test
msgbox.test
obj.test
oldpack.test
option.test
pack.test
panedwindow.test
place.test
raise.test
safe.test
scale.test
scrollbar.test
select.test
send.test
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-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-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-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-51.7 TkWmRestackToplevel 
procedure, other window isn't mapped FAILED

==== Contents of test case:

    foreach w {.t .t2 .t3} {
        catch {destroy $w}
        toplevel $w -width 200 -height 200 -bg green
        wm geometry $w +0+0
    }
    raise .t .t2
    sleep 2000
    update
    set result [list [winfo containing 100 100]]
    lower .t3
    sleep 2000
    lappend result [winfo containing 100 100]

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

==== unixWm-51.8 TkWmRestackToplevel 
procedure, overrideredirect windows FAILED
==== Contents of test case:

    catch {destroy .t}
    toplevel .t -width 200 -height 200 -bg green
    wm overrideredirect .t 1
    wm geometry .t +0+0
    tkwait visibility .t
    catch {destroy .t2}
    toplevel .t2 -width 200 -height 200 -bg red
    wm overrideredirect .t2 1
    wm geometry .t2 +0+0
    tkwait visibility .t2

    # Need to use vrootx and vrooty to make tests 
work correctly with
    # virtual root window measures managers: 
overrideredirect windows
    # come up at (0,0) in display coordinates, not 
virtual root
    # coordinates.

    set x [expr 100-[winfo vrootx .]]
    set y [expr 100-[winfo vrooty .]]
    set result [list [winfo containing $x $y]]
    raise .t
    lappend result [winfo containing $x $y]
    raise .t2
    lappend result [winfo containing $x $y]

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

==== unixWm-51.9 TkWmRestackToplevel 
procedure, other window overrideredirect FA
ILED
==== Contents of test case:

    foreach w {.t .t2 .t3} {
        catch {destroy $w}
        toplevel $w -width 200 -height 200 -bg green
        wm overrideredirect $w 1
        wm geometry $w +0+0
        tkwait visibility $w
    }
    lower .t3 .t2
    update

    # Need to use vrootx and vrooty to make tests 
work correctly with
    # virtual root window measures managers: 
overrideredirect windows
    # come up at (0,0) in display coordinates, not 
virtual root
    # coordinates.

    set x [expr 100-[winfo vrootx .]]
    set y [expr 100-[winfo vrooty .]]
    set result [list [winfo containing $x $y]]
    lower .t2
    lappend result [winfo containing $x $y]

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

util.test
visual.test
visual_bb.test
winButton.test
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

==== winfo-4.5 "winfo containing" command 
FAILED
==== Contents of test case:

    winfo containing [winfo rootx .t.f] [winfo 
rooty .t.f]

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

wm.test
xmfbox.test

Tests ended at Thu Feb 27 10:35:59 AM Pacific 
Standard Time 2003
all.tcl:        Total   8317    Passed  6871    Skipped 
1425    Failed  21
Sourced 182 Test Files.
Files with failing tests: textWind.test unixWm.test 
winWm.test winfo.test
Number of tests skipped for each constraint:
        7       altDisplay
        16      colorsFree
        7       emptyTest
        265     fonts
        2       knownBug
        310     macOnly
        17      macOrUnix
        80      nonPortable
        79      nonUnixUserInteraction
        3       pseudocolor
        4       pseudocolor8
        71      secureserver
        1       tempNotPc
        1       tempNotWin
        5       testmenubar
        301     unix
        186     unixOnly
        19      userInteraction
        51      winSend
stderr32

This is on Windows NT 4 Service Pack 6a+.

Not sure how many of these are "known bugs".

JJM

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

>Comment By: Jeffrey Hobbs (hobbs)
Date: 2003-02-27 15:54

Message:
Logged In: YES 
user_id=72656

These are covered by other outstanding known bugs.

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

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

[Tcl-bugs] [ tktoolkit-Bugs-694532 ] Tk test suite failuers...

The Tool Command Language implementation

[Tcl-bugs] [ tktoolkit-Bugs-694532 ] Tk test suite failuers...