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
|
use Test::More;
use strict; use warnings FATAL => 'all';
use Lowu;
my $first = +{
map {; $_ => 1 } qw/ a b c d e /
};
my $second = hash(
map {; $_ => 1 } qw/ c d x y /
);
my $third = +{
map {; $_ => 1 } qw/ a b c d e f g /
};
my $intersects = $first->intersection($second, $third);
ok $intersects->count == 2, 'boxed intersection returned 2 keys'
or diag explain $intersects;
is_deeply
[ $intersects->sort->all ],
[ qw/ c d / ],
'boxed intersection intersection looks ok'
or diag explain $intersects;
done_testing;
|
