1 | BEGIN { $| = 1; print "1..140\n"; } | 1 | BEGIN { $| = 1; print "1..141\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 = 1; |
7 | 7 | ||
8 | sub tst($$) { | 8 | sub tst($$) { |
9 | my ($cbor, $correct) = @_; | 9 | my ($cbor, $correct) = @_; |
10 | 10 | ||
11 | # chop | 11 | # chop |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |