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     ! 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