1 | BEGIN { $| = 1; print "1..77\n"; } |
1 | BEGIN { $| = 1; print "1..75\n"; } |
2 | |
2 | |
3 | # examples from rfc7049 |
3 | # examples from rfc7049 |
4 | |
4 | |
5 | use Data::Dumper; |
5 | use Data::Dumper; |
6 | use CBOR::XS; |
6 | use CBOR::XS; |
… | |
… | |
69 | + 24 0x1818 |
69 | + 24 0x1818 |
70 | + 25 0x1819 |
70 | + 25 0x1819 |
71 | + 100 0x1864 |
71 | + 100 0x1864 |
72 | + 1000 0x1903e8 |
72 | + 1000 0x1903e8 |
73 | + 1000000 0x1a000f4240 |
73 | + 1000000 0x1a000f4240 |
74 | + 1000000000000 0x1b000000e8d4a51000 |
74 | 1000000000000 0x1b000000e8d4a51000 |
75 | 18446744073709551615 0x1bffffffffffffffff |
75 | 18446744073709551615 0x1bffffffffffffffff |
76 | 18446744073709551616 0xc249010000000000000000 |
76 | 18446744073709551616 0xc249010000000000000000 |
77 | -18446744073709551616 0x3bffffffffffffffff |
77 | -18446744073709551616 0x3bffffffffffffffff |
78 | -18446744073709551617 0xc349010000000000000000 |
78 | -18446744073709551617 0xc349010000000000000000 |
79 | + -1 0x20 |
79 | + -1 0x20 |