… | |
… | |
6 | our $test; |
6 | our $test; |
7 | sub ok($) { |
7 | sub ok($) { |
8 | print $_[0] ? "" : "not ", "ok ", ++$test, "\n"; |
8 | print $_[0] ? "" : "not ", "ok ", ++$test, "\n"; |
9 | } |
9 | } |
10 | |
10 | |
11 | use PApp::Util; |
|
|
12 | ok (!defined JSON::XS->new->allow_nonref (1)->decode ('null')); |
11 | ok (!defined JSON::XS->new->allow_nonref (1)->decode ('null')); |
13 | ok (JSON::XS->new->allow_nonref (1)->decode ('true') == 1); |
12 | ok (JSON::XS->new->allow_nonref (1)->decode ('true') == 1); |
14 | ok (JSON::XS->new->allow_nonref (1)->decode ('false') == 0); |
13 | ok (JSON::XS->new->allow_nonref (1)->decode ('false') == 0); |
15 | |
14 | |
16 | ok (JSON::XS->new->allow_nonref (1)->decode ('5') == 5); |
15 | ok (JSON::XS->new->allow_nonref (1)->decode ('5') == 5); |