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