diff options
Diffstat (limited to 'tests/binary.test')
-rw-r--r-- | tests/binary.test | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/tests/binary.test b/tests/binary.test index 5c35287..7d39291 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.18.2.7 2005/08/23 18:28:51 kennykb Exp $ +# RCS: @(#) $Id: binary.test,v 1.18.2.8 2005/08/24 18:56:32 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -2139,7 +2139,7 @@ testConstraint ieeeFloatingPoint [testIEEE] # scan/format infinities -test binary-62,1 {infinity} ieeeFloatingPoint { +test binary-62.1 {infinity} ieeeFloatingPoint { binary scan [binary format q Infinity] w w format 0x%016lx $w } 0x7ff0000000000000 @@ -2197,39 +2197,39 @@ test binary-64.2 {NaN} \ } \ -match glob -result NaN(*123456789abc) -test binary-65.1 {largest significand} { +test binary-65.1 {largest significand} ieeeFloatingPoint { binary scan [binary format w 0x3fcfffffffffffff] q d set d } 0.24999999999999997 -test binary-65.2 {smallest significand} { +test binary-65.2 {smallest significand} ieeeFloatingPoint { binary scan [binary format w 0x3fd0000000000000] q d set d } 0.25 -test binary-65.3 {largest significand} { +test binary-65.3 {largest significand} ieeeFloatingPoint { binary scan [binary format w 0x3fdfffffffffffff] q d set d } 0.49999999999999994 -test binary-65.4 {smallest significand} { +test binary-65.4 {smallest significand} ieeeFloatingPoint { binary scan [binary format w 0x3fe0000000000000] q d set d } 0.5 -test binary-65.5 {largest significand} { +test binary-65.5 {largest significand} ieeeFloatingPoint { binary scan [binary format w 0x3fffffffffffffff] q d set d } 1.9999999999999998 -test binary-65.6 {smallest significand} { +test binary-65.6 {smallest significand} ieeeFloatingPoint { binary scan [binary format w 0x4000000000000000] q d set d } 2.0 -test binary-65.7 {smallest significand} { +test binary-65.7 {smallest significand} ieeeFloatingPoint { binary scan [binary format w 0x434fffffffffffff] q d set d } 18014398509481982.0 -test binary-65.8 {largest significand} { +test binary-65.8 {largest significand} ieeeFloatingPoint { binary scan [binary format w 0x4350000000000000] q d set d } 18014398509481984.0 -test binary-65.8 {largest significand} { +test binary-65.8 {largest significand} ieeeFloatingPoint { binary scan [binary format w 0x4350000000000001] q d set d } 18014398509481988.0 |