>Number:         4623
>Category:       pkg
>Synopsis:       tk80 fails its own test
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    gnats-admin (GNATS administrator)
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Tue Dec  2 03:50:01 1997
>Last-Modified:
>Originator:     Ignatios Souvatzis
>Organization:
computer science department, university of Bonn, Germany
>Release:        see below
>Environment:
	
System: NetBSD cosinus.cs.uni-bonn.de 1.3_ALPHA NetBSD 1.3_ALPHA (GENERIC) #0: Thu Nov 6 10:43:17 CET 1997 ignatios@cosinus.cs.uni-bonn.de:/usr/local/obj/kernel/GENERIC i386


>Description:
When doing "make test" in the x11/tk8.0 directory, first it failed
to build "tktest" because ld was supplied a -L/lib (looks like some
empty variable).

After doing the linking manually, providing -L/usr/pkg/lib additionally, 
I got this output (window manager used was AfterStep 1.0):

LD_LIBRARY_PATH=`pwd`:/usr/pkg/lib/tcl8.0:;  export LD_LIBRARY_PATH;  TCL_LIBRARY=/usr/pkg/include/tcl8.0/library; export TCL_LIBRARY;  TK_LIBRARY=./../library; export TK_LIBRARY;  ( echo cd ./../tests\; source all\; exit )  | ./tktest -geometry +0+0
bell.test
(will skip non-portable tests)
Bell should ring now ...
bgerror.test
bind.test
button.test
canvImg.test
canvPs.test
canvRect.test
canvText.test
canvas.test
clipboard.test
clrpick.test
cmds.test
color.test
entry.test
event.test
filebox.test
focus.test
focusTcl.test
font.test
frame.test
geometry.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
menu.test
menuDraw.test
menubut.test


==== menubutton-4.5 ConfigureMenuButton procedure
==== Contents of test case:

    catch {destroy .mb1}
    button .mb1 -text "Sample text" -width 10 -height 2
    pack .mb1
    set result "[winfo reqwidth .mb1] [winfo reqheight .mb1]"
    .mb1 configure -bitmap questhead
    lappend result [winfo reqwidth .mb1] [winfo reqheight .mb1]

==== Result was:
98 44 20 12
---- Result should have been:
102 46 20 12
---- menubutton-4.5 FAILED


==== menubutton-7.13 ComputeMenuButtonGeometry procedure
==== Contents of test case:

    catch {destroy .mb}
    menubutton .mb -text String -bd 2 -relief raised  -highlightthickness 1 -indicatoron 1
    pack .mb
    list [winfo reqwidth .mb] [winfo reqheight .mb]

==== Result was:
71 26
---- Result should have been:
78 28
---- menubutton-7.13 FAILED
msgbox.test
oldpack.test
option.test
pack.test
place.test
raise.test
safe.test
scale.test


==== scale-7.1 ComputeScaleGeometry procedure
==== Contents of test case:

    catch {destroy .s}
    scale .s -from 0 -to 10 -label "Short" -orient vertical -length 5i
    pack .s
    update
    list [winfo reqwidth .s] [winfo reqheight .s]

==== Result was:
88 383
---- Result should have been:
88 458
---- scale-7.1 FAILED


==== scale-7.5 ComputeScaleGeometry procedure
==== Contents of test case:

    catch {destroy .s}
    scale .s -from 0 -to 10 -label "Short" -orient horizontal -length 5i
    pack .s
    update
    list [winfo reqwidth .s] [winfo reqheight .s]

==== Result was:
383 61
---- Result should have been:
458 61
---- scale-7.5 FAILED
scrollbar.test
select.test
send.test
text.test


==== text-20.1 TextSearchCmd procedure, argument parsing
==== Contents of test case:

    list [catch {.t search -} msg] $msg

==== Result was:
1 {bad switch "-": must be -forward, -backward, -exact, -regexp, -nocase, -count, -elide, or --}
---- Result should have been:
1 {bad switch "-": must be -forward, -backward, -exact, -regexp, -nocase, -count, or --}
---- text-20.1 FAILED
textBTree.test
textDisp.test
textImage.test
textIndex.test
textMark.test
textTag.test
textWind.test
tk.test
unixButton.test
unixEmbed.test


==== unixEmbed-3.1 ContainerEventProc procedure, detect creation
==== Contents of test case:

    foreach w [winfo child .] {
	catch {destroy $w}
    }
    frame .f1 -container 1 -width 200 -height 50
    pack .f1
    dobg "set w1 [winfo id .f1]"
    set x [testembed]
    dobg {
	eval destroy [winfo child .]
	toplevel .t1 -use $w1
	wm withdraw .t1
    }
    list $x [testembed]

