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
|
use Mojo::Base -strict;
use Test::More;
use Mojo::JSON qw(decode_json encode_json false from_json j to_json true);
BEGIN {
plan skip_all => 'Cpanel::JSON::XS 4.09+ required for this test!' unless Mojo::JSON->JSON_XS;
}
package JSONTest;
use Mojo::Base -base;
has 'something' => sub { {} };
sub TO_JSON { shift->something }
package main;
use Mojo::ByteStream;
use Mojo::Util qw(decode encode);
subtest 'Basics' => sub {
my $array = decode_json '[]';
is_deeply $array, [], 'decode_json';
my $bytes = encode_json [];
is $bytes, '[]', 'encode_json';
$array = from_json '[]';
is_deeply $array, [], 'from_json';
my $chars = to_json [];
is $chars, '[]', 'to_json';
$array = j('[]');
is_deeply $array, [], 'j() decode';
$bytes = j([]);
is $bytes, '[]', 'j() encode';
is encode_json([true]), '[true]', 'true';
is encode_json([false]), '[false]', 'false';
};
subtest '"utf8"' => sub {
is_deeply decode_json(encode('UTF-8', '["♥"]')), ['♥'], 'bytes decoded';
is encode_json(['♥']), encode('UTF-8', '["♥"]'), 'bytes encoded';
is_deeply from_json('["♥"]'), ['♥'], 'characters decoded';
is to_json(['♥']), '["♥"]', 'characters encoded';
};
subtest '"canonical"' => sub {
is_deeply encode_json({a => 1, b => 2, c => 3}), '{"a":1,"b":2,"c":3}', 'canonical object';
};
subtest '"allow_nonref"' => sub {
is_deeply encode_json(true), 'true', 'bare true';
};
subtest '"allow_unknown"' => sub {
is_deeply encode_json(sub { }), 'null', 'unknown reference';
};
subtest '"allow_blessed"' => sub {
is_deeply encode_json(Mojo::ByteStream->new('test')), '"test"', 'blessed reference';
};
subtest '"convert_blessed"' => sub {
my $bytes = encode_json(JSONTest->new);
is_deeply decode_json($bytes), {}, 'successful roundtrip';
$bytes = encode_json(JSONTest->new(something => {just => 'works'}, else => {not => 'working'}));
is_deeply decode_json($bytes), {just => 'works'}, 'successful roundtrip';
};
subtest '"stringify_infnan"' => sub {
like encode_json({test => 9**9**9}), qr/^{"test":".*"}$/, 'encode "inf" as string';
like encode_json({test => -sin(9**9**9)}), qr/^{"test":".*"}$/, 'encode "nan" as string';
};
subtest '"escape_slash"' => sub {
is_deeply encode_json('/test/123'), '"\/test\/123"', 'escaped slash';
};
subtest '"allow_dupkeys"' => sub {
is_deeply decode_json('{"test":1,"test":2}'), {test => 2}, 'no duplicate keys error';
};
done_testing();
|
