| 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 { |
| … | |
… | |
| 39 | 777 |
39 | 777 |
| 40 | } |
40 | } |
| 41 | |
41 | |
| 42 | $obj = bless { k => 1 }, CBOR::XS::freeze::; |
42 | $obj = bless { k => 1 }, CBOR::XS::freeze::; |
| 43 | $enc = encode_cbor $obj; |
43 | $enc = encode_cbor $obj; |
| 44 | print $enc eq (pack "H*", "d90100845043424f523a3a58533a3a667265657a65030102") ? "" : "not ", "ok 12\n"; |
44 | print $enc eq (pack "H*", "d81a845043424f523a3a58533a3a667265657a65030102") ? "" : "not ", "ok 12 ", (unpack "H*", $enc), "\n"; |
| 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 | |
