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

	2 use strict;

	3

	4 use Test::More;

	5 use strict;

	6

	7 BEGIN { plan tests => 11 };

	8

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

	10

	11 use JSON;

	12

	13 my $json = new JSON;

	14

	15

	16 is($json->encode([!1]), '[""]');

	17 is($json->encode([!!2]), '["1"]');

	18

	19 is($json->encode([ 'a' eq 'b' ]), '[""]');

	20 is($json->encode([ 'a' eq 'a' ]), '["1"]');

	21

	22 is($json->encode([ ('a' eq 'b') + 1 ]), '[1]');

	23 is($json->encode([ ('a' eq 'a') + 1 ]), '[2]');

	24

	25 ok(JSON::true eq 'true');

	26 ok(JSON::true eq '1');

	27 ok(JSON::true == 1);

	28 isa_ok(JSON::true, JSON->backend . '::Boolean');

	29 isa_ok(JSON::true, 'JSON::Boolean');

	30

	31

	32

OLD	NEW