summaryrefslogtreecommitdiffstats
path: root/tests/binary.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/binary.test')
-rw-r--r--tests/binary.test11
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}}