From: <no...@so...> - 2002-07-15 17:06:17
|
Bugs item #581627, was opened at 2002-07-15 10: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: Open Resolution: Fixed Priority: 9 Submitted By: Vince Darley (vincentdarley) Assigned to: Don Porter (dgp) >Summary: 35 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: Vince Darley (vincentdarley) Date: 2002-07-15 17:06 Message: Logged In: YES user_id=32170 Now we're down to 35 tests (and the 'hang' is still there). I agree some of these probably are bugs, but I'm still concerned that changes to the test suite should cause a substantial increase in test failures. Only running test files that match: *.test Tests began at Mon Jul 15 6:00:24 PM GMT Daylight Time 2002 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 ==== panedwindow-10.1 sash mark/sash dragto interaction FAILED ==== Contents of test case: panedwindow .p -borderwidth 0 -sashpad 0 - sashwidth 4 -showhandle false .p add [frame .f -width 20 -height 20] [button .c] .p sash mark 0 10 10 .p sash dragto 0 20 10 set result [.p sash coord 0] destroy .p .f .c set result ---- Result was: 28 0 ---- Result should have been (exact matching): 30 0 ==== panedwindow-10.1 FAILED ==== panedwindow-10.2 sash mark/sash dragto interaction FAILED ==== Contents of test case: panedwindow .p -borderwidth 0 -sashpad 0 - sashwidth 4 -orient vertical -sho whandle false .p add [frame .p.f -width 20 -height 20] [button .p.c] .p sash mark 0 10 10 .p sash dragto 0 10 20 set result [.p sash coord 0] destroy .p .p.f .p.c set result ---- Result was: 0 28 ---- Result should have been (exact matching): 0 30 ==== panedwindow-10.2 FAILED ==== panedwindow-12.1 moving sash changes size of pane to left FAILED ==== Contents of test case: panedwindow .p -borderwidth 0 -sashpad 0 - sashwidth 4 -showhandle false .p add [frame .f -width 20 -height 20] [button .c] - sticky nsew .p sash place 0 30 0 pack .p update set result [winfo width .f] destroy .p .f .c set result ---- Result was: 28 ---- Result should have been (exact matching): 30 ==== panedwindow-12.1 FAILED ==== panedwindow-12.4 moving sash changes size of pane above FAILED ==== Contents of test case: panedwindow .p -showhandle false -borderwidth 0 - sashpad 0 -sashwidth 4 -or ient vertical .p add [frame .f -width 20 -height 10] [button .c] - sticky nsew .p sash place 0 0 20 pack .p update set result [winfo height .f] destroy .p .f .c set result ---- Result was: 18 ---- Result should have been (exact matching): 20 ==== panedwindow-12.4 FAILED 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-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-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-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: {} {} {} {} {} {} {} {} ---- Result should have been (exact matching): {} {} .t {} .t2 .t2 {} .t ==== unixWm-50.1 FAILED ==== unixWm-50.2 Tk_CoordsToWindow procedure, finding a toplevel, y-coords and o verrideredirect FAILED ==== Contents of test case: deleteWindows toplevel .t -width 300 -height 400 -bg yellow wm geom .t +0+50 tkwait visibility .t toplevel .t2 -width 100 -height 80 -bg blue wm overrideredirect .t2 1 wm geom .t2 +100+200 tkwait visibility .t2 raise .t2 set x [winfo rootx .t] set y [winfo rooty .t] set y2 [winfo rooty .t2] list [winfo containing [expr $x +150] 10] [winfo containing [expr $x +150] [expr $y - 1]] [winfo containing [expr $x +150] $y] [winfo containing [expr $x +150] [expr $y2 - 1]] [winfo containing [expr $x +150] $y2] [winfo containing [expr $x +150] [expr $y2 + 79]] [winfo containing [expr $x +150] [expr $y2 + 8 0]] [winfo containing [expr $x +150] [expr $y + 450]] ---- Result was: {} {} {} {} {} {} {} {} ---- Result should have been (exact matching): {} {} .t .t .t2 .t2 .t {} ==== unixWm-50.2 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: {} {} {} {} ---- Result should have been (exact matching): {} .x .t .t.f ==== unixWm-50.3 FAILED ==== unixWm-50.4 Tk_CoordsToWindow procedure, window in other application FAILED ==== Contents of test case: catch {destroy .t} catch {interp delete slave} toplevel .t -width 200 -height 200 -bg green wm geometry .t +0+0 tkwait visibility .t interp create slave load {} Tk slave slave eval {wm geometry . 200x200+0+0; tkwait visibility .} set result [list [winfo containing 100 100] [slave eval {winfo containing 1 00 100}]] interp delete slave set result ---- Result was: {} {} ---- Result should have been (exact matching): {} . ==== unixWm-50.4 FAILED ==== unixWm-50.6 Tk_CoordsToWindow procedure, embedding within one app. FAILED ==== Contents of test case: deleteWindows toplevel .t -width 300 -height 400 -bg orange wm geom .t +0+50 frame .t.f -container 1 place .t.f -x 150 -y 50 tkwait visibility .t.f toplevel .t2 -width 100 -height 80 -bg green -use [winfo id .t.f] tkwait visibility .t2 update set x [winfo rootx .t] set y [winfo rooty .t] list [winfo containing [expr $x +149] [expr $y + 80]] [winfo containing [ex pr $x +150] [expr $y +80]] [winfo containing [expr $x +249] [expr $y +80]] [wi nfo containing [expr $x +250] [expr $y +80]] ---- Result was: {} {} {} {} ---- Result should have been (exact matching): .t .t2 .t2 .t ==== unixWm-50.6 FAILED ==== unixWm-50.7 Tk_CoordsToWindow procedure, more basics FAILED ==== Contents of test case: catch {destroy .t} toplevel .t -width 300 -height 400 -bg green wm geom .t +0+0 frame .t.f -width 100 -height 200 -bd 2 -relief raised place .t.f -x 100 -y 100 frame .t.f.f -width 100 -height 200 -bd 2 -relief raised place .t.f.f -x 0 -y 100 tkwait visibility .t.f.f set x [expr [winfo rootx .t] + 150] set y [winfo rooty .t] list [winfo containing $x [expr $y + 50]] [winfo containing $x [expr $y + 1 50]] [winfo containing $x [expr $y + 250]] [winfo containing $x [expr $y + 350 ]] [winfo containing $x [expr $y + 450]] ---- Result was: {} {} {} {} {} ---- Result should have been (exact matching): .t .t.f .t.f.f .t {} ==== unixWm-50.7 FAILED ==== unixWm-50.8 Tk_CoordsToWindow procedure, more basics FAILED ==== Contents of test case: catch {destroy .t} toplevel .t -width 400 -height 300 -bg green wm geom .t +0+0 frame .t.f -width 200 -height 100 -bd 2 -relief raised place .t.f -x 100 -y 100 frame .t.f.f -width 200 -height 100 -bd 2 -relief raised place .t.f.f -x 100 -y 0 update set x [winfo rooty .t] set y [expr [winfo rooty .t] + 150] list [winfo containing [expr $x + 50] $y] [winfo containing [expr $x + 150] $y] [winfo containing [expr $x + 250] $y] [winfo containing [expr $x + 350] $ y] [winfo containing [expr $x + 450] $y] ---- Result was: {} {} {} {} {} ---- Result should have been (exact matching): .t .t.f .t.f.f .t {} ==== unixWm-50.8 FAILED ==== unixWm-50.9 Tk_CoordsToWindow procedure, unmapped windows FAILED ==== Contents of test case: catch {destroy .t} catch {destroy .t2} sleep 500 ;# Give window manager time to catch up. toplevel .t -width 200 -height 200 -bg green wm geometry .t +0+0 tkwait visibility .t toplevel .t2 -width 200 -height 200 -bg red wm geometry .t2 +0+0 tkwait visibility .t2 set result [list [winfo containing 100 100]] wm iconify .t2 lappend result [winfo containing 100 100] ---- Result was: {} {} ---- Result should have been (exact matching): .t2 .t ==== unixWm-50.9 FAILED ==== unixWm-50.10 Tk_CoordsToWindow procedure, unmapped windows FAILED ==== Contents of test case: catch {destroy .t} toplevel .t -width 200 -height 200 -bg green wm geometry .t +0+0 frame .t.f -width 150 -height 150 -bd 2 -relief raised place .t.f -x 25 -y 25 tkwait visibility .t.f set result [list [winfo containing 100 100]] place forget .t.f update lappend result [winfo containing 100 100] ---- Result was: {} {} ---- Result should have been (exact matching): .t.f .t ==== unixWm-50.10 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 6:02:20 PM GMT Daylight Time 2002 all.tcl: Total 8112 Passed 6635 Skipped 1442 Failed 35 Sourced 182 Test Files. Files with failing tests: panedwindow.test textWind.test unixWm.test winButton.t est winWm.test Number of tests skipped for each constraint: 6 altDisplay 16 colorsFree 7 emptyTest 265 fonts 2 knownBug 310 macOnly 15 macOrUnix 80 nonPortable 79 nonUnixUserInteraction 35 nt 3 pseudocolor 3 pseudocolor8 71 secureserver 1 tempNotPc 5 testmenubar 298 unix 176 unixOnly 19 userInteraction 51 winSend stderr32 Administrator@TRAPPER ~/tcl-source/tk8.4/win $ ---------------------------------------------------------------------- Comment By: Don Porter (dgp) Date: 2002-07-15 16: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 |