third_party/JSON/JSON-2.59/t/e04_sortby.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/e04_sortby.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 Test::More;

3 use strict;

4 BEGIN { plan tests => 3 };

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

6 use JSON;

7 #########################

8

9 my ($js,$obj);

10 my $pc = JSON->new;

11

12 $obj = {a=>1, b=>2, c=>3, d=>4, e=>5, f=>6, g=>7, h=>8, i=>9};

13

14 $js = $pc->sort_by(1)->encode($obj);

15 is($js, q\|{"a":1,"b":2,"c":3,"d":4,"e":5,"f":6,"g":7,"h":8,"i":9}\|);

16

17

18 $js = $pc->sort_by(sub { $JSON::PP::a cmp $JSON::PP::b })->encode($obj);

19 is($js, q\|{"a":1,"b":2,"c":3,"d":4,"e":5,"f":6,"g":7,"h":8,"i":9}\|);

20

21 $js = $pc->sort_by('hoge')->encode($obj);

22 is($js, q\|{"a":1,"b":2,"c":3,"d":4,"e":5,"f":6,"g":7,"h":8,"i":9}\|);

23

24 sub JSON::PP::hoge { $JSON::PP::a cmp $JSON::PP::b }

OLD	NEW