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