third_party/JSON/JSON-2.59/t/x16_tied.t - Issue 15736030: Add JSON.pm to third_party

Side by Side Diff

Use n/p to move between diff chunks; N/P to move between comments.

Keyboard Shortcuts

	File
u :	up to issue
j / k :	jump to file after / before current file
J / K :	jump to next file with a comment after / before current file
	Side-by-side diff
i :	toggle intra-line diffs
e :	expand all comments
c :	collapse all comments
s :	toggle showing all comments
n / p :	next / previous diff chunk or comment
N / P :	next / previous comment
<Up> / <Down> :	next / previous line

	Issue
u :	up to list of issues
j / k :	jump to patch after / before current patch
o / <Enter> :	open current patch in side-by-side view
i :	open current patch in unified diff view

	Issue List
j / k :	jump to issue after / before current issue
o / <Enter> :	open current issue

Side by Side Diff: third_party/JSON/JSON-2.59/t/x16_tied.t

Issue 15736030: Add JSON.pm to third_party (Closed) Base URL: svn://svn.chromium.org/chrome/trunk/src

Patch Set: Fix permissions and shebangs Created 7 years, 6 months ago

Use n/p to move between diff chunks; N/P to move between comments.

Jump to:

View unified diff | | Annotate | Revision Log

OLD	NEW
(Empty)
	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 }

OLD	NEW