From: SourceForge.net <no...@so...> - 2003-09-30 15:01:20
|
Bugs item #814609, was opened at 2003-09-29 14:19 Message generated for change (Comment added) made by dgp You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=112997&aid=814609&group_id=12997 Category: 58. [send] Group: 8.5a0 Status: Open Resolution: None Priority: 7 Submitted By: Vince Darley (vincentdarley) Assigned to: Pat Thoyts (patthoyts) Summary: tip150 breaks lots of tests Initial Comment: TIP 150 was applied, but apparently no tests were updated. Quite a few fail (this is on WinXP). Shouldn't the tests have been run *before* applying the patch *grin*: Only running test files that match: s* Tests began at Mon Sep 29 19:15:11 GMT Daylight Time 2003 safe.test ==== safe-1.2 Safe Tk loading into an interpreter FAILED ==== Contents of test case: catch {safe::interpDelete a} safe::interpCreate a safe::loadTk a set l [lsort [interp hidden a]] safe::interpDelete a set l ---- Result was: bell cd clipboard encoding exec exit fconfigure file glob grab load menu open pw d selection send socket source tk_chooseColor tk_chooseDirectory tk_getOpenFile tk_getSaveFile tk_messageBox toplevel wm ---- Result should have been (exact matching): bell cd clipboard encoding exec exit fconfigure file glob grab load menu open pw d selection socket source tk_chooseColor tk_chooseDirectory tk_getOpenFile tk_ge tSaveFile tk_messageBox toplevel wm ==== safe-1.2 FAILED scale.test scrollbar.test select.test 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 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== send-8.1 FAILED ==== send-8.4 Tk_SendCmd procedure, options FAILED ==== Contents of test case: list [catch {send -gorp foo bar baz} msg] $msg ---- Result was: 1 {no application named "-gorp"} ---- Result should have been (exact matching): 1 {bad option "-gorp": must be -async, -displayof, or --} ==== send-8.4 FAILED ==== send-8.5 Tk_SendCmd procedure, options FAILED ==== Contents of test case: list [catch {send -async foo} msg] $msg ---- Result was: 1 {bad option "foo": must be -async, -displayof, or --wrong # args: should be "s end ?-async? ?-displayof? ?--? interpName arg ?arg ...?"} ---- Result should have been (exact matching): 1 {wrong # args: should be "send ?options? interpName arg ?arg ...?"} ==== send-8.5 FAILED ==== send-8.6 Tk_SendCmd procedure, options FAILED ==== Contents of test case: list [catch {send foo} msg] $msg ---- Result was: 1 {bad option "foo": must be -async, -displayof, or --wrong # args: should be "s end ?-async? ?-displayof? ?--? interpName arg ?arg ...?"} ---- Result should have been (exact matching): 1 {wrong # args: should be "send ?options? interpName arg ?arg ...?"} ==== send-8.6 FAILED ==== send-8.9 Tk_SendCmd procedure, local execution FAILED ==== Contents of test case: set a initial string tolower [list [catch {send [tk appname] open bad_file} msg] $msg $er rorInfo $errorCode] ---- Result was: 1 {couldn't open "bad_file": no such file or directory} {couldn't open "bad_file ": no such file or directory while executing "open bad_file"enoent invoked from within "send [tk appname] open bad_file"} posix ---- Result should have been (exact matching): 1 {couldn't open "bad_file": no such file or directory} {couldn't open "bad_file ": no such file or directory while executing "open bad_file" invoked from within "send [tk appname] open bad_file"} {posix enoent {no such file or directory}} ==== send-8.9 FAILED ==== send-8.18 Tk_SendCmd procedure, error in remote app FAILED ==== Contents of test case: setupbg set app [dobg {tk appname}] set result [string tolower [list [catch {send $app open bad_name} msg] $msg $errorInfo $errorCode]] cleanupbg set result ---- Result was: 1 {no application named ""} {no application named "" while executing "send $app open bad_name"} none ---- Result should have been (exact matching): 1 {couldn't open "bad_name": no such file or directory} {couldn't open "bad_name ": no such file or directory while executing "open bad_name" invoked from within "send $app open bad_name"} {posix enoent {no such file or directory}} ==== send-8.18 FAILED ==== send-8.19 Tk_SendCmd, using modal timeouts FAILED ==== Contents of test case: setupbg set app [dobg {tk appname}] set x no set result "" after 0 {set x yes} lappend result [send $app {concat x y z}] lappend result $x update cleanupbg lappend result $x ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== send-8.19 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 {no application named ""} ---- 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 {no application named ""} {tktest {tk #2} script tk} ---- 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: {script tk} {} {foo script tk} send ---- Result should have been (exact matching): {} {} foo send ==== send-13.2 FAILED spinbox.test Tests ended at Mon Sep 29 19:15:24 GMT Daylight Time 2003 all.tcl: Total 860 Passed 677 Skipped 172 Failed 11 Sourced 12 Test Files. Files with failing tests: safe.test send.test Number of tests skipped for each constraint: 7 altDisplay 35 fonts 1 knownBug 10 macOnly 13 macOrUnix 8 nonPortable 54 testsend 44 unixOnly stderr32 C:\Programming\Tcl-source\cvs-tk\win> C:\Programming\Tcl-source\cvs-tk\win> ---------------------------------------------------------------------- >Comment By: Don Porter (dgp) Date: 2003-09-30 11:01 Message: Logged In: YES user_id=80530 Sounds as if we may have stumbled upon a platform difference in the handling of events? If so, perhaps that should be more precisely identified and recorded as a separate bug, or feature request? ---------------------------------------------------------------------- Comment By: Vince Darley (vincentdarley) Date: 2003-09-30 09:53 Message: Logged In: YES user_id=32170 Ok, I was misled by the changelog entry which doesn't mention any changes to tests. sorry. ---------------------------------------------------------------------- Comment By: Pat Thoyts (patthoyts) Date: 2003-09-30 04:43 Message: Logged In: YES user_id=202636 Actually it _adds_ a lot of tests that now pass. The send.test failures are due to a problem in how the 'setupbg' test helper is geared. In short, it execs an interpreter that doesn't process events except during input. For the win32 send it needs to process events all the time. I'm working on this and will either skip these tests, or redo the bg server for win32. ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=112997&aid=814609&group_id=12997 |