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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
#!perl
use strict;
use warnings;
use Test::More;
BEGIN {
eval 'use Time::Piece; 1'
or plan skip_all => "Time::Piece required";
# allow_unknown method added to JSON in 2.09
eval 'use JSON 2.09 (); 1'
or plan skip_all => 'JSON 2.09 required for cross testing';
$ENV{PERL_JSON_BACKEND} = 'JSON::PP';
}
plan $] < 5.008 ? (skip_all => "5.6 no AMG yet") : (tests => 19);
use Cpanel::JSON::XS;
my $time = localtime;
my $json = Cpanel::JSON::XS->new->convert_blessed;
if ($Cpanel::JSON::XS::VERSION lt '3.0202') {
diag 'simulate convert_blessed via TO_JSON';
eval 'sub Foo::TO_JSON { "Foo <". shift->[0] . ">" }';
eval 'sub main::TO_JSON { "main=REF(". $$_[0] . ")" }';
eval 'sub Time::Piece::TO_JSON { "$time" }';
}
package Foo;
use overload '""' => sub { "Foo <". shift->[0] . ">"};
package main;
my $object = bless ["foo"], 'Foo';
my $enc = $json->encode( { obj => $object } );
is( $enc, '{"obj":"Foo <foo>"}', "mg object stringified" )
or diag($enc);
$object = bless ["\x{1f603}"], 'Foo';
$enc = $json->encode( { obj => $object } );
is( $enc, "{\"obj\":\"Foo <\x{1f603}>\"}", "mg object stringified Unicode" )
or diag($enc);
$enc = $json->encode( { time => $time } );
isa_ok($time, "Time::Piece");
# my $dec = $json->decode($enc);
is( $enc, qq({"time":"$time"}), 'mg Time::Piece object was stringified' );
$object = bless [], 'main';
$json->allow_stringify;
$enc = $json->encode( \$object );
# fails in 5.6
like( $enc, qr/main=ARRAY\(0x[A-Fa-f0-9]+\)/, "nomg blessed array stringified" )
or diag($enc);
$enc = $json->encode( \\$object );
like( $enc, qr/REF\(0x[A-Fa-f0-9]+\)/, "nomg ref stringified" )
or diag($enc);
# 46, 49
my $pp = JSON->new->allow_unknown->allow_blessed;
$json = Cpanel::JSON::XS->new->allow_stringify;
is( $pp->encode ( {false => \"some"} ), '{"false":null}', 'pp \"some"');
is( $json->encode( {false => \"some"} ), '{"false":"some"}','js \"some"');
is( $pp->encode ( {false => \""} ), '{"false":null}', 'pp \""');
is( $json->encode( {false => \""} ), '{"false":null}', 'js \""');
is( $pp->encode ( {false => \!!""} ), '{"false":null}', 'pp \!!""');
is( $json->encode( {false => \!!""} ), '{"false":null}', 'js \!!""');
$json->allow_unknown->allow_stringify;
$pp->allow_unknown->allow_blessed->convert_blessed;
my $e = $pp->encode( {false => \"some"} ); # pp is a bit inconsistent
ok( ($e eq '{"false":null}') || ($e eq '{"false":some}'), 'pp \"some"' );
is( $pp->encode ( {false => \""} ), '{"false":null}', 'pp \""' );
is( $pp->encode ( {false => \!!""} ), '{"false":null}', 'pp \!!""' );
is( $json->encode( {false => \"some"} ), '{"false":"some"}', 'js \"some"');
is( $json->encode( {false => \""} ), '{"false":null}', 'js \""' );
is( $json->encode( {false => \!!""} ), '{"false":null}', 'js \!!""' );
# GH #124 missing refcnt on stringify result
package BoolTestOk;
use overload '""' => sub {"1"};
package main;
my $data = {nick => bless({}, 'BoolTestOk')};
is( $json->convert_blessed->allow_blessed->encode($data), '{"nick":"1"}', 'GH #124' );
|
