summaryrefslogtreecommitdiffstats
path: root/chromium/third_party/JSON/JSON-2.59/t/e15_tie_ixhash.t
diff options
context:
space:
mode:
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.t44
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
-
-}
-