[ViewVC] Diff of: cvs/CBOR-XS/t/53

Comparing CBOR-XS/t/53_bignum.t (file contents):
Revision 1.4 by root, Mon Apr 25 21:30:23 2016 UTC vs.
Revision 1.6 by root, Tue Apr 26 16:07:04 2016 UTC

-BEGIN { $| = 1; print "1..102\n"; }
+BEGIN { $| = 1; print "1..105\n"; }
 BEGIN { $^W = 0 } # hate
 use CBOR::XS;
-use Math::BigInt only => "Calc"; # needed for representation stability
+use Math::BigInt only => "FastCalc"; # needed for representation stability
 print "ok 1\n";
 my $t = decode_cbor pack "H*", "82c48221196ab3c5822003";
 print "799999999999999999998e+99999999999999999998" eq $t->bsstr ? "" : "not ", "ok 100\n";
 $t = encode_cbor $t;
 print "d9010882c249056bc75e2d63100000c2492b5e3af16b187ffffe" eq (unpack "H*", $t) ? "" : "not ", "ok 101\n";
-print "ok 102\n";
+$t = encode_cbor CBOR::XS::tag 30, [4, 2];
+$t = decode_cbor $t;
+print $t eq 2 ? "" : "not ", "ok 102 # $t\n";
+$t = encode_cbor $t;
+print "02" eq (unpack "H*", $t) ? "" : "not ", "ok 103\n";
+$t = encode_cbor decode_cbor encode_cbor CBOR::XS::tag 30, [Math::BigInt->new (5), 2];
+print "d81e820502" eq (unpack "H*", $t) ? "" : "not ", "ok 104\n";
+print "ok 105\n";

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