1# copied over from JSON::PC and modified to use JSON::PP
2# copied over from JSON::XS and modified to use JSON::PP
3
4use Test::More;
5use strict;
6BEGIN { plan tests => 6 };
7BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
8
9use JSON::PP;
10use utf8;
11
12#########################
13my ($js,$obj);
14my $pc = new JSON::PP;
15
16$js  = '{"foo":0}';
17$obj = $pc->decode($js);
18is($obj->{foo}, 0, "normal 0");
19
20$js  = '{"foo":0.1}';
21$obj = $pc->decode($js);
22is($obj->{foo}, 0.1, "normal 0.1");
23
24
25$js  = '{"foo":10}';
26$obj = $pc->decode($js);
27is($obj->{foo}, 10, "normal 10");
28
29$js  = '{"foo":-10}';
30$obj = $pc->decode($js);
31is($obj->{foo}, -10, "normal -10");
32
33
34$js  = '{"foo":0, "bar":0.1}';
35$obj = $pc->decode($js);
36is($obj->{foo},0,  "normal 0");
37is($obj->{bar},0.1,"normal 0.1");
38
39