… | |
… | |
9 | |
9 | |
10 | sub test($) { |
10 | sub test($) { |
11 | my $js; |
11 | my $js; |
12 | |
12 | |
13 | $js = JSON::XS->new->allow_nonref(0)->utf8->ascii->shrink->encode ([$_[0]]); |
13 | $js = JSON::XS->new->allow_nonref(0)->utf8->ascii->shrink->encode ([$_[0]]); |
14 | ok ($_[0] eq ((from_json $js)->[0]), 0); |
14 | ok ($_[0] eq ((decode_json $js)->[0]), 0); |
15 | $js = JSON::XS->new->allow_nonref(0)->utf8->ascii->encode ([$_[0]]); |
15 | $js = JSON::XS->new->allow_nonref(0)->utf8->ascii->encode ([$_[0]]); |
16 | ok ($_[0] eq (JSON::XS->new->utf8->shrink->decode($js))->[0], 1); |
16 | ok ($_[0] eq (JSON::XS->new->utf8->shrink->decode($js))->[0], 1); |
17 | |
17 | |
18 | $js = JSON::XS->new->allow_nonref(0)->utf8->shrink->encode ([$_[0]]); |
18 | $js = JSON::XS->new->allow_nonref(0)->utf8->shrink->encode ([$_[0]]); |
19 | ok ($_[0] eq ((from_json $js)->[0]), 2); |
19 | ok ($_[0] eq ((decode_json $js)->[0]), 2); |
20 | $js = JSON::XS->new->allow_nonref(1)->utf8->encode ([$_[0]]); |
20 | $js = JSON::XS->new->allow_nonref(1)->utf8->encode ([$_[0]]); |
21 | ok ($_[0] eq (JSON::XS->new->utf8->shrink->decode($js))->[0], 3); |
21 | ok ($_[0] eq (JSON::XS->new->utf8->shrink->decode($js))->[0], 3); |
22 | |
22 | |
23 | $js = JSON::XS->new->allow_nonref(1)->ascii->encode ([$_[0]]); |
23 | $js = JSON::XS->new->allow_nonref(1)->ascii->encode ([$_[0]]); |
24 | ok ($_[0] eq JSON::XS->new->decode ($js)->[0], 4); |
24 | ok ($_[0] eq JSON::XS->new->decode ($js)->[0], 4); |