| Revision: | 1.1 |
| Committed: | Fri Oct 25 23:09:45 2013 UTC (12 years, 11 months ago) by root |
| Content type: | application/x-troff |
| Branch: | MAIN |
| CVS Tags: | rel-1_11, rel-1_12, rel-0_07, rel-1_71, rel-1_8, rel-0_04, rel-1_1, rel-1_0, rel-1_3, rel-1_5, rel-1_4, rel-1_7, rel-1_6, rel-0_09, rel-0_08, rel-0_05, rel-1_25, rel-1_26, rel-0_06, rel-0_03, rel-0_02, rel-1_41, rel-1_82, rel-1_83, rel-1_81, rel-1_86, rel-1_87, rel-1_84, rel-1_85, HEAD |
| Log Message: | *** empty log message *** |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | root | 1.1 | BEGIN { $| = 1; print "1..6144\n"; } |
| 2 | |||
| 3 | use CBOR::XS; | ||
| 4 | |||
| 5 | our $test; | ||
| 6 | sub ok($;$) { | ||
| 7 | print $_[0] ? "" : "not ", "ok ", ++$test, " - $_[1]\n"; | ||
| 8 | } | ||
| 9 | |||
| 10 | sub test($) { | ||
| 11 | my $js; | ||
| 12 | |||
| 13 | $js = CBOR::XS->new->shrink->encode ([$_[0]]); | ||
| 14 | ok ($_[0] eq ((decode_cbor $js)->[0]), 0); | ||
| 15 | $js = CBOR::XS->new->encode ([$_[0]]); | ||
| 16 | ok ($_[0] eq (CBOR::XS->new->shrink->decode($js))->[0], 1); | ||
| 17 | } | ||
| 18 | |||
| 19 | srand 0; # doesn't help too much, but its at least more deterministic | ||
| 20 | |||
| 21 | for (1..768) { | ||
| 22 | test join "", map chr ($_ & 255), 0..$_; | ||
| 23 | test join "", map chr rand 255, 0..$_; | ||
| 24 | test join "", map chr ($_ * 97 & ~0x4000), 0..$_; | ||
| 25 | test join "", map chr (rand (2**20) & ~0x800), 0..$_; | ||
| 26 | } | ||
| 27 |