third_party/JSON/JSON-2.59/t/xe19_xs_and_suportbypp.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/xe19_xs_and_suportbypp.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 # https://rt.cpan.org/Public/Bug/Display.html?id=52847

3

4 use strict;

5 use Test::More;

6

7 BEGIN { plan tests => 2 };

8 BEGIN { $ENV{PERL_JSON_BACKEND} = 1; }

9

10 use JSON -support_by_pp;

11

12 SKIP: {

13 skip "can't use JSON::XS.", 2, unless( JSON->backend->is_xs );

14

15 my $json = JSON->new->allow_barekey;

16

17 for (1..2) {

18 is_deeply( test($json, q!{foo:"foo"}! ), {foo=>'foo'} );

19 JSON->new->allow_singlequote(0);

20 }

21 }

22

23

24 sub test {

25 my ($coder, $str) = @_;

26 my $rv;

27 return $rv if eval { $rv = $coder->decode($str); 1 };

28 chomp( my $e = $@ );

29 return "died with \"$e\"";

30 };

31

32

33

OLD	NEW