Return to precision.phpt CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / ext / standard / tests / serialize

Annotation of embedaddon/php/ext/standard/tests/serialize/precision.phpt, revision 1.1.1.1

1.1       misho       1: --TEST--
                      2: Default precision is sufficient to serialize all the information in floats
                      3: --SKIPIF--
                      4: <?php
                      5: if (pack('s', 1) != "\x01\x00")
                      6:        die("skip test for little-endian architectures");
                      7: --FILE--
                      8: <?php
                      9: 
                     10: $numbers = array(
                     11:        "0000000000000000", //0
                     12:        "2d431cebe2362a3f", //.0002
                     13:        "2e431cebe2362a3f", //.0002 + 10^-Accuracy[.0002]*1.01
                     14:        "0000000000001000", //2^-1022. (minimum normal double)
                     15:        "0100000000001000", //2^-1022. + 10^-Accuracy[2^-1022.]*1.01
                     16:        "ffffffffffffef7f", //2^1024. (maximum normal double)
                     17:        "feffffffffffef7f", //2^1024. - 10^-Accuracy[2^1024.]
                     18:        "0100000000000000", //minumum subnormal double
                     19:        "0200000000000000", //2nd minumum subnormal double
                     20:        "fffffffffffff000", //maximum subnormal double
                     21:        "fefffffffffff000", //2nd maximum subnormal double
                     22:        "0000000000000f7f", //+inf
                     23:        "0000000000000fff", //-inf
                     24: );
                     25: 
                     26: foreach ($numbers as $ns) {
                     27:        $num = unpack("d", pack("H*", $ns)); $num = reset($num);
                     28:        echo "number: ", sprintf("%.17e", $num), "... ";
                     29:        $num2 = unserialize(serialize($num));
                     30:        $repr = unpack("H*", pack("d", $num2)); $repr = reset($repr);
                     31:        if ($repr == $ns)
                     32:                echo "OK\n";
                     33:        else
                     34:                echo "mismatch\n\twas:    $ns\n\tbecame: $repr\n";
                     35: }
                     36: --EXPECT--
                     37: number: 0.00000000000000000e+0... OK
                     38: number: 2.00000000000000010e-4... OK
                     39: number: 2.00000000000000037e-4... OK
                     40: number: 2.22507385850720138e-308... OK
                     41: number: 2.22507385850720188e-308... OK
                     42: number: 1.79769313486231571e+308... OK
                     43: number: 1.79769313486231551e+308... OK
                     44: number: 4.94065645841246544e-324... OK
                     45: number: 9.88131291682493088e-324... OK
                     46: number: 3.87340857288933536e-304... OK
                     47: number: 3.87340857288933455e-304... OK
                     48: number: 1.06293653832877718e+304... OK
                     49: number: -1.06293653832877718e+304... OK