Deanna Phillips <[EMAIL PROTECTED]> writes:
> Expect only 2 regress failures in Tcl: fCmd.test and
> stack.test. the fCmd failure is an OpenBSD issue that will be
> fixed soon; the stack test failure is acceptable to the Tcl
> developers, see
So we have some unexpected failures on hppa and sparc.
Log excerpts below; anyone have a clue?
The tests were run by Josh Elsasser, thanks!
hppa:
expr.test
==== expr-29.1 smallest representible number FAILED
==== Contents of test case:
list [catch {convertToDouble 4.9406564584124654e-324} result] $result
[catch {convertToDouble 2.4703282292062327e-324} result] $result [catch
{convertToDouble 2.47032822920623e-324} result] $result
---- Result was:
0 0x0000000000000000 0 0x0000000000000000 0 0x0000000000000000
---- Result should have been (exact matching):
0 0x0000000000000001 0 0x0000000000000001 0 0x0000000000000000
==== expr-29.1 FAILED
==== expr-29.2 smallest representible number FAILED
==== Contents of test case:
list [catch {convertToDouble -4.9406564584124654e-324} result] $result
[catch {convertToDouble -2.4703282292062327e-324} result] $result [catch
{convertToDouble -2.47032822920623e-324} result] $result
---- Result was:
0 0x8000000000000000 0 0x8000000000000000 0 0x8000000000000000
---- Result should have been (exact matching):
0 0x8000000000000001 0 0x8000000000000001 0 0x8000000000000000
==== expr-29.2 FAILED
==== expr-42.1 denormals FAILED
==== Contents of test case:
expr 7e-324
---- Result was:
0.0
---- Result should have been (exact matching):
5e-324
==== expr-42.1 FAILED
sparc:
binary.test
==== binary-40.3 ScanNumber: NaN FAILED
==== Contents of test case:
catch {unset arg1}
list [binary scan \xff\xff\xff\xff f1 arg1] $arg1
---- Result was:
1 NaN
---- Result should have been (glob matching):
1 -NaN*
==== binary-40.3 FAILED
==== chan-io-6.56 Tcl_GetsObj: incomplete lines should disable file events
FAILED
==== Contents of test case:
update
set f [open "|[list [interpreter] $path(cat)]" w+]
chan configure $f -buffering none
chan puts -nonewline $f "foobar"
chan configure $f -blocking 0
variable x {}
after 500 [namespace code { lappend x timeout }]
chan event $f readable [namespace code { lappend x [chan gets $f] }]
vwait [namespace which -variable x]
vwait [namespace which -variable x]
chan configure $f -blocking 1
chan puts -nonewline $f "baz\n"
after 500 [namespace code { lappend x timeout }]
chan configure $f -blocking 0
vwait [namespace which -variable x]
vwait [namespace which -variable x]
chan close $f
set x
---- Result was:
timeout {} foobarbaz timeout
---- Result should have been (exact matching):
{} timeout foobarbaz timeout
==== chan-io-6.56 FAILED
==== chan-io-13.6 TranslateInputEOL: auto mode: saw cr in last segment FAILED
==== Contents of test case:
# (chanPtr->flags & INPUT_SAW_CR)
# This test may fail on slower machines.
set f [open "|[list [interpreter] $path(cat)]" w+]
chan configure $f -blocking 0 -buffering none -translation {auto lf}
chan event $f read [namespace code "ready $f"]
proc ready {f} {
variable x
lappend x [chan read $f] [testchannel queuedcr $f]
}
variable x {}
variable y {}
chan puts -nonewline $f "abcdefghj\r"
after 500 [namespace code {set y ok}]
vwait [namespace which -variable y]
chan puts -nonewline $f "\n01234"
after 500 [namespace code {set y ok}]
vwait [namespace which -variable y]
chan close $f
set x
---- Result was:
{abcdefghj
01234} 0
---- Result should have been (exact matching):
{abcdefghj
} 1 01234 0
==== chan-io-13.6 FAILED
==== expr-old-32.40 math functions in expressions FAILED
==== Contents of test case:
expr round(-1e60)
---- Result was:
999999999999999949387135297074018866963645011013410073083904
---- Result should have been (exact matching):
-999999999999999949387135297074018866963645011013410073083904
==== expr-old-32.40 FAILED
==== expr-old-34.16 errors in math functions FAILED
==== Contents of test case:
expr round(-1.0e30)
---- Result was:
1000000000000000019884624838656
---- Result should have been (exact matching):
-1000000000000000019884624838656
==== expr-old-34.16 FAILED
expr.test
==== expr-46.6 round() overflow FAILED
==== Contents of test case:
expr round(-9.2233720368547758e+018)
---- Result was:
9223372036854775808
---- Result should have been (exact matching):
-9223372036854775808
==== expr-46.6 FAILED
==== io-6.56 Tcl_GetsObj: incomplete lines should disable file events FAILED
==== Contents of test case:
update
set f [open "|[list [interpreter] $path(cat)]" w+]
fconfigure $f -buffering none
puts -nonewline $f "foobar"
fconfigure $f -blocking 0
variable x {}
after 500 [namespace code { lappend x timeout }]
fileevent $f readable [namespace code { lappend x [gets $f] }]
vwait [namespace which -variable x]
vwait [namespace which -variable x]
fconfigure $f -blocking 1
puts -nonewline $f "baz\n"
after 500 [namespace code { lappend x timeout }]
fconfigure $f -blocking 0
vwait [namespace which -variable x]
vwait [namespace which -variable x]
close $f
set x
---- Result was:
timeout {} foobarbaz timeout
---- Result should have been (exact matching):
{} timeout foobarbaz timeout
==== io-6.56 FAILED
==== io-13.6 TranslateInputEOL: auto mode: saw cr in last segment FAILED
==== Contents of test case:
# (chanPtr->flags & INPUT_SAW_CR)
# This test may fail on slower machines.
set f [open "|[list [interpreter] $path(cat)]" w+]
fconfigure $f -blocking 0 -buffering none -translation {auto lf}
fileevent $f read [namespace code "ready $f"]
proc ready {f} {
variable x
lappend x [read $f] [testchannel queuedcr $f]
}
variable x {}
variable y {}
puts -nonewline $f "abcdefghj\r"
after 500 [namespace code {set y ok}]
vwait [namespace which -variable y]
puts -nonewline $f "\n01234"
after 500 [namespace code {set y ok}]
vwait [namespace which -variable y]
close $f
set x
---- Result was:
{abcdefghj
01234} 0
---- Result should have been (exact matching):
{abcdefghj
} 1 01234 0
==== io-13.6 FAILED
