[perl5.git] / cpan / JSON-PP / t / 104_sortby.t


use Test::More;
use strict;
BEGIN { plan tests => 3 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
use JSON::PP;
#########################

my ($js,$obj);
my $pc = JSON::PP->new;

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

$js = $pc->sort_by(1)->encode($obj);
is($js, q|{"a":1,"b":2,"c":3,"d":4,"e":5,"f":6,"g":7,"h":8,"i":9}|);


$js = $pc->sort_by(sub { $JSON::PP::a cmp $JSON::PP::b })->encode($obj);
is($js, q|{"a":1,"b":2,"c":3,"d":4,"e":5,"f":6,"g":7,"h":8,"i":9}|);

$js = $pc->sort_by('hoge')->encode($obj);
is($js, q|{"a":1,"b":2,"c":3,"d":4,"e":5,"f":6,"g":7,"h":8,"i":9}|);

sub JSON::PP::hoge { $JSON::PP::a cmp $JSON::PP::b }
Commit	Line	Data
d5424315 DG	1
	2	use Test::More;
	3	use strict;
	4	BEGIN { plan tests => 3 };
	5	BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
	6	use JSON::PP;
	7	#########################
	8
	9	my ($js,$obj);
	10	my $pc = JSON::PP->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 }