third_party/JSON/JSON-2.59/t/e14_decode_prefix.t - Issue 183763019: Remove third_party/JSON

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/e14_decode_prefix.t

Issue 183763019: Remove third_party/JSON (Closed) Base URL: svn://svn.chromium.org/chrome/trunk/src

Patch Set: Created 6 years, 9 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

2 use strict;

3 use Test::More tests => 8;

4

5 BEGIN {

6 $ENV{ PERL_JSON_BACKEND } = "JSON::backportPP";

7 }

8

9 use JSON;

10

11 my $json = JSON->new;

12

13 my $complete_text = qq/{"foo":"bar"}/;

14 my $garbaged_text = qq/{"foo":"bar"}\n/;

15 my $garbaged_text2 = qq/{"foo":"bar"}\n\n/;

16 my $garbaged_text3 = qq/{"foo":"bar"}\n----/;

17

18 is( ( $json->decode_prefix( $complete_text ) ) [1], 13 );

19 is( ( $json->decode_prefix( $garbaged_text ) ) [1], 13 );

20 is( ( $json->decode_prefix( $garbaged_text2 ) ) [1], 13 );

21 is( ( $json->decode_prefix( $garbaged_text3 ) ) [1], 13 );

22

23 eval { $json->decode( "\n" ) }; ok( $@ =~ /malformed JSON/ );

24 eval { $json->decode('null') }; ok $@ =~ /allow_nonref/;

25

26 eval { $json->decode_prefix( "\n" ) }; ok( $@ =~ /malformed JSON/ );

27 eval { $json->decode_prefix('null') }; ok $@ =~ /allow_nonref/;

28

OLD	NEW