#2360 event.test failed

[Martin Mokrejs]

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

[Martin Mokrejs]

Logged In: YES
user_id=696559

Still happens with current cvs.

[Don Porter]

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?

[Martin Mokrejs]

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
$

[Martin Mokrejs]

Logged In: YES
user_id=696559

Still happens with tcl8.4.5 on same host

[Martin Mokrejs]

Logged In: YES
user_id=696559

Seems to be fixed in cvs as of now.