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; |
7 | |
7 | |
8 | binmode DATA; |
8 | binmode DATA; |
9 | binmode STDOUT, ":utf8"; |
9 | binmode STDOUT, ":utf8"; |
|
|
10 | |
|
|
11 | my $test; |
10 | |
12 | |
11 | sub ok($;$) { |
13 | sub ok($;$) { |
12 | print $_[0] ? "" : "not ", "ok ", ++$test, " - $_[1]\n"; |
14 | print $_[0] ? "" : "not ", "ok ", ++$test, " - $_[1]\n"; |
13 | } |
15 | } |
14 | |
16 | |
… | |
… | |
67 | + 24 0x1818 |
69 | + 24 0x1818 |
68 | + 25 0x1819 |
70 | + 25 0x1819 |
69 | + 100 0x1864 |
71 | + 100 0x1864 |
70 | + 1000 0x1903e8 |
72 | + 1000 0x1903e8 |
71 | + 1000000 0x1a000f4240 |
73 | + 1000000 0x1a000f4240 |
72 | + 1000000000000 0x1b000000e8d4a51000 |
74 | 1000000000000 0x1b000000e8d4a51000 |
73 | 18446744073709551615 0x1bffffffffffffffff |
75 | 18446744073709551615 0x1bffffffffffffffff |
74 | 18446744073709551616 0xc249010000000000000000 |
76 | 18446744073709551616 0xc249010000000000000000 |
75 | -18446744073709551616 0x3bffffffffffffffff |
77 | -18446744073709551616 0x3bffffffffffffffff |
76 | -18446744073709551617 0xc349010000000000000000 |
78 | -18446744073709551617 0xc349010000000000000000 |
77 | + -1 0x20 |
79 | + -1 0x20 |