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