| Description: |
OriginalBugID: 1658 Bug
Version: 8.1b2
SubmitDate: '1999-03-29'
LastModified: '1999-08-31'
Severity: SER
Status: Closed
Submitter: pat
ChangedBy: hobbs
RelatedBugIDs: 2181
OS: Solaris
OSVersion: 2.6
Machine: Other
ClosedDate: '1999-08-31'
Name: Larry W. Virden
Extensions: Tk
CustomShell: none
ReproducibleScript:
I did a make distclean to remove the previous configuration
(which was core dumping). I then did a
/vol/tclsrcsol/tcl81/tk8.1b2/unix/configure --prefix=/usr/tcl81
--exec_prefix=/usr/tcl81/sun4 --enable-shared
make all
make test
ObservedBehavior:
the make test reported 47 failures - ranging from
canvText.test clipboard.test config.test focus.test grid.test main.test
safe.test send.test textDisp.test unixEmbed.test unixFont.test
unixSend.test util.test winfo.test
Here are the specifics of the failures.
canvText.test
==== canvText-6.1 ComputeTextBbox procedure FAILED
==== Contents of test case:
.c itemconfig test -font $font -text 0
.c coords test 0 0
set x {}
lappend x [.c itemconfig test -anchor n; .c bbox test]
lappend x [.c itemconfig test -anchor nw; .c bbox test]
lappend x [.c itemconfig test -anchor w; .c bbox test]
lappend x [.c itemconfig test -anchor sw; .c bbox test]
lappend x [.c itemconfig test -anchor s; .c bbox test]
lappend x [.c itemconfig test -anchor se; .c bbox test]
lappend x [.c itemconfig test -anchor e; .c bbox test]
lappend x [.c itemconfig test -anchor ne; .c bbox test]
lappend x [.c itemconfig test -anchor center; .c bbox test]
---- Result was:
{-6 0 6 25} {-1 0 11 25} {-1 -12 11 13} {-1 -25 11 0} {-6 -25 6 0} {-11
-25 1 0} {-11 -12 1 13} {-11 0 1 25} {-6 -12 6 13}
---- Result should have been:
{-6 0 6 25} {-1 0 11 25} {-1 -13 11 12} {-1 -25 11 0} {-6 -25 6 0} {-11
-25 1 0} {-11 -13 1 12} {-11 0 1 25} {-6 -13 6 12}
==== canvText-6.1 FAILED
clipboard.test
==== clipboard-6.2 Tk_ClipboardAppend procedure FAILED
==== Contents of test case:
setupbg
clipboard clear
clipboard append -f INTEGER -t TEST "16"
set result [dobg {selection get -s CLIPBOARD TEST}]
cleanupbg
set result
---- Result was:
CLIPBOARD selection doesn't exist or form "TEST" not defined
---- Result should have been:
0x10
==== clipboard-6.2 FAILED
clrpick.test
Skipped tests clrpick2.1, clrpick2.2 and clrpick2.3 because
you ran out of colors in your color palette, and this would
have caused the tests to generate errors.
config.test
==== config-8.9 Tk_RestoreSavedOptions - font internal form FAILED
==== Contents of test case:
eval destroy [winfo children .]
testobjconfig internal .a
list [catch {.a csave -font {Times 12} -color bogus}] [.a cget
-font]
---- Result was:
1 {-*-lucida sans typewriter-medium-r-*-*-16-*-*-*-*-*-*-*}
---- Result should have been:
1 {Helvetica 12}
==== config-8.9 FAILED
focus.test
==== focus-6.1 miscellaneous - embedded application in same process
FAILED
==== Contents of test case:
eval interp delete [interp slaves]
catch {destroy .t}
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"}
interp create child
child eval "set argv {-use [winfo id .t.f1]}"
load {} tk child
child eval {
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] [child eval focus]
# See if a "focus" command will move the focus to the embedded
# application.
child eval {focus .e1}
after 300 {set timer 1}
vwait timer
lappend x |
child eval {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 [child eval {set x}]]
interp delete child
set result
---- Result was:
{.t.f2.e1 {} | {focus out .t.f2.e1 NotifyNonlinear} {focus out .t.f2
NotifyNonlinearVirtual} {focus in .t.f1 NotifyNonlinear}} {| {focus in .
NotifyVirtual} {focus in .e1 NotifyAncestor}}
---- Result should have been:
{.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.1 FAILED
grid.test
==== grid-6.9 location: check updates pending FAILED
==== Contents of test case:
set a ""
foreach i {0 1 2} {
frame .$i -width 120 -height 75 -bg red
lappend a [grid location . 150 90]
grid .$i -row $i -column $i
}
set a
---- Result was:
{0 0} {0 1} {1 1}
---- Result should have been:
{0 0} {1 1} {1 1}
==== grid-6.9 FAILED
main.test
==== main-1.1 StdinProc FAILED
==== Contents of test case:
catch {removeFile script}
set fd [open script w]
puts $fd {
close stdin; exit
}
close $fd
if {[catch {exec $tktest <script} msg]} {
set error 1
} else {
set error 0
}
file delete -force script
list $error $msg
---- Result was:
1 {can't read "tktest": no such variable}
---- Result should have been:
0 {}
==== main-1.1 FAILED
safe.test
==== safe-5.1 loading Tk in safe interps without master's clearance
FAILED
==== Contents of test case:
set i [safe::interpCreate]
catch {interp eval $i {load {} Tk}} msg
safe::interpDelete $i
set msg
---- Result was:
couldn't create child of window "0xa0008f7"
---- Result should have been:
not allowed to start Tk by master's safe::TkInit
==== safe-5.1 FAILED
send.test
==== send-8.1 Tk_SendCmd procedure, options FAILED
==== Contents of test case:
setupbg
set app [dobg {tk appname}]
set a 66
send -async $app [list send [tk appname] set a 77]
set result $a
after 200 set x 40
tkwait variable x
cleanupbg
lappend result $a
---- Result was:
66 66
---- Result should have been:
66 77
==== send-8.1 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]
close $fd
set x
==== Test generated error:
can not find channel named "file7"
---- Result should have been:
1 {target application died}
==== send-10.19 FAILED
==== send-12.2 TimeoutProc procedure FAILED
==== Contents of test case:
winfo interps
tk appname tktest
update
setupbg
puts $fd {after 10 {after 5000; exit}; puts [tk appname]; puts
**DONE**; flush stdout}
set ::test::bgDone 0
set ::test::bgData {}
flush $fd
tkwait variable ::test::bgDone
set app $::test::bgData
after 200
set result [list [catch {send $app foo} msg] $msg]
close $fd
set result
==== Test generated error:
can not find channel named "file7"
---- Result should have been:
1 {target application died}
==== send-12.2 FAILED
textDisp.test
==== textDisp-2.22 LayoutDLine, spacing options FAILED
==== Contents of test case:
.t configure -wrap word
.t delete 1.0 end
.t tag delete x y
.t insert end "Short line\nLine 2 is long enough "
.t insert end "to wrap around a couple of times"
.t insert end "\nLine 3\nLine 4"
set i [.t dlineinfo 1.0]
set b1 [expr [lindex $i 1] + [lindex $i 4]]
set i [.t dlineinfo 2.0]
set b2 [expr [lindex $i 1] + [lindex $i 4]]
set i [.t dlineinfo 2.end]
set b3 [expr [lindex $i 1] + [lindex $i 4]]
set i [.t dlineinfo 3.0]
set b4 [expr [lindex $i 1] + [lindex $i 4]]
.t configure -spacing1 2 -spacing2 1 -spacing3 3
set i [.t dlineinfo 1.0]
set b1 [expr [lindex $i 1] + [lindex $i 4] - $b1]
set i [.t dlineinfo 2.0]
set b2 [expr [lindex $i 1] + [lindex $i 4] - $b2]
set i [.t dlineinfo 2.end]
set b3 [expr [lindex $i 1] + [lindex $i 4] - $b3]
set i [.t dlineinfo 3.0]
set b4 [expr [lindex $i 1] + [lindex $i 4] - $b4]
list $b1 $b2 $b3 $b4
---- Result was:
2.0 7.0 10.0 15.0
---- Result should have been:
2 7 10 15
==== textDisp-2.22 FAILED
==== textDisp-2.23 LayoutDLine, spacing options FAILED
==== Contents of test case:
.t configure -wrap word
.t delete 1.0 end
.t tag delete x y
.t insert end "Short line\nLine 2 is long enough "
.t insert end "to wrap around a couple of times"
.t insert end "\nLine 3\nLine 4"
set i [.t dlineinfo 1.0]
set b1 [expr [lindex $i 1] + [lindex $i 4]]
set i [.t dlineinfo 2.0]
set b2 [expr [lindex $i 1] + [lindex $i 4]]
set i [.t dlineinfo 2.end]
set b3 [expr [lindex $i 1] + [lindex $i 4]]
set i [.t dlineinfo 3.0]
set b4 [expr [lindex $i 1] + [lindex $i 4]]
.t configure -spacing1 4 -spacing2 4 -spacing3 4
.t tag configure x -spacing1 1 -spacing2 2 -spacing3 3
.t tag add x 1.0 end
.t tag configure y -spacing1 0 -spacing2 3
.t tag add y 2.19 end
.t tag raise y
set i [.t dlineinfo 1.0]
set b1 [expr [lindex $i 1] + [lindex $i 4] - $b1]
set i [.t dlineinfo 2.0]
set b2 [expr [lindex $i 1] + [lindex $i 4] - $b2]
set i [.t dlineinfo 2.end]
set b3 [expr [lindex $i 1] + [lindex $i 4] - $b3]
set i [.t dlineinfo 3.0]
set b4 [expr [lindex $i 1] + [lindex $i 4] - $b4]
list $b1 $b2 $b3 $b4
---- Result was:
1.0 5.0 13.0 16.0
---- Result should have been:
1 5 13 16
==== textDisp-2.23 FAILED
==== textDisp-24.9 TkTextCharLayoutProc, line ends with space FAILED
==== Contents of test case:
.t configure -wrap char
.t delete 1.0 end
.t insert 1.0 "a b c d e f g h i j k l m n o p"
wm geom . [expr $width-6]x$height
update
list [.t bbox 1.19] [.t bbox 1.20]
==== Test generated error:
bad geometry specifier "244.0x140"
---- Result should have been:
{136 3 5 13} {3 16 7 13}
==== textDisp-24.9 FAILED
unixEmbed.test
==== unixEmbed-1.3 TkpUseWindow procedure, inheriting colormap FAILED
==== Contents of test case:
catch {destroy .t}
catch {destroy .x}
toplevel .t -colormap new
wm geometry .t +0+0
eatColors .t.t
frame .t.f -container 1
toplevel .x -use [winfo id .t.f]
set result [colorsFree .x]
destroy .t
set result
==== Test generated error:
expected integer but got "0.0"
---- Result should have been:
0
==== unixEmbed-1.3 FAILED
==== unixEmbed-1.4 TkpUseWindow procedure, inheriting colormap FAILED
==== Contents of test case:
catch {destroy .t}
catch {destroy .t2}
catch {destroy .x}
toplevel .t -container 1 -colormap new
wm geometry .t +0+0
eatColors .t2
toplevel .x -use [winfo id .t]
set result [colorsFree .x]
destroy .t
set result
==== Test generated error:
expected integer but got "0.0"
---- Result should have been:
1
==== unixEmbed-1.4 FAILED
==== unixEmbed-5.1 EmbedFocusProc procedure, FocusIn events FAILED
==== 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
bind .t1 <FocusIn> {lappend x "focus in %W"}
bind .t1 <FocusOut> {lappend x "focus out %W"}
set x {}
}
focus -force .f1
update
dobg {set x}
==== Test generated error:
error flushing "file10": broken pipe
---- Result should have been:
{focus in .t1}
==== unixEmbed-5.1 FAILED
==== unixEmbed-5.2 EmbedFocusProc procedure, focusing on dead window
FAILED
==== 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 {
after 200 {destroy .t1}
}
after 400
focus -force .f1
update
==== Test generated error:
error flushing "file10": broken pipe
---- Result should have been:
==== unixEmbed-5.2 FAILED
==== unixEmbed-5.3 EmbedFocusProc procedure, FocusOut events FAILED
==== 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
bind .t1 <FocusIn> {lappend x "focus in %W"}
bind .t1 <FocusOut> {lappend x "focus out %W"}
set x {}
}
focus -force .f1
update
set x [dobg {update; set x}]
focus .
update
list $x [dobg {update; set x}]
==== Test generated error:
error flushing "file10": broken pipe
---- Result should have been:
{{focus in .t1}} {{focus in .t1} {focus out .t1}}
==== unixEmbed-5.3 FAILED
==== unixEmbed-6.1 EmbedGeometryRequest procedure, window changes size
FAILED
==== 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 {
bind .t1 <Configure> {lappend x {configure .t1 %w %h}}
set x {}
.t1 configure -width 300 -height 120
update
list $x [winfo geom .t1]
}
==== Test generated error:
error flushing "file10": broken pipe
---- Result should have been:
{{configure .t1 300 120}} 300x120+0+0
==== unixEmbed-6.1 FAILED
==== unixEmbed-6.2 EmbedGeometryRequest procedure, window changes size
FAILED
==== Contents of test case:
foreach w [winfo child .] {
catch {destroy $w}
}
frame .f1 -container 1 -width 200 -height 50
place .f1 -width 200 -height 200
dobg "set w1 [winfo id .f1]"
dobg {
eval destroy [winfo child .]
toplevel .t1 -use $w1
}
after 300 {set x done}
vwait x
dobg {
bind .t1 <Configure> {lappend x {configure .t1 %w %h}}
set x {}
.t1 configure -width 300 -height 120
update
list $x [winfo geom .t1]
}
==== Test generated error:
error flushing "file10": broken pipe
---- Result should have been:
{{configure .t1 200 200}} 200x200+0+0
==== unixEmbed-6.2 FAILED
==== unixEmbed-7.1 TkpRedirectKeyEvent procedure, forward keystroke
FAILED
==== 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
}
focus -force .
bind . <KeyPress> {lappend x {key %A %E}}
set x {}
set y [dobg {
update
bind .t1 <KeyPress> {lappend y {key %A}}
set y {}
event generate .t1 <KeyPress> -keysym a
set y
}]
update
bind . <KeyPress> {}
list $x $y
==== Test generated error:
error flushing "file10": broken pipe
---- Result should have been:
{{key a 1}} {}
==== unixEmbed-7.1 FAILED
==== unixEmbed-7.2 TkpRedirectKeyEvent procedure, don't forward
keystroke width FAILED
==== 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
==== Test generated error:
error flushing "file10": broken pipe
---- Result should have been:
{} {{key b}}
==== unixEmbed-7.2 FAILED
==== unixEmbed-8.1 TkpClaimFocus procedure FAILED
==== Contents of test case:
foreach w [winfo child .] {
catch {destroy $w}
}
frame .f1 -container 1 -width 200 -height 50
frame .f2 -width 200 -height 50
pack .f1 .f2
dobg "set w1 [winfo id .f1]"
dobg {
eval destroy [winfo child .]
toplevel .t1 -use $w1 -highlightthickness 2 -bd 2 -relief sunken
}
focus -force .f2
update
list [dobg {
focus .t1
set x [list [focus]]
update
after 500
update
lappend x [focus]
}] [focus]
==== Test generated error:
error flushing "file10": broken pipe
---- Result should have been:
{{} .t1} .f1
==== unixEmbed-8.1 FAILED
==== unixEmbed-9.2 EmbedWindowDeleted procedure, check embeddedPtr
FAILED
==== 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]
}
==== Test generated error:
error flushing "file10": broken pipe
---- Result should have been:
{{XXX {} {} .t1}} {}
==== unixEmbed-9.2 FAILED
unixFont.test
==== unixfont-5.4 Tk_MeasureChars procedure: reached right edge FAILED
==== Contents of test case:
.b.l config -text "0000000000000"
getsize
---- Result was:
60 26
---- Result should have been:
60.0 26
==== unixfont-5.4 FAILED
==== unixfont-5.5 Tk_MeasureChars procedure: ran out of chars FAILED
==== Contents of test case:
.b.l config -text "000000"
getsize
---- Result was:
36 13
---- Result should have been:
36.0 13
==== unixfont-5.5 FAILED
==== unixfont-5.6 Tk_MeasureChars procedure: find last word FAILED
==== Contents of test case:
.b.l config -text "000000 00000"
getsize
---- Result was:
36 26
---- Result should have been:
36.0 26
==== unixfont-5.6 FAILED
==== unixfont-5.7 Tk_MeasureChars procedure: already saw space in line
FAILED
==== Contents of test case:
.b.l config -text "000000 00000"
getsize
---- Result was:
36 26
---- Result should have been:
36.0 26
==== unixfont-5.7 FAILED
==== unixfont-5.8 Tk_MeasureChars procedure: internal spaces significant
FAILED
==== Contents of test case:
.b.l config -text "00 000 00000"
getsize
---- Result was:
42 26
---- Result should have been:
42.0 26
==== unixfont-5.8 FAILED
==== unixfont-5.10 Tk_MeasureChars procedure: TK_AT_LEAST_ONE FAILED
==== Contents of test case:
.b.l config -text "000000000000"
getsize
---- Result was:
60 26
---- Result should have been:
60.0 26
==== unixfont-5.10 FAILED
==== unixfont-5.11 Tk_MeasureChars: TK_AT_LEAST_ONE + not even one char
fit! FAILED
==== Contents of test case:
set a [.b.l cget -wrap]
.b.l config -text "000000" -wrap 1
set x [getsize]
.b.l config -wrap $a
set x
---- Result was:
6 78
---- Result should have been:
6 78.0
==== unixfont-5.11 FAILED
==== unixfont-5.12 Tk_MeasureChars procedure: include eol spaces FAILED
==== Contents of test case:
.b.l config -text "000 \n000"
getsize
---- Result was:
36 26
---- Result should have been:
36.0 26
==== unixfont-5.12 FAILED
==== unixfont-8.4 AllocFont procedure: classify characters FAILED
==== Contents of test case:
set x 0
incr x [font measure $courier "\u4000"] ;# 6
incr x [font measure $courier "\002"] ;# 4
incr x [font measure $courier "\012"] ;# 2
incr x [font measure $courier "\101"] ;# 1
set x
---- Result was:
78
---- Result should have been:
78.0
==== unixfont-8.4 FAILED
==== unixfont-8.6 AllocFont procedure: setup widths of special chars
FAILED
==== Contents of test case:
set x 0
incr x [font measure $courier "\001"] ;# 4
incr x [font measure $courier "\002"] ;# 4
incr x [font measure $courier "\012"] ;# 2
set x
---- Result was:
60
---- Result should have been:
60.0
==== unixfont-8.6 FAILED
unixMenu.test
unixSend.test
==== unixSend-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]
close $fd
set x
==== Test generated error:
can not find channel named "file7"
---- Result should have been:
1 {target application died}
==== unixSend-10.19 FAILED
==== unixSend-12.2 TimeoutProc procedure FAILED
==== Contents of test case:
winfo interps
tk appname tktest
update
setupbg
puts $fd {after 10 {after 5000; exit}; puts [tk appname]; puts
**DONE**; flush stdout}
set ::test::bgDone 0
set ::test::bgData {}
flush $fd
tkwait variable ::test::bgDone
set app $::test::bgData
after 200
set result [list [catch {send $app foo} msg] $msg]
close $fd
set result
==== Test generated error:
can not find channel named "file7"
---- Result should have been:
1 {target application died}
==== unixSend-12.2 FAILED
unixWm.test
==== unixWm-2.1 moving window while mapped FAILED
==== Contents of test case:
wm geom .t $geom
update
scan [wm geom .t] %dx%d%1s%d%1s%d width height xsign x ysign y
format "%s%d%s%d" $xsign [eval expr $x$xsign$xerr] $ysign [eval
expr $y$ysign$yerr]
==== Test generated error:
expected integer but got "20.0"
---- Result should have been:
+20+80
==== unixWm-2.1 FAILED
==== unixWm-2.2 moving window while mapped FAILED
==== Contents of test case:
wm geom .t $geom
update
scan [wm geom .t] %dx%d%1s%d%1s%d width height xsign x ysign y
format "%s%d%s%d" $xsign [eval expr $x$xsign$xerr] $ysign [eval
expr $y$ysign$yerr]
==== Test generated error:
expected integer but got "80.0"
---- Result should have been:
+80+20
==== unixWm-2.2 FAILED
==== unixWm-2.7 moving window while mapped FAILED
==== Contents of test case:
wm geom .t $geom
update
scan [wm geom .t] %dx%d%1s%d%1s%d width height xsign x ysign y
format "%s%d%s%d" $xsign [eval expr $x$xsign$xerr] $ysign [eval
expr $y$ysign$yerr]
==== Test generated error:
expected integer but got "10.0"
---- Result should have been:
-10-5
==== unixWm-2.7 FAILED
==== unixWm-2.8 moving window while mapped FAILED
==== Contents of test case:
wm geom .t $geom
update
scan [wm geom .t] %dx%d%1s%d%1s%d width height xsign x ysign y
format "%s%d%s%d" $xsign [eval expr $x$xsign$xerr] $ysign [eval
expr $y$ysign$yerr]
==== Test generated error:
expected integer but got "10.0"
---- Result should have been:
-10+5
==== unixWm-2.8 FAILED
==== unixWm-2.9 moving window while mapped FAILED
==== Contents of test case:
wm geom .t $geom
update
scan [wm geom .t] %dx%d%1s%d%1s%d width height xsign x ysign y
format "%s%d%s%d" $xsign [eval expr $x$xsign$xerr] $ysign [eval
expr $y$ysign$yerr]
==== Test generated error:
expected integer but got "10.0"
---- Result should have been:
+10-5
==== unixWm-2.9 FAILED
==== unixWm-3.1 moving window while iconified FAILED
==== Contents of test case:
wm iconify .t
sleep 200
wm geom .t $geom
update
wm deiconify .t
scan [wm geom .t] %dx%d%1s%d%1s%d width height xsign x ysign y
format "%s%d%s%d" $xsign [eval expr $x$xsign$xerr] $ysign [eval
expr $y$ysign$yerr]
==== Test generated error:
expected integer but got "20.0"
---- Result should have been:
+20+80
==== unixWm-3.1 FAILED
==== unixWm-3.2 moving window while iconified FAILED
==== Contents of test case:
wm iconify .t
sleep 200
wm geom .t $geom
update
wm deiconify .t
scan [wm geom .t] %dx%d%1s%d%1s%d width height xsign x ysign y
format "%s%d%s%d" $xsign [eval expr $x$xsign$xerr] $ysign [eval
expr $y$ysign$yerr]
==== Test generated error:
expected integer but got "80.0"
---- Result should have been:
+80+20
==== unixWm-3.2 FAILED
==== unixWm-3.7 moving window while iconified FAILED
==== Contents of test case:
wm iconify .t
sleep 200
wm geom .t $geom
update
wm deiconify .t
scan [wm geom .t] %dx%d%1s%d%1s%d width height xsign x ysign y
format "%s%d%s%d" $xsign [eval expr $x$xsign$xerr] $ysign [eval
expr $y$ysign$yerr]
==== Test generated error:
expected integer but got "10.0"
---- Result should have been:
-10-5
==== unixWm-3.7 FAILED
==== unixWm-3.8 moving window while iconified FAILED
==== Contents of test case:
wm iconify .t
sleep 200
wm geom .t $geom
update
wm deiconify .t
scan [wm geom .t] %dx%d%1s%d%1s%d width height xsign x ysign y
format "%s%d%s%d" $xsign [eval expr $x$xsign$xerr] $ysign [eval
expr $y$ysign$yerr]
==== Test generated error:
expected integer but got "10.0"
---- Result should have been:
-10+5
==== unixWm-3.8 FAILED
==== unixWm-3.9 moving window while iconified FAILED
==== Contents of test case:
wm iconify .t
sleep 200
wm geom .t $geom
update
wm deiconify .t
scan [wm geom .t] %dx%d%1s%d%1s%d width height xsign x ysign y
format "%s%d%s%d" $xsign [eval expr $x$xsign$xerr] $ysign [eval
expr $y$ysign$yerr]
==== Test generated error:
expected integer but got "10.0"
---- Result should have been:
+10-5
==== unixWm-3.9 FAILED
bad geometry specifier "+100.0+200"
visual.test
expected integer but got "0.0"
winfo.test
==== winfo-3.4 "winfo colormapfull" command FAILED
==== Contents of test case:
eatColors .t {-colormap new}
set result [list [winfo colormapfull .] [winfo colormapfull .t]]
.t.c delete 34
lappend result [winfo colormapfull .t]
.t.c create rectangle 30 30 80 80 -fill #441739
lappend result [winfo colormapfull .t]
.t.c create rectangle 40 40 90 90 -fill #ffeedd
lappend result [winfo colormapfull .t]
destroy .t.c
lappend result [winfo colormapfull .t]
==== Test generated error:
expected integer but got "0.0"
---- Result should have been:
0 1 0 0 1 0
==== winfo-3.4 FAILED
This application hasn't been compiled with the testwrapper command,
therefore I am skipping all of these tests.
Tests ended at Mon Mar 29 13:20:52 EST 1999
all.tcl: Total 6054 Passed 5844 Skipped 163 Failed
47
Sourced 68 Test Files.
Files with failing tests: canvText.test clipboard.test config.test
focus.test grid.test main.test safe.test send.test textDisp.test
unixEmbed.test unixFont.test unixSend.test util.test winfo.test
DesiredBehavior:
I would expect that tests should succeed.
Marked tests nonPortable:
canvText-6.1
config-8.9
grid-6.9
Already fixed bug in test suite or source code:
main-1.1: bug in test
safe-5.1: bug in interp deletion
Haven't reproduced these yet:
focus-6.1
clipboard-6.2
send-8.1,10.19,12.2
textDisp-2.22,2.23,24.9
unixEmbed 1.3,1.4: I think these were fixed.
We fixed a bug in how integer values get returned in Tcl8.1b2. This fix probably fixed many of the other failures.
-hershey
This has narrowed down to 2 test suite failures for Larry in 8.1.1
in the related bug id.
-- 08/31/1999 hobbs
|
Home
Timeline
Branches
Tags
Tickets
Download
Wiki