| 1 | BEGIN { $| = 1; print "1..21\n"; } |
1 | BEGIN { $| = 1; print "1..140\n"; } |
| 2 | |
2 | |
| 3 | use CBOR::XS; |
3 | use CBOR::XS; |
| 4 | |
4 | |
| 5 | print "ok 1\n"; |
5 | print "ok 1\n"; |
| 6 | my $tst = 0; |
6 | my $tst = 0; |
| 7 | |
7 | |
| 8 | sub tst($$) { |
8 | sub tst($$) { |
| 9 | my ($cbor, $correct) = @_; |
9 | my ($cbor, $correct) = @_; |
| 10 | |
10 | |
|
|
11 | # chop |
| 11 | for my $step (1 .. length $cbor) { |
12 | for my $step (1 .. length $cbor) { |
| 12 | my $dec = CBOR::XS->new; |
13 | my $dec = CBOR::XS->new; |
| 13 | my $buf = ""; |
14 | my $buf = ""; |
| 14 | my @cbor; |
15 | my @cbor; |
| 15 | |
16 | |
| 16 | for (unpack "(a$step)*", $cbor) { |
17 | for (unpack "(a$step)*", $cbor) { |
| 17 | $buf .= $_; |
18 | $buf .= $_; |
| 18 | push @cbor, $dec->incr_parse ($buf, 1); |
19 | push @cbor, $dec->incr_parse ($buf); |
| 19 | } |
20 | } |
| 20 | |
21 | |
| 21 | print length $buf ? "not " : "", "ok ", ++$tst, "\n"; |
22 | print length $buf ? "not " : "", "ok ", ++$tst, "\n"; |
| 22 | |
23 | |
| 23 | my $enc = join " ", map +(unpack "H*", encode_cbor $_), @cbor; |
24 | my $enc = join " ", map +(unpack "H*", encode_cbor $_), @cbor; |
