[Tcl-bugs] [ tcl-Bugs-748949 ] event.test failed

[SourceForge.net <no...@so...>]

Bugs item #748949, was opened at 2003-06-04 17:55
Message generated for change (Comment added) made by mmokrejs
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=748949&group_id=10894

Category: 02. Event Loops
Group: = 8.4.3
Status: Open
Resolution: None
Priority: 5
Submitted By: Martin Mokrejs (mmokrejs)
Assigned to: Jeffrey Hobbs (hobbs)
Summary: event.test failed

Initial Comment:
Hi,
I have compiled tcl8.4.3 on Tru64Unix (formerly OSF1)
and make test fails in many cases. Would someone
inspect the output? Thanks!

I used cc/cxx from vendor, latest version, C*FLAGS"-O2
-arch ev56" if that matters.


The original bugreport is at
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=748804&group_id=10894


==== event-11.5 Tcl_VwaitCmd procedure: round robin
scheduling, 2 sources FAILED
==== Contents of test case:

    set test1file [makeFile "" test1]
    set f1 [open $test1file w]
    proc accept {s args} {
	puts $s foobar
	close $s
    }
    catch {set s1 [socket -server accept 0]}
    after 1000
    catch {set s2 [socket 127.0.0.1 [lindex [fconfigure
$s1 -sockname] 2]]}
    close $s1
    set x 0
    set y 0
    set z 0
    fileevent $s2 readable {incr z}
    vwait z
    fileevent $f1 writable {incr x; if {$y == 3} {set z
done}}
    fileevent $s2 readable {incr y; if {$x == 3} {set z
done}}
    vwait z
    close $f1
    close $s2
    removeFile $test1file
    list $x $y $z

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== event-11.5 FAILED

----------------------------------------------------------------------

>Comment By: Martin Mokrejs (mmokrejs)
Date: 2003-07-21 11:17

Message:
Logged In: YES 
user_id=696559

$ ./tcltest ../tests/event.test -verbose e

==== event-11.5 Tcl_VwaitCmd procedure: round robin
scheduling, 2 sources FAILED
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: 
    while executing
"close $s2"
    ("uplevel" body line 21)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== event-11.5 FAILED

event.test:     Total   40      Passed  31      Skipped 8  
    Failed  1
Number of tests skipped for each constraint:
        8       nonPortable
$

----------------------------------------------------------------------

Comment By: Don Porter (dgp)
Date: 2003-07-18 17:00

Message:
Logged In: YES 
user_id=80530


can you re-run the test with
the "-verbose e" option so
that you report the error and
stack trace?

----------------------------------------------------------------------

Comment By: Martin Mokrejs (mmokrejs)
Date: 2003-07-18 14:01

Message:
Logged In: YES 
user_id=696559

Still happens with current cvs.

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=748949&group_id=10894