| Index: trunk/src/third_party/JSON/JSON-2.59/t/e15_tie_ixhash.t
|
| ===================================================================
|
| --- trunk/src/third_party/JSON/JSON-2.59/t/e15_tie_ixhash.t (revision 205060)
|
| +++ trunk/src/third_party/JSON/JSON-2.59/t/e15_tie_ixhash.t (working copy)
|
| @@ -1,44 +0,0 @@
|
| -
|
| -use strict;
|
| -use Test::More;
|
| -BEGIN { plan tests => 2 };
|
| -
|
| -BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
|
| -
|
| -use JSON;
|
| -
|
| -# from https://rt.cpan.org/Ticket/Display.html?id=25162
|
| -
|
| -SKIP: {
|
| - eval {require Tie::IxHash};
|
| - skip "Can't load Tie::IxHash.", 2 if ($@);
|
| -
|
| - my %columns;
|
| - tie %columns, 'Tie::IxHash';
|
| -
|
| - %columns = (
|
| - id => 'int',
|
| - 1 => 'a',
|
| - 2 => 'b',
|
| - 3 => 'c',
|
| - 4 => 'd',
|
| - 5 => 'e',
|
| - );
|
| -
|
| - my $js = to_json(\%columns);
|
| - is( $js, q/{"id":"int","1":"a","2":"b","3":"c","4":"d","5":"e"}/ );
|
| -
|
| - $js = to_json(\%columns, {pretty => 1});
|
| - is( $js, <<'STR' );
|
| -{
|
| - "id" : "int",
|
| - "1" : "a",
|
| - "2" : "b",
|
| - "3" : "c",
|
| - "4" : "d",
|
| - "5" : "e"
|
| -}
|
| -STR
|
| -
|
| -}
|
| -
|
|
|