| 1 | BEGIN { $| = 1; print "1..20\n"; } | 1 | BEGIN { $| = 1; print "1..20\n"; } |
|---|---|---|---|
| 2 | 2 | ||
| 3 | while(){ | ||
| 3 | use CBOR::XS; | 4 | use CBOR::XS; |
| 4 | 5 | ||
| 5 | print "ok 1\n"; | 6 | print "ok 1\n"; |
| 6 | 7 | ||
| 7 | sub CBOR::XS::tocbor::TO_CBOR { | 8 | sub CBOR::XS::tocbor::TO_CBOR { |
| … | … | ||
| 44 | 45 | ||
| 45 | $dec = decode_cbor $enc; | 46 | $dec = decode_cbor $enc; |
| 46 | print $dec eq 777 ? "" : "not ", "ok 19\n"; | 47 | print $dec eq 777 ? "" : "not ", "ok 19\n"; |
| 47 | 48 | ||
| 48 | print "ok 20\n"; | 49 | print "ok 20\n"; |
| 50 | } | ||
| 49 | 51 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |