diff options
Diffstat (limited to 'tests/util.test')
| -rw-r--r-- | tests/util.test | 581 |
1 files changed, 559 insertions, 22 deletions
diff --git a/tests/util.test b/tests/util.test index e097efa..99419c5 100644 --- a/tests/util.test +++ b/tests/util.test @@ -7,13 +7,81 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: util.test,v 1.15 2005/04/29 20:49:45 dgp Exp $ +# RCS: @(#) $Id: util.test,v 1.16 2005/05/10 18:35:25 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest namespace import -force ::tcltest::* } +# Big test for correct ordering of data in [expr] + +proc testIEEE {} { + variable ieeeValues + binary scan [binary format dd -1.0 1.0] c* c + switch -exact -- $c { + {0 0 0 0 0 0 -16 -65 0 0 0 0 0 0 -16 63} { + # little endian + binary scan \x00\x00\x00\x00\x00\x00\xf0\xff d \ + ieeeValues(-Infinity) + binary scan \x00\x00\x00\x00\x00\x00\xf0\xbf d \ + ieeeValues(-Normal) + binary scan \x00\x00\x00\x00\x00\x00\x08\x80 d \ + ieeeValues(-Subnormal) + binary scan \x00\x00\x00\x00\x00\x00\x00\x80 d \ + ieeeValues(-0) + binary scan \x00\x00\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(+0) + binary scan \x00\x00\x00\x00\x00\x00\x08\x00 d \ + ieeeValues(+Subnormal) + binary scan \x00\x00\x00\x00\x00\x00\xf0\x3f d \ + ieeeValues(+Normal) + binary scan \x00\x00\x00\x00\x00\x00\xf0\x7f d \ + ieeeValues(+Infinity) + binary scan \x00\x00\x00\x00\x00\x00\xf8\x7f d \ + ieeeValues(NaN) + set ieeeValues(littleEndian) 1 + return 1 + } + {-65 -16 0 0 0 0 0 0 63 -16 0 0 0 0 0 0} { + binary scan \xff\xf0\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(-Infinity) + binary scan \xbf\xf0\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(-Normal) + binary scan \x80\x08\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(-Subnormal) + binary scan \x80\x00\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(-0) + binary scan \x00\x00\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(+0) + binary scan \x00\x08\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(+Subnormal) + binary scan \x3f\xf0\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(+Normal) + binary scan \x7f\xf0\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(+Infinity) + binary scan \x7f\xf8\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(NaN) + set ieeeValues(littleEndian) 0 + return 1 + } + default { + return 0 + } + } +} +::tcltest::testConstraint ieeeFloatingPoint [testIEEE] + +proc convertDouble { x } { + variable ieeeValues + if { $ieeeValues(littleEndian) } { + binary scan [binary format w $x] d result + } else { + binary scan [binary format W $x] d result + } + return $result +} + test util-1.1 {TclFindElement procedure - binary element in middle of list} { lindex {0 foo\x00help 1} 1 } "foo\x00help" @@ -273,42 +341,71 @@ test util-5.51 {Tcl_StringMatch} { Wrapper_Tcl_StringMatch "" "" } 1 -test util-6.1 {Tcl_PrintDouble - using tcl_precision} { +test util-6.1 {Tcl_PrintDouble - using tcl_precision} -setup { + set old_precision $::tcl_precision + set ::tcl_precision 12 +} -body { concat x[expr 1.4] -} {x1.4} -test util-6.2 {Tcl_PrintDouble - using tcl_precision} { +} -cleanup { + set ::tcl_precision $old_precision +} -result {x1.4} +test util-6.2 {Tcl_PrintDouble - using tcl_precision} -setup { + set old_precision $::tcl_precision + set ::tcl_precision 12 +} -body { concat x[expr 1.39999999999] -} {x1.39999999999} -test util-6.3 {Tcl_PrintDouble - using tcl_precision} { +} -cleanup { + set ::tcl_precision $old_precision +} -result {x1.39999999999} +test util-6.3 {Tcl_PrintDouble - using tcl_precision} -setup { + set old_precision $::tcl_precision + set ::tcl_precision 12 +} -body { concat x[expr 1.399999999999] -} {x1.4} -test util-6.4 {Tcl_PrintDouble - using tcl_precision} { - set tcl_precision 5 +} -cleanup { + set ::tcl_precision $old_precision +} -result {x1.4} +test util-6.4 {Tcl_PrintDouble - using tcl_precision} -setup { + set old_precision $::tcl_precision + set ::tcl_precision 5 +} -body { concat x[expr 1.123412341234] -} {x1.1234} -set tcl_precision 12 +} -cleanup { + set tcl_precision $old_precision +} -result {x1.1234} + test util-6.5 {Tcl_PrintDouble - make sure there's a decimal point} { concat x[expr 2.0] } {x2.0} -test util-6.6 {Tcl_PrintDouble - make sure there's a decimal point} {eformat} { +test util-6.6 {Tcl_PrintDouble - make sure there's a decimal point} { concat x[expr 3.0e98] } {x3e+98} -test util-7.1 {TclPrecTraceProc - unset callbacks} { +test util-7.1 {TclPrecTraceProc - unset callbacks} -setup { + set old_precision $::tcl_precision +} -body { set tcl_precision 7 set x $tcl_precision unset tcl_precision list $x $tcl_precision -} {7 7} -test util-7.2 {TclPrecTraceProc - read traces, sharing among interpreters} { +} -cleanup { + set ::tcl_precision $old_precision +} -result {7 7} +test util-7.2 {TclPrecTraceProc - read traces, sharing among interpreters} -setup { + set old_precision $::tcl_precision +} -body { set tcl_precision 12 interp create child set x [child eval set tcl_precision] child eval {set tcl_precision 6} interp delete child list $x $tcl_precision -} {12 6} -test util-7.3 {TclPrecTraceProc - write traces, safe interpreters} { +} -cleanup { + set ::tcl_precision $old_precision +} -result {12 6} +test util-7.3 {TclPrecTraceProc - write traces, safe interpreters} -setup { + set old_precision $::tcl_precision +} -body { set tcl_precision 12 interp create -safe child set x [child eval { @@ -316,13 +413,17 @@ test util-7.3 {TclPrecTraceProc - write traces, safe interpreters} { }] interp delete child list $x $tcl_precision -} {{1 {can't set "tcl_precision": can't modify precision from a safe interpreter}} 12} -test util-7.4 {TclPrecTraceProc - write traces, bogus values} { +} -cleanup { + set ::tcl_precision $old_precision +} -result {{1 {can't set "tcl_precision": can't modify precision from a safe interpreter}} 12} +test util-7.4 {TclPrecTraceProc - write traces, bogus values} -setup { + set old_precision $::tcl_precision +} -body { set tcl_precision 12 list [catch {set tcl_precision abc} msg] $msg $tcl_precision -} {1 {can't set "tcl_precision": improper value for precision} 12} - -set tcl_precision 12 +} -cleanup { + set ::tcl_precision $old_precision +} -result {1 {can't set "tcl_precision": improper value for precision} 12} # This test always succeeded in the C locale anyway... test util-8.1 {TclNeedSpace - correct UTF8 handling} { @@ -571,6 +672,442 @@ test util-9.44 {TclGetIntForIndex} -body { string index a 0+1000000000000 } -returnCodes error -match glob -result * +test util-10.1 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x0000000000000000 +} {0.0} +test util-10.2 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x8000000000000000 +} {-0.0} +test util-10.3 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x7ef754e31cd072da +} {4e+303} +test util-10.4 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xd08afcef51f0fb5f +} {-1e+80} +test util-10.5 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x7ed754e31cd072da +} {1e+303} +test util-10.6 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xfee754e31cd072da +} {-2e+303} +test util-10.7 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x0afe07b27dd78b14 +} {1e-255} +test util-10.8 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x93ae29e9c56687fe +} {-7e-214} +test util-10.9 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x376be03d0bf225c7 +} {1e-41} +test util-10.10 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xa0ca2fe76a3f9475 +} {-1e-150} +test util-10.11 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x7fa9a2028368022e +} {9e+306} +test util-10.12 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xdfc317e5ef3ab327 +} {-2e+153} +test util-10.13 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x5fd317e5ef3ab327 +} {4e+153} +test util-10.14 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xdfe317e5ef3ab327 +} {-8e+153} +test util-10.15 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x00feb8e84fa0b278 +} {7e-304} +test util-10.16 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x8133339131c46f8b +} {-7e-303} +test util-10.17 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x35dc0f92a6276c9d +} {3e-49} +test util-10.18 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xa445ce1f143d7ad2 +} {-6e-134} +test util-10.19 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x2d2c0794d9d40e96 +} {4.3e-91} +test util-10.20 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xad3c0794d9d40e96 +} {-8.6e-91} +test util-10.21 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x30ecd5bee57763e6 +} {5.1e-73} +test util-10.22 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x68ad1c26db7d0dae +} {1.7e+196} +test util-10.23 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xbfa3f7ced916872b +} {-0.039} +test util-10.24 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x64b7d93193f78fc6 +} {1.51e+177} +test util-10.25 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x98ea82a1631eeb30 +} {-1.19e-188} +test util-10.26 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xd216c309024bab4b +} {-2.83e+87} +test util-10.27 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x0dfdbbac6f83a821 +} {2.7869147e-241} +test util-10.28 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xdadc569e968e0944 +} {-4.91080654e+129} +test util-10.29 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x5acc569e968e0944 +} {2.45540327e+129} +test util-10.30 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xab5fc575867314ee +} {-9.078555839e-100} +test util-10.31 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xdabc569e968e0944 +} {-1.227701635e+129} +test util-10.32 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x2b6fc575867314ee +} {1.8157111678e-99} +test util-10.33 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xb3b8bf7e7fa6f02a +} {-1.5400733123779e-59} +test util-10.34 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xcd83de005bd620df +} {-2.6153245263757307e+65} +test util-10.35 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x6cdf92bacb3cb40c +} {2.7210404151224248e+216} +test util-10.36 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xecef92bacb3cb40c +} {-5.4420808302448496e+216} +test util-10.37 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x49342dbf25096cf5 +} {4.5e+44} +test util-10.38 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xd06afcef51f0fb5f +} {-2.5e+79} +test util-10.39 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x49002498ea6df0c4 +} {4.5e+43} +test util-10.40 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xfeb754e31cd072da +} {-2.5e+302} +test util-10.41 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x1d22deac01e2b4f7 +} {2.5e-168} +test util-10.42 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xaccb1df536c13eee +} {-6.5e-93} +test util-10.43 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x3650711fed5b19a4 +} {4.5e-47} +test util-10.44 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xb6848d67e8b1e00d +} {-4.5e-46} +test util-10.45 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x4bac8c574c0c6be7 +} {3.5e+56} +test util-10.46 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xccd756183c147514 +} {-1.5e+62} +test util-10.47 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x4ca2ab469676c410 +} {1.5e+61} +test util-10.48 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xcf5539684e774b48 +} {-1.5e+74} +test util-10.49 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x2e12e5f5dfa4fe9d +} {9.5e-87} +test util-10.50 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x8b9bdc2417bf7787 +} {-9.5e-253} +test util-10.51 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x00eeb8e84fa0b278 +} {3.5e-304} +test util-10.52 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xadde3cbc9907fdc8 +} {-9.5e-88} +test util-10.53 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x2bb0ad836f269a17 +} {3.05e-98} +test util-10.54 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x950b39ae1909c31b +} {-2.65e-207} +test util-10.55 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x1bfb2ab18615fcc6 +} {6.865e-174} +test util-10.56 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x98f3e1f90a573064 +} {-1.785e-188} +test util-10.57 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x5206c309024bab4b +} {1.415e+87} +test util-10.58 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xcc059bd3ad46e346 +} {-1.6955e+58} +test util-10.59 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x47bdf4170f0fdecc +} {3.9815e+37} +test util-10.60 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x59e7e1e0f1c7a4ac +} {1.263005e+125} +test util-10.61 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xda1dda592e398dd7 +} {-1.263005e+126} +test util-10.62 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xdc4e597c0b94b7ae +} {-4.4118455e+136} +test util-10.63 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x5aac569e968e0944 +} {6.138508175e+128} +test util-10.64 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xdabc569e968e0944 +} {-1.227701635e+129} +test util-10.65 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x6ce7ae0c186d8709 +} {4.081560622683637e+216} +test util-10.66 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x44b52d02c7e14af7 +} {1.0000000000000001e+23} +test util-10.67 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xc589d971e4fe8402 +} {-1e+27} +test util-10.68 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x4599d971e4fe8402 +} {2e+27} +test util-10.69 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xc5a9d971e4fe8402 +} {-4e+27} +test util-10.70 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x3e45798ee2308c3a +} {1e-8} +test util-10.71 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xbe55798ee2308c3a +} {-2e-8} +test util-10.72 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x3e65798ee2308c3a +} {4e-8} +test util-10.73 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xbabef2d0f5da7dd9 +} {-1e-25} +test util-10.74 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x44da784379d99db4 +} {5e+23} +test util-10.75 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xc4fa784379d99db4 +} {-2e+24} +test util-10.76 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x4503da329b633647 +} {3e+24} +test util-10.77 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xc54cf389cd46047d +} {-7e+25} +test util-10.78 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x3fc999999999999a +} {0.2} +test util-10.79 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xbfd3333333333333 +} {-0.3} +test util-10.80 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x3cf6849b86a12b9b +} {5e-15} +test util-10.81 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xbd16849b86a12b9b +} {-2e-14} +test util-10.82 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x3b87ccfc73126788 +} {6.3e-22} +test util-10.83 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xbbbdc03b8fd7016a +} {-6.3e-21} +test util-10.84 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x3fa3f7ced916872b +} {0.039} +test util-10.85 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x460b297cad9f70b6 +} {2.69e+29} +test util-10.86 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xc61b297cad9f70b6 +} {-5.38e+29} +test util-10.87 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x3adcdc06b20ef183 +} {3.73e-25} +test util-10.88 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x45fb297cad9f70b6 +} {1.345e+29} +test util-10.89 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xc60b297cad9f70b6 +} {-2.69e+29} +test util-10.90 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xbc050a246ecd44f3 +} {-1.4257e-19} +test util-10.91 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xbec19b96f36ec68b +} {-2.09901e-6} +test util-10.92 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x3dcc06d366394441 +} {5.0980203373e-11} +test util-10.93 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xc79f58ac4db68c90 +} {-1.04166211811e+37} +test util-10.94 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x4569d971e4fe8402 +} {2.5e+26} +test util-10.95 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xc50dc74be914d16b +} {-4.5e+24} +test util-10.96 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x4534adf4b7320335 +} {2.5e+25} +test util-10.97 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xc54ae22487c1042b +} {-6.5e+25} +test util-10.98 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x3c987fe49aab41e0 +} {8.5e-17} +test util-10.99 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xbc2f5c05e4b23fd7 +} {-8.5e-19} +test util-10.100 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x3d5faa7ab552a552 +} {4.5e-13} +test util-10.101 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xbdbb7cdfd9d7bdbb +} {-2.5e-11} +test util-10.102 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x44f3da329b633647 +} {1.5e+24} +test util-10.103 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xc53cf389cd46047d +} {-3.5e+25} +test util-10.104 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x454f04ef12cb04cf +} {7.5e+25} +test util-10.105 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xc55f04ef12cb04cf +} {-1.5e+26} +test util-10.106 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x3fc3333333333333 +} {0.15} +test util-10.107 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xbdb07e1fe91b0b70 +} {-1.5e-11} +test util-10.108 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x3de49da7e361ce4c +} {1.5e-10} +test util-10.109 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xbe19c511dc3a41df +} {-1.5e-9} +test util-10.110 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xc5caa83d74267822 +} {-1.65e+28} +test util-10.111 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x4588f1d5969453de +} {9.65e+26} +test util-10.112 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x3b91d9bd564dcda6 +} {9.45e-22} +test util-10.113 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xbcfa58973ecbede6 +} {-5.85e-15} +test util-10.114 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x45eb297cad9f70b6 +} {6.725e+28} +test util-10.115 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xc5fb297cad9f70b6 +} {-1.345e+29} +test util-10.116 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x3accdc06b20ef183 +} {1.865e-25} +test util-10.117 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xbd036071dcae4565 +} {-8.605e-15} +test util-10.118 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x462cb968d297dde8 +} {1.137885e+30} +test util-10.119 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0xc661f3e1839eeab1 +} {-1.137885e+31} +test util-10.120 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x474e9cec176c96f8 +} {3.179033335e+35} +test util-10.121 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x3dbc06d366394441 +} {2.54901016865e-11} +test util-10.122 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { + convertDouble 0x478f58ac4db68c90 +} {5.20831059055e+36} + +test util-11.1 {Tcl_PrintDouble - scaling} { + expr 1.1e-5 +} {1.1e-5} +test util-11.2 {Tcl_PrintDouble - scaling} { + expr 1.1e-4 +} {0.00011} +test util-11.3 {Tcl_PrintDouble - scaling} { + expr 1.1e-3 +} {0.0011} +test util-11.4 {Tcl_PrintDouble - scaling} { + expr 1.1e-2 +} {0.011} +test util-11.5 {Tcl_PrintDouble - scaling} { + expr 1.1e-1 +} {0.11} +test util-11.6 {Tcl_PrintDouble - scaling} { + expr 1.1e0 +} {1.1} +test util-11.7 {Tcl_PrintDouble - scaling} { + expr 1.1e1 +} {11.0} +test util-11.8 {Tcl_PrintDouble - scaling} { + expr 1.1e2 +} {110.0} +test util-11.9 {Tcl_PrintDouble - scaling} { + expr 1.1e3 +} {1100.0} +test util-11.10 {Tcl_PrintDouble - scaling} { + expr 1.1e4 +} {11000.0} +test util-11.11 {Tcl_PrintDouble - scaling} { + expr 1.1e5 +} {110000.0} +test util-11.12 {Tcl_PrintDouble - scaling} { + expr 1.1e6 +} {1100000.0} +test util-11.13 {Tcl_PrintDouble - scaling} { + expr 1.1e7 +} {11000000.0} +test util-11.14 {Tcl_PrintDouble - scaling} { + expr 1.1e8 +} {110000000.0} +test util-11.15 {Tcl_PrintDouble - scaling} { + expr 1.1e9 +} {1100000000.0} +test util-11.16 {Tcl_PrintDouble - scaling} { + expr 1.1e10 +} {11000000000.0} +test util-11.17 {Tcl_PrintDouble - scaling} { + expr 1.1e11 +} {110000000000.0} +test util-11.18 {Tcl_PrintDouble - scaling} { + expr 1.1e12 +} {1100000000000.0} +test util-11.19 {Tcl_PrintDouble - scaling} { + expr 1.1e13 +} {11000000000000.0} +test util-11.20 {Tcl_PrintDouble - scaling} { + expr 1.1e14 +} {110000000000000.0} +test util-11.21 {Tcl_PrintDouble - scaling} { + expr 1.1e15 +} {1100000000000000.0} +test util-11.22 {Tcl_PrintDouble - scaling} { + expr 1.1e16 +} {11000000000000000.0} +test util-11.21 {Tcl_PrintDouble - scaling} { + expr 1.1e17 +} {1.1e+17} # cleanup ::tcltest::cleanupTests |