third_party/JSON/JSON-2.59/t/15_prefix.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. Draft comments are only viewable by you.

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/15_prefix.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. Draft comments are only viewable by you.

Jump to:

OLD	NEW
(Empty)
	1 # copied over from JSON::XS and modified to use JSON

	2

	3 BEGIN { $\| = 1; print "1..4\n"; }

	4 BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }

	5

	6 use JSON;

	7

	8 my $xs = JSON->new->allow_nonref;

	9

	10 eval { $xs->decode ("[] ") };

	11 print $@ ? "not " : "", "ok 1\n";

	12 eval { $xs->decode ("[] x") };

	13 print $@ ? "" : "not ", "ok 2\n";

	14 print 2 == ($xs->decode_prefix ("[][]"))[1] ? "" : "not ", "ok 3\n";

	15 print 3 == ($xs->decode_prefix ("[1] t"))[1] ? "" : "not ", "ok 4\n";

	16

OLD	NEW

« no previous file with comments | « third_party/JSON/JSON-2.59/t/14_latin1.t ('k') | third_party/JSON/JSON-2.59/t/16_tied.t » ('j') | no next file with comments »