| … | … | ||
|---|---|---|---|
| 12 | 12 | ||
| 13 | $t = encode_cbor $t; | 13 | $t = encode_cbor $t; |
| 14 | 14 | ||
| 15 | print $t eq (pack "H*", "82c48221196ab3c482200f") ? "" : "not ", "ok 4 # ", (unpack "H*", $t), "\n"; | 15 | print $t eq (pack "H*", "82c48221196ab3c482200f") ? "" : "not ", "ok 4 # ", (unpack "H*", $t), "\n"; |
| 16 | 16 | ||
| 17 | # Math::BigFloat loaded by now... | 17 | # Math::BigFloat is loaded by now... |
| 18 | 18 | ||
| 19 | for (5..99) { | 19 | for (5..99) { |
| 20 | my $n = Math::BigFloat->new ((int rand 1e9) . "." . (int rand 1e9) . "e" . ((int rand 1e8) - 0.5e8)); | 20 | my $n = Math::BigFloat->new ((int rand 1e9) . "." . (int rand 1e9) . "e" . ((int rand 1e8) - 0.5e8)); |
| 21 | my $m = decode_cbor encode_cbor $n; | 21 | my $m = decode_cbor encode_cbor $n; |
| 22 | 22 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |