diff options
| author | Hyunjee Kim <hj0426.kim@samsung.com> | 2020-03-17 09:38:42 +0900 |
|---|---|---|
| committer | Hyunjee Kim <hj0426.kim@samsung.com> | 2020-03-17 10:32:30 +0900 |
| commit | 8d2a41273a56a33a291d292c1fbee03cce290694 (patch) | |
| tree | d2e93626e62e86e0be5696b4ce240d0af7376a6a /t/16_tied.t | |
| parent | c5bbcb68877d7b8bdb968a69aa62b3b90853cb3f (diff) | |
| download | perl-json-8d2a41273a56a33a291d292c1fbee03cce290694.tar.gz perl-json-8d2a41273a56a33a291d292c1fbee03cce290694.tar.bz2 perl-json-8d2a41273a56a33a291d292c1fbee03cce290694.zip | |
Imported Upstream version 4.02upstream/4.02
Change-Id: I549bbbd41e3db39e6fd6f2b1f2c4c94b94071018
Signed-off-by: Hyunjee Kim <hj0426.kim@samsung.com>
Diffstat (limited to 't/16_tied.t')
| -rw-r--r-- | t/16_tied.t | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/t/16_tied.t b/t/16_tied.t new file mode 100644 index 0000000..2298d7d --- /dev/null +++ b/t/16_tied.t @@ -0,0 +1,24 @@ +# copied over from JSON::XS and modified to use JSON + +use strict; +use Test::More; +BEGIN { plan tests => 2 }; + +BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } + +use JSON; +use Tie::Hash; +use Tie::Array; + + +my $js = JSON->new; + +tie my %h, 'Tie::StdHash'; +%h = (a => 1); + +ok ($js->encode (\%h) eq '{"a":1}'); + +tie my @a, 'Tie::StdArray'; +@a = (1, 2); + +ok ($js->encode (\@a) eq '[1,2]'); |