1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
# (also see utilsby_no_xs.t)
use Test::More;
use strict; use warnings FATAL => 'all';
use List::Objects::WithUtils 'array';
if ($List::Objects::WithUtils::Role::Array::UsingUtilsByXS) {
diag "\nUsing List::UtilsBy::XS\n"
} else {
diag "\nUsing List::UtilsBy (XS not found)\n"
}
my $arr = array(
+{ id => 'c' },
+{ id => 'a' },
+{ id => 'b' },
);
my $sorted = $arr->sort_by(sub { $_->{id} });
is_deeply
[ $sorted->all ],
[ +{ id => 'a' }, +{ id => 'b' }, +{ id => 'c' } ],
'sort_by ok';
ok array->sort_by(sub { $_->foo })->is_empty,
'empty array sort_by ok';
done_testing;
|
