| 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
 | 
| -
 | 
| -}
 | 
| -
 | 
| 
 |