1# (also see utilsby_no_xs.t) 2use Test::More; 3use strict; use warnings FATAL => 'all'; 4 5use List::Objects::WithUtils 'array'; 6 7my $arr = array( 8 +{ id => 2 }, 9 +{ id => 1 }, 10 +{ id => 3 }, 11); 12 13my $sorted = $arr->nsort_by(sub { $_->{id} }); 14 15is_deeply 16 [ $sorted->all ], 17 [ +{ id => 1 }, +{ id => 2 }, +{ id => 3 } ], 18 'nsort_by ok'; 19 20ok array->nsort_by(sub { $_->foo })->is_empty, 'empty array nsort_by ok'; 21 22done_testing; 23