tcl-8.5.1-rc2 test failures on netbsd

LD_LIBRARY_PATH=`pwd`:${LD_LIBRARY_PATH}; export LD_LIBRARY_PATH;  TCL_LIBRARY="/home/emiliano/tcl8.5.1/library"; export TCL_LIBRARY;  ./tcltest /home/emiliano/tcl8.5.1/unix/../tests/all.tcl 
Tests running in interp:  /home/emiliano/tcl8.5.1/unix/tcltest
Tests located in:  /home/emiliano/tcl8.5.1/tests
Tests running in:  /home/emiliano/tcl8.5.1/unix
Temporary files stored in /home/emiliano/tcl8.5.1/unix
Test files run in separate interpreters
Running tests that match:  *
Skipping test files that match:  l.*.test
Only running test files that match:  *.test
Tests began at Mon Feb 04 18:00:44 ART 2008
append.test
appendComp.test
apply.test
assocd.test
async.test
autoMkindex.test
basic.test
binary.test
case.test
chan.test
chanio.test
clock.test


==== clock-33.8a clock test, microsecond timing test FAILED
==== Contents of test case:

    set start [clock microseconds]
    after 10
    set end [clock microseconds]
    expr {($end > $start) && (($end - $start) <= 60000)}

---- Result was:
0
---- Result should have been (exact matching):
1
==== clock-33.8a FAILED

cmdAH.test
cmdIL.test
cmdInfo.test
cmdMZ.test
compExpr-old.test
compExpr.test
compile.test
concat.test
config.test
dcall.test
dict.test
dstring.test
encoding.test
env.test
error.test
eval.test
event.test


==== event-7.4 tkerror is nothing special anymore to tcl FAILED
==== Contents of test case:

    set errRes {}
    # we don't just rename bgerror to empty because it could then
    # be autoloaded...
    proc bgerror {err} {
        global errRes;
        lappend errRes "bg:$err";
    }
    proc tkerror {err} {
        global errRes;
        lappend errRes "tk:$err";
    }
    after 0 {error err1}
    update
    rename tkerror {}
    set errRes

---- Result was:

---- Result should have been (exact matching):
bg:err1
==== event-7.4 FAILED


==== event-7.7 safe hidden bgerror fallback FAILED
==== Contents of test case:

    variable result {}
    interp create -safe safe
    safe alias puts puts
    safe alias result ::append [namespace which -variable result]
    safe eval {proc bgerror m {result $m\n$::errorCode\n$::errorInfo\n}}
    safe hide bgerror
    safe eval {proc bgerror m {error bar soom baz}}
    safe eval after 0 error foo
    update
    interp delete safe
    set result

---- Result was:

---- Result should have been (exact matching):
foo
NONE
foo
    while executing
"error foo"
    ("after" script)

==== event-7.7 FAILED


==== event-12.4 Tcl_UpdateCmd procedure FAILED
==== Contents of test case:

    foreach i [after info] {
        after cancel $i
    }
    after 10; update; # On Mac make sure update won't take long
    after 200 {set x x-done}
    after 600 {set y y-done}
    after idle {set z z-done}
    set x before
    set y before
    set z before
    after 300
    update
    list $x $y $z

---- Result was:
x-done y-done z-done
---- Result should have been (exact matching):
x-done before z-done
==== event-12.4 FAILED

exec.test
execute.test
expr-old.test
expr.test
fCmd.test
fileName.test
fileSystem.test
for-old.test
for.test
foreach.test
format.test
get.test
history.test
http.test
httpold.test
if-old.test
if.test
incr-old.test
incr.test
indexObj.test
info.test
init.test
:       Total   25      Passed  25      Skipped 0       Failed  0
interp.test
io.test
ioCmd.test
ioUtil.test
iogt.test
join.test
lindex.test
link.test
linsert.test
list.test
listObj.test
llength.test
load.test
lrange.test
lrepeat.test
lreplace.test
lsearch.test
lset.test
lsetComp.test
macOSXFCmd.test
macOSXLoad.test
main.test
mathop.test
misc.test
msgcat.test
namespace-old.test
namespace.test
notify.test
obj.test
opt.test
package.test
parse.test
parseExpr.test
parseOld.test
pid.test
pkg.test
:       Total   384     Passed  384     Skipped 0       Failed  0
pkgMkIndex.test
platform.test
proc-old.test
proc.test
pwd.test
reg.test
regexp.test
regexpComp.test
registry.test
rename.test
result.test
safe.test
scan.test
security.test
set-old.test
set.test
socket.test