==== Result was:
{{XXX .f1 {} {}}} {{XXX .f1 {} {}}}
---- Result should have been:
{{XXX .f1 {} {}}} {{XXX .f1 XXX {}}}
---- unixEmbed-3.1 FAILED


==== unixEmbed-4.1 EmbedStructureProc procedure, configure events
==== Contents of test case:

    foreach w [winfo child .] {
	catch {destroy $w}
    }
    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
    dobg {
	.t1 configure -width 180 -height 100
    }
    update
    dobg {
	winfo geometry .t1
    }

==== Result was:
bad window path name ".t1"
---- Result should have been:
180x100+0+0
---- unixEmbed-4.1 FAILED


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

    foreach w [winfo child .] {
	catch {destroy $w}
    }
    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:
{} {bad window path name ".t1"}
---- Result should have been:
{} {{key b}}
---- unixEmbed-7.2 FAILED


==== unixEmbed-9.2 EmbedWindowDeleted procedure, check embeddedPtr
==== Contents of test case:

    foreach w [winfo child .] {
	catch {destroy $w}
    }
    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 -highlightthickness 2 -bd 2 -relief sunken
	set x {}
	lappend x [testembed]
	destroy .t1
	lappend x [testembed]
    }

==== Result was:
couldn't create child of window "0x3400906"
---- Result should have been:
{{XXX {} {} .t1}} {}
---- unixEmbed-9.2 FAILED
unixFont.test


==== unixfont-8.3 AllocFont procedure: can't parse info from name
==== Contents of test case:

    if [catch {set a [font actual a12biluc]}]==0 {
	string compare $a "-family a12biluc -size 0 -weight normal -slant roman -underline 0 -overstrike 0"
    } else {
	set a 0
    }

==== Result was:
1
---- Result should have been:
0
---- unixfont-8.3 FAILED
unixMenu.test
unixWm.test


==== unixWm-41.2 ConfigureEvent procedure, menubars
==== Contents of test case:

    catch {destroy .t}
    toplevel .t -width 300 -height 200 -bd 2 -relief raised
    wm geom .t +0+0
    update
    set x [winfo rootx .t]
    set y [winfo rooty .t]
    frame .t.m -bd 2 -relief raised -height 20
    testmenubar window .t .t.m
    update
    set result {}
    bind .t <Configure> {
	if {"%W" == ".t"} {
	    lappend result "%W: %wx%h"
	}
    }
    bind .t.m <Configure> {lappend result "%W: %wx%h"}
    wm geometry .t 200x300
    update
    lappend result [expr [winfo rootx .t.m] - $x]  [expr [winfo rooty .t.m] - $y]  [winfo width .t.m] [winfo height .t.m]  [expr [winfo rootx .t] - $x] [expr [winfo rooty .t] - $y]  [winfo width .t] [winfo height .t]

==== Result was:
{.t.m: 200x20} {.t: 200x300} -1 -23 200 20 -1 -3 200 300
---- Result should have been:
{.t.m: 200x20} {.t: 200x300} 0 0 200 20 0 20 200 300
---- unixWm-41.2 FAILED


==== unixWm-47.1 WaitRestrictProc procedure
==== Contents of test case:

    catch {destroy .t}
    toplevel .t -width 300 -height 200
    frame .t.f -bd 2 -relief raised
    place .t.f -x 20 -y 30 -width 100 -height 20
    wm geometry .t +0+0
    tkwait visibility .t
    set result {}
    bind .t.f <Configure> {lappend result {configure on .t.f}}
    bind .t <Map> {lappend result {map on .t}}
    bind .t <Unmap> {lappend result {unmap on .t}; bind .t <Unmap> {}}
    bind .t <Button> {lappend result {button %b on .t}}
    event generate .t.f <Configure> -when tail
    event generate .t <Configure> -when tail
    event generate .t <Button> -button 3 -when tail
    event generate .t <Map> -when tail
    lappend result iconify
    wm iconify .t
    lappend result done
    update
    set result

==== Result was:
iconify {unmap on .t} done {button 3 on .t} {map on .t}
---- Result should have been:
iconify {unmap on .t} done {configure on .t.f} {button 3 on .t} {map on .t}
---- unixWm-47.1 FAILED
util.test
visual.test
winButton.test
winClipboard.test
winFont.test
winMenu.test
winWm.test
window.test
winfo.test


>How-To-Repeat:
	see above.
>Fix:
	not known.
>Audit-Trail:
>Unformatted: