src/third_party/JSON/JSON-2.59/t/x16_tied.t

   1 use strict;
   2 use Test::More;
   3 BEGIN { plan tests => 2 };
   4
   5 BEGIN { $ENV{PERL_JSON_BACKEND} = 1; }
   6
   7 use JSON;
   8 use Tie::Hash;
   9 use Tie::Array;
  10
  11 SKIP: {
  12     skip "can't use JSON::XS.", 2, unless( JSON->backend->is_xs );
  13
  14 my $js = JSON->new;
  15
  16 tie my %h, 'Tie::StdHash';
  17 %h = (a => 1);
  18
  19 ok ($js->encode (\%h) eq '{"a":1}');
  20
  21 tie my @a, 'Tie::StdArray';
  22 @a = (1, 2);
  23
  24 ok ($js->encode (\@a) eq '[1,2]');
  25
  26 }