==== socket-11.11 testing spurious events FAILED
==== Contents of test case:

    sendCommand {
        set socket10_13_test_server [socket -server accept 2836]
        proc accept {s a p} {
            fconfigure $s -translation "auto lf"
            after 100 writesome $s
        }
        proc writesome {s} {
            for {set i 0} {$i < 100} {incr i} {
                puts $s "line $i from remote server"
            }
            close $s
        }
    }
    set len 0
    set spurious 0
    set done 0
    proc readlittle {s} {
        global spurious done len
        set l [read $s 1]
        if {[string length $l] == 0} {
            if {![eof $s]} {
                incr spurious
            } else {
                close $s
                set done 1
            }
        } else {
            incr len [string length $l]
        }
    }
    set c [socket $remoteServerIP 2836]
    fileevent $c readable "readlittle $c"
    set timer [after 40000 "set done timed_out"]
    vwait done
    after cancel $timer
    sendCommand {close $socket10_13_test_server}
    list $spurious $len $done

---- Result was:
0 357 timed_out
---- Result should have been (exact matching):
0 2690 1
==== socket-11.11 FAILED

source.test
split.test
stack.test
Test file error: WARNING: the default application stacksize of 2048 may cause Tcl to
crash due to stack overflow before the recursion limit is reached.
A minimum stacksize of 2400 kbytes is recommended.
Skipping infinite recursion test.
string.test
stringComp.test
stringObj.test
subst.test
switch.test
tcltest.test
thread.test
timer.test


==== timer-1.1 Tcl_CreateTimerHandler procedure FAILED
==== Contents of test case:

    foreach i [after info] {
        after cancel $i
    }
    set x ""
    foreach i {100 200 1000 50 150} {
        after $i lappend x $i
    }
    after 200 set done 1
    vwait done
    set x

---- Result was:
50 150 200
---- Result should have been (exact matching):
50 100 150 200
==== timer-1.1 FAILED


==== timer-3.1 TimerHandlerEventProc procedure: event masks FAILED
==== Contents of test case:

    set x start
    after 100 { set x fired }
    update idletasks
    set result $x
    after 200
    update
    lappend result $x

---- Result was:
start {fired 1000}
---- Result should have been (exact matching):
start fired
==== timer-3.1 FAILED


==== timer-6.4 Tcl_AfterCmd procedure, ms argument FAILED
==== Contents of test case:

    set x before
    after 400 {set x after}
    after 200
    update
    set y $x
    after 400
    update
    list $y $x

---- Result was:
after after
---- Result should have been (exact matching):
before after
==== timer-6.4 FAILED

tm.test
trace.test
unixFCmd.test
unixFile.test
unixInit.test
unixNotfy.test
unknown.test
unload.test
uplevel.test
upvar.test
utf.test
util.test
var.test
while-old.test
while.test
winConsole.test
winDde.test
winFCmd.test
winFile.test
winNotify.test
winPipe.test
winTime.test

Tests ended at Mon Feb 04 18:30:01 ART 2008
all.tcl:        Total   24180   Passed  23073   Skipped 1099    Failed  8
Sourced 137 Test Files.
Files with failing tests: clock.test event.test socket.test timer.test
Number of tests skipped for each constraint:
        9       !ieeeFloatingPoint
        2       95or98
        3       asyncPipeChan
        76      bigEndian
        4       dontCopyLinks
        59      emptyTest
        2       hasIsoLocale
        29      knownBug
        2       knownBug !singleTestInterp
        2       largefileSupport
        100     localeRegexp
        12      longIs64bit
        14      macosxFileAttr
        15      memory
        2       minStack2400
        41      nonPortable
        5       notNetworkFilesystem
        8       nt
        1       testWinCPUID
        7       testaccessproc
        1       testexprparser && !ieeeFloatingPoint
        8       testopenfilechannelproc
        7       teststatproc
        122     testthread
        1       testwinclock
        21      testwordend
        3       threaded
        3       unknownFailure
        524     win
        5       xdev

Test files exiting with errors:  

  stack.test