[Tcl-bugs] [ tktoolkit-Bugs-814609 ] tip150 breaks lots of tests

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 454-5900

Bugs item #814609, was opened at 2003-09-29 19:19
Message generated for change (Comment added) made by patthoyts
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: Pat Thoyts (patthoyts)
Date: 2003-09-30 09: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

[Tcl-bugs] [ tktoolkit-Bugs-814609 ] tip150 breaks lots of tests

The Tool Command Language implementation

[Tcl-bugs] [ tktoolkit-Bugs-814609 ] tip150 breaks lots of tests