Menu
▾
▴
#1567 tip150 breaks lots of tests
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>
Discussion
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.
Logged In: YES
user_id=32170
Ok, I was misled by the changelog entry which doesn't
mention any changes to tests. sorry.
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?