ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/CBOR-XS/t/52_object.t
(Generate patch)

Comparing CBOR-XS/t/52_object.t (file contents):
Revision 1.7 by root, Sat Nov 30 17:19:34 2013 UTC vs.
Revision 1.8 by root, Sat Nov 30 17:37:45 2013 UTC

1BEGIN { $| = 1; print "1..21\n"; } 1BEGIN { $| = 1; print "1..22\n"; }
2BEGIN { $^W = 0 } # hate 2BEGIN { $^W = 0 } # hate
3 3
4use CBOR::XS; 4use CBOR::XS;
5 5
6print "ok 1\n"; 6print "ok 1\n";
… …
48 48
49sub CBOR::XS::freeze2::FREEZE { 49sub CBOR::XS::freeze2::FREEZE {
50 77 50 77
51} 51}
52 52
53my $enc = CBOR::XS->new->allow_sharing->encode ([(bless [], CBOR::XS::freeze2::) x 3]); 53$enc = CBOR::XS::encode_cbor_sharing [(bless [], CBOR::XS::freeze2::) x 3];
54print $enc eq (pack "H*", "83d81cd81a825143424f523a3a58533a3a667265657a6532184dd81d00d81d00") ? "" : "not ", "ok 20 ", (unpack "H*", $enc), "\n"; 54print $enc eq (pack "H*", "83d81cd81a825143424f523a3a58533a3a667265657a6532184dd81d00d81d00") ? "" : "not ", "ok 20 ", (unpack "H*", $enc), "\n";
55 55
56print "ok 21\n"; 56$enc = CBOR::XS->new->allow_sharing->encode ([(bless [], CBOR::XS::freeze2::) x 3]);
57print $enc eq (pack "H*", "83d81cd81a825143424f523a3a58533a3a667265657a6532184dd81d00d81d00") ? "" : "not ", "ok 21 ", (unpack "H*", $enc), "\n";
57 58
59print "ok 22\n";
60

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines