diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-20 21:04:04 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-20 21:04:04 (GMT) |
| commit | 9478d8fca0ecff55cdeb771cea0d765ead777c5d (patch) | |
| tree | e46b03c5910e715dd1a4e5434a5b53358c809967 | |
| parent | dd73a7d278b7721922e373f9310c04f301fdbcac (diff) | |
| download | tcl-9478d8fca0ecff55cdeb771cea0d765ead777c5d.zip tcl-9478d8fca0ecff55cdeb771cea0d765ead777c5d.tar.gz tcl-9478d8fca0ecff55cdeb771cea0d765ead777c5d.tar.bz2 | |
It seems all NaN handling is non-portable except where the platform is
incredibly constrained.
| -rw-r--r-- | tests/binary.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/binary.test b/tests/binary.test index 2df6244..433219d 100644 --- a/tests/binary.test +++ b/tests/binary.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: binary.test,v 1.16 2004/05/19 20:03:46 dgp Exp $ +# RCS: @(#) $Id: binary.test,v 1.17 2004/05/20 21:04:04 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -513,7 +513,7 @@ test binary-14.10 {Tcl_BinaryObjCmd: format} bigEndian { test binary-14.11 {Tcl_BinaryObjCmd: format} littleEndian { binary format d2 {1.6 3.4 5.6} } \x9a\x99\x99\x99\x99\x99\xf9\x3f\x33\x33\x33\x33\x33\x33\x0b\x40 -test binary-14.12 {Tcl_BinaryObjCmd: float overflow} bigEndian { +test binary-14.12 {Tcl_BinaryObjCmd: float overflow} {nonPortable bigEndian} { binary format d NaN } \x7f\xff\xff\xff\xff\xff\xff\xff test binary-14.14 {Tcl_BinaryObjCmd: format} { @@ -1692,11 +1692,11 @@ test binary-51.10 {Tcl_BinaryObjCmd: format} {} { test binary-51.11 {Tcl_BinaryObjCmd: format} {} { binary format q2 {1.6 3.4 5.6} } \x9a\x99\x99\x99\x99\x99\xf9\x3f\x33\x33\x33\x33\x33\x33\x0b\x40 -test binary-51.12 {Tcl_BinaryObjCmd: float overflow} bigEndian { - binary format d NaN +test binary-51.12 {Tcl_BinaryObjCmd: float overflow} {nonPortable bigEndian} { + binary format Q NaN } \x7f\xff\xff\xff\xff\xff\xff\xff test binary-51.13 {Tcl_BinaryObjCmd: float overflow} {nonPortable macOnly} { - binary format d NaN + binary format Q NaN } \x7f\xf8\x02\xa0\x00\x00\x00\x00 test binary-51.14 {Tcl_BinaryObjCmd: format} { list [catch {binary format q2 {1.6}} msg] $msg |