Home
last modified time | relevance | path

Searched refs:encode_json (Results 1 – 6 of 6) sorted by relevance

/openbsd-src/gnu/usr.bin/perl/cpan/JSON-PP/t/
H A D003_types.t36 ok ('[1,2,3,4]' eq encode_json decode_json ('[1,2, 3,4]'));
37 ok ('[{},[],[],{}]' eq encode_json decode_json ('[{},[], [ ] ,{ }]'));
38 ok ('[{"1":[5]}]' eq encode_json [{1 => [5]}]);
42 ok ('[true]' eq encode_json [JSON::PP::true]);
43 ok ('[false]' eq encode_json [JSON::PP::false]);
44 ok ('[true]' eq encode_json [\1]);
45 ok ('[false]' eq encode_json [\0]);
46 ok ('[null]' eq encode_json [undef]);
47 ok ('[true]' eq encode_json [JSON::PP::true]);
48 ok ('[false]' eq encode_json [JSON::PP::false]);
[all …]
H A D117_numbers.t14 # is encode_json([9**9**9]), '["inf"]';
15 # is encode_json([-sin(9**9**9)]), '["nan"]';
19 is encode_json({test => [$num, $str]}), '{"test":[3,"3"]}';
22 is encode_json({test => [$num, $str]}), '{"test":[3.21,"3.21"]}';
25 is encode_json({test => [$num, $str]}), '{"test":[1,"0 but true"]}';
H A D017_relaxed.t16 ok ('[1,2,3]' eq encode_json $json->decode (' [1,2, 3]'));
17 ok ('[1,2,4]' eq encode_json $json->decode ('[1,2, 4 , ]'));
21 ok ('{"1":2}' eq encode_json $json->decode (' {"1":2}'));
22 ok ('{"1":2}' eq encode_json $json->decode ('{"1":2,}'));
25 ok ('[1,2]' eq encode_json $json->decode ("[1#,2\n ,2,# ] \n\t]"));
H A D019_incr.t62 ok ('[5]' eq encode_json $j1, "cjson1");
63 ok ('{"":1}' eq encode_json $j2, "cjson2");
64 ok ('[1,2,3]' eq encode_json $j3, "cjson3");
65 ok ('{"3":null}' eq encode_json $j4, "cjson4");
/openbsd-src/gnu/usr.bin/perl/Porting/
H A Dbench.pl1105 my $json = JSON::PP::encode_json({
/openbsd-src/gnu/usr.bin/perl/cpan/JSON-PP/lib/JSON/
H A DPP.pm110 sub encode_json ($) { # encode subroutine