1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
use Test::More;
BEGIN {
eval "require Mojo::JSON;";
if ($@) {
plan skip_all => "Mojo::JSON required for testing interop";
exit 0;
}
if (!defined &Mojo::JSON::decode_json) {
plan skip_all => "Mojo::JSON::decode_json required for testing interop";
exit 0;
}
plan tests => 12;
}
use Mojo::JSON ();
use Cpanel::JSON::XS ();
my $booltrue = q({"is_true":true});
my $boolfalse = q({"is_false":false});
my $yesno = [ !1, !0 ];
my $js = Mojo::JSON::decode_json( $booltrue );
is( $js->{is_true}, 1, 'true == 1' );
ok( $js->{is_true}, 'ok true');
my $cjson = Cpanel::JSON::XS->new;
is($cjson->encode( $js ), $booltrue, 'can encode Mojo true')
or diag "\$Mojolicious::VERSION=$Mojolicious::VERSION,".
" \$Cpanel::JSON::XS::VERSION=$Cpanel::JSON::XS::VERSION";
$js = Mojo::JSON::decode_json( $boolfalse );
is( $cjson->encode( $js ), $boolfalse, 'can encode Mojo false' );
is( $js->{is_false}, 0 ,'false == 0');
ok( !$js->{is_false}, 'ok !false');
my $mj = Mojo::JSON::encode_json( $yesno );
$js = $cjson->decode( $mj );
ok( !$js->[0], 'decoded Mojo false is false' );
ok( $js->[0] == 0, 'decoded Mojo false is zero' );
ok( $js->[0] eq "", 'decoded Mojo false is empty string' );
ok( $js->[1], 'decoded Mojo true is true' );
ok( $js->[1] == 1, 'decoded Mojo true is one' );
ok( $js->[1] eq "1", 'decoded Mojo true is "1" string' );
|
