| 1 |
root |
1.3 |
BEGIN { $| = 1; print "1..16\n"; } |
| 2 |
root |
1.1 |
BEGIN { $^W = 0 } # hate |
| 3 |
|
|
|
| 4 |
|
|
use CBOR::XS; |
| 5 |
root |
1.3 |
use Scalar::Util (); |
| 6 |
root |
1.1 |
|
| 7 |
|
|
print "ok 1\n"; |
| 8 |
|
|
|
| 9 |
|
|
sub CBOR::XS::freeze::FREEZE { 77 } |
| 10 |
|
|
sub CBOR::XS::freeze::THAW { \my $dummy } |
| 11 |
|
|
|
| 12 |
|
|
$enc = CBOR::XS::encode_cbor_sharing [(bless [], CBOR::XS::freeze::) x 3]; |
| 13 |
|
|
print $enc eq (pack "H*", "83d81cd81a825043424f523a3a58533a3a667265657a65184dd81d00d81d00") ? "" : "not ", "ok 2 ", (unpack "H*", $enc), "\n"; |
| 14 |
|
|
|
| 15 |
|
|
$enc = CBOR::XS->new->allow_sharing->encode ([(bless [], CBOR::XS::freeze::) x 3]); |
| 16 |
|
|
print $enc eq (pack "H*", "83d81cd81a825043424f523a3a58533a3a667265657a65184dd81d00d81d00") ? "" : "not ", "ok 3 ", (unpack "H*", $enc), "\n"; |
| 17 |
|
|
|
| 18 |
|
|
$dec = decode_cbor $enc; |
| 19 |
|
|
print @$dec == 3 ? "" : "not ", "ok 4 # $dec\n"; |
| 20 |
|
|
print ref $dec->[0] ? "" : "not ", "ok 5 # $dec->[0]\n"; |
| 21 |
|
|
print $dec->[0] == $dec->[2] ? "" : "not ", "ok 6 # $dec->[0] == $dec->[2]\n"; |
| 22 |
|
|
|
| 23 |
|
|
$enc = eval { CBOR::XS::decode_cbor pack "H*", "d81c81d81d00" }; |
| 24 |
|
|
|
| 25 |
|
|
print defined $enc ? "not " : "", "ok 7\n"; |
| 26 |
|
|
print $@ =~ /^cyclic / ? "" : "not ", "ok 8\n"; |
| 27 |
|
|
|
| 28 |
|
|
$dec = CBOR::XS->new->allow_cycles->decode (pack "H*", "d81c81d81d00"); |
| 29 |
|
|
|
| 30 |
|
|
print ARRAY:: eq ref $dec ? "" : "not ", "ok 9\n"; |
| 31 |
|
|
print $dec == $dec->[0] ? "" : "not ", "ok 10\n"; |
| 32 |
|
|
|
| 33 |
root |
1.3 |
$dec = CBOR::XS->new->allow_weak_cycles->decode (pack "H*", "82d81c81d81d00d81d00"); |
| 34 |
|
|
|
| 35 |
|
|
print $dec->[0] == $dec->[1] ? "" : "not ", "ok 11\n"; |
| 36 |
|
|
print $dec->[0] == $dec->[0][0] ? "" : "not ", "ok 12\n"; |
| 37 |
|
|
|
| 38 |
|
|
print Scalar::Util::isweak $dec->[0] ? "not " : "", "ok 13\n"; |
| 39 |
|
|
print Scalar::Util::isweak $dec->[1] ? "not " : "", "ok 14\n"; |
| 40 |
|
|
print Scalar::Util::isweak $dec->[0][0] ? "" : "not ", "ok 15\n"; |
| 41 |
|
|
|
| 42 |
|
|
print "ok 16\n"; |
| 43 |
root |
1.1 |
|
