|
Packit Service |
639957 |
|
|
Packit Service |
639957 |
use strict;
|
|
Packit Service |
639957 |
use Test::More;
|
|
Packit Service |
639957 |
BEGIN { plan tests => 2 };
|
|
Packit Service |
639957 |
|
|
Packit Service |
639957 |
BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
|
|
Packit Service |
639957 |
|
|
Packit Service |
639957 |
use JSON;
|
|
Packit Service |
639957 |
|
|
Packit Service |
639957 |
# from https://rt.cpan.org/Ticket/Display.html?id=25162
|
|
Packit Service |
639957 |
|
|
Packit Service |
639957 |
SKIP: {
|
|
Packit Service |
639957 |
eval {require Tie::IxHash};
|
|
Packit Service |
639957 |
skip "Can't load Tie::IxHash.", 2 if ($@);
|
|
Packit Service |
639957 |
|
|
Packit Service |
639957 |
my %columns;
|
|
Packit Service |
639957 |
tie %columns, 'Tie::IxHash';
|
|
Packit Service |
639957 |
|
|
Packit Service |
639957 |
%columns = (
|
|
Packit Service |
639957 |
id => 'int',
|
|
Packit Service |
639957 |
1 => 'a',
|
|
Packit Service |
639957 |
2 => 'b',
|
|
Packit Service |
639957 |
3 => 'c',
|
|
Packit Service |
639957 |
4 => 'd',
|
|
Packit Service |
639957 |
5 => 'e',
|
|
Packit Service |
639957 |
);
|
|
Packit Service |
639957 |
|
|
Packit Service |
639957 |
my $json = JSON->new;
|
|
Packit Service |
639957 |
|
|
Packit Service |
639957 |
my $js = $json->encode(\%columns);
|
|
Packit Service |
639957 |
is( $js, q/{"id":"int","1":"a","2":"b","3":"c","4":"d","5":"e"}/ );
|
|
Packit Service |
639957 |
|
|
Packit Service |
639957 |
$js = $json->pretty->encode(\%columns);
|
|
Packit Service |
639957 |
is( $js, <<'STR' );
|
|
Packit Service |
639957 |
{
|
|
Packit Service |
639957 |
"id" : "int",
|
|
Packit Service |
639957 |
"1" : "a",
|
|
Packit Service |
639957 |
"2" : "b",
|
|
Packit Service |
639957 |
"3" : "c",
|
|
Packit Service |
639957 |
"4" : "d",
|
|
Packit Service |
639957 |
"5" : "e"
|
|
Packit Service |
639957 |
}
|
|
Packit Service |
639957 |
STR
|
|
Packit Service |
639957 |
|
|
Packit Service |
639957 |
}
|
|
Packit Service |
639957 |
|