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 => 1 },
9  { id => 2 },
10  { id => 1 },
11  { id => 3 },
12  { id => 3 },
13);
14my $uniq = $arr->uniq_by(sub { $_->{id} });
15is_deeply
16  [ $uniq->all ],
17  [
18    { id => 1 },
19    { id => 2 },
20    { id => 3 },
21  ],
22  'uniq_by ok';
23
24ok array->uniq_by(sub { $_->foo })->is_empty, 'empty array uniq_by ok';
25
26done_testing;
27