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
|
=head1 PURPOSE
Run the test case from the SYNOPSIS of L<JSON::MultiValueOrdered>.
=head1 AUTHOR
Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
=head1 COPYRIGHT AND LICENCE
This software is copyright (c) 2012-2013 by Toby Inkster.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
use Test::More tests => 4;
use JSON::MultiValueOrdered;
my $j = JSON::MultiValueOrdered->new;
isa_ok $j, 'JSON::Tiny';
my $data = $j->decode(<<'JSON');
{
"a": 1,
"b": 2,
"a": 3,
"b": 4
}
JSON
# As you'd expect, for repeated values, the last value is used
is_deeply(
$data,
{ a => 3, b => 4 },
);
# But hashes within the structure are tied to Tie::Hash::MultiValueOrdered
is_deeply(
[ tied(%$data)->get('b') ],
[ 2, 4 ],
);
# And the extra information from the tied hash is used when re-encoding
is(
$j->encode($data),
q({"a":1,"b":2,"a":3,"b":4}),
);
done_testing;
|
