third_party/JSON/JSON-2.59/t/xe11_conv_blessed_univ.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/xe11_conv_blessed_univ.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;

4 BEGIN { plan tests => 3 };

5

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

7

8 use JSON -convert_blessed_universally;

9

10 SKIP: {

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

12

13 my $obj = Test->new( [ 1, 2, {foo => 'bar'} ] );

14

15 $obj->[3] = Test2->new( { a => 'b' } );

16

17 my $json = JSON->new->allow_blessed->convert_blessed;

18

19 is( $json->encode( $obj ), '[1,2,{"foo":"bar"},"hoge"]' );

20

21 $json->convert_blessed(0);

22

23 is( $json->encode( $obj ), 'null' );

24

25 $json->allow_blessed(0)->convert_blessed(1);

26

27 is( $json->encode( $obj ), '[1,2,{"foo":"bar"},"hoge"]' );

28

29 }

30

31 package Test;

32

33 sub new {

34 bless $_[1], $_[0];

35 }

36

37

38

39 package Test2;

40

41 sub new {

42 bless $_[1], $_[0];

43 }

44

45 sub TO_JSON {

46 "hoge";

47 }

48

OLD	NEW