diff options
Diffstat (limited to 'chromium/third_party/JSON/JSON-2.59/t/e15_tie_ixhash.t')
-rw-r--r-- | chromium/third_party/JSON/JSON-2.59/t/e15_tie_ixhash.t | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/chromium/third_party/JSON/JSON-2.59/t/e15_tie_ixhash.t b/chromium/third_party/JSON/JSON-2.59/t/e15_tie_ixhash.t deleted file mode 100644 index 9e8991d2f36..00000000000 --- a/chromium/third_party/JSON/JSON-2.59/t/e15_tie_ixhash.t +++ /dev/null @@ -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 - -} - |