diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2005-08-05 19:03:04 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2005-08-05 19:03:04 (GMT) |
| commit | d61e0cb11d0a44c4b2a98f3b2b9b0983dcbb1ed7 (patch) | |
| tree | 1a4159a78cb11ef061538aa300d8ba36c9978394 | |
| parent | 33f99a107c785f2a316908111b390ec9bed82a6a (diff) | |
| download | tcl-d61e0cb11d0a44c4b2a98f3b2b9b0983dcbb1ed7.zip tcl-d61e0cb11d0a44c4b2a98f3b2b9b0983dcbb1ed7.tar.gz tcl-d61e0cb11d0a44c4b2a98f3b2b9b0983dcbb1ed7.tar.bz2 | |
Further nonPortable [binary] test cleanup
| -rw-r--r-- | tests/binary.test | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/tests/binary.test b/tests/binary.test index d0491ff..a73108c 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.21 2005/08/05 18:25:00 kennykb Exp $ +# RCS: @(#) $Id: binary.test,v 1.22 2005/08/05 19:03:04 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -513,9 +513,6 @@ 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} {nonPortable bigEndian} { - binary format d NaN -} \x7f\xff\xff\xff\xff\xff\xff\xff test binary-14.14 {Tcl_BinaryObjCmd: format} { list [catch {binary format d2 {1.6}} msg] $msg } {1 {number of elements in list does not match count}} @@ -1681,12 +1678,6 @@ 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} {nonPortable bigEndian} { - binary format Q NaN -} \x7f\xff\xff\xff\xff\xff\xff\xff -test binary-51.13 {Tcl_BinaryObjCmd: float overflow} {nonPortable mac} { - 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 } {1 {number of elements in list does not match count}} |