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