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
|
# copied over from JSON::XS and modified to use JSON
package JSON::freeze;
1;
package JSON::tojson;
1;
package main;
use strict;
use warnings;
use Test::More;
BEGIN { $^W = 0 } # hate
BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
use JSON;
my $backend_version = JSON->backend->VERSION; $backend_version =~ s/_//;
plan skip_all => "allow_tags is not supported" if $backend_version < 3;
plan tests => 20;
my $json = JSON->new->convert_blessed->allow_tags->allow_nonref;
ok (1);
sub JSON::tojson::TO_JSON {
ok (@_ == 1);
ok (JSON::tojson:: eq ref $_[0]);
ok ($_[0]{k} == 1);
7
}
my $obj = bless { k => 1 }, JSON::tojson::;
ok (1);
my $enc = $json->encode ($obj);
ok ($enc eq 7);
ok (1);
sub JSON::freeze::FREEZE {
ok (@_ == 2);
ok ($_[1] eq "JSON");
ok (JSON::freeze:: eq ref $_[0]);
ok ($_[0]{k} == 1);
(3, 1, 2)
}
sub JSON::freeze::THAW {
ok (@_ == 5);
ok (JSON::freeze:: eq $_[0]);
ok ($_[1] eq "JSON");
ok ($_[2] == 3);
ok ($_[3] == 1);
ok ($_[4] == 2);
777
}
$obj = bless { k => 1 }, JSON::freeze::;
$enc = $json->encode ($obj);
ok ($enc eq '("JSON::freeze")[3,1,2]');
my $dec = $json->decode ($enc);
ok ($dec eq 777);
ok (1);
|
