1use Test::More;
2use strict; use warnings FATAL => 'all';
3
4use List::Objects::WithUtils 'array';
5
6my ($evens, $odds) = array( 1 .. 6 )->part(sub { $_ & 1 })->all;
7
8is_deeply
9  [ $evens->all ],
10  [ 2,4,6 ],
11  'part() with args picked evens ok';
12
13is_deeply
14  [ $odds->all ],
15  [ 1,3,5 ],
16  'part() with args picked odds ok';
17
18my $parts_n = do {
19  my $i = 0;
20  array(1 .. 12)->part(sub { $i++ % 3 });
21};
22
23ok( $parts_n->count == 3, 'part() created 3 arrays' );
24
25is_deeply
26  [ $parts_n->get(0)->all ],
27  [ 1, 4, 7, 10 ],
28  'part() first array ok';
29
30is_deeply
31  [ $parts_n->get(1)->all ],
32  [ 2, 5, 8, 11 ],
33  'part() second array ok';
34
35is_deeply
36  [ $parts_n->get(2)->all ],
37  [ 3, 6, 9, 12 ],
38  'part() third array ok';
39
40my $parts_single = array(1 .. 12)->part(sub { 3 });
41
42ok( $parts_single->get(0)->count == 0, 'part() 0 empty ok' );
43ok( $parts_single->get(1)->count == 0, 'part() 1 empty ok' );
44ok( $parts_single->get(2)->count == 0, 'part() 2 empty ok' );
45
46is_deeply
47  [ $parts_single->get(3)->all ],
48  [ 1 .. 12 ],
49  'part() 3 filled ok';
50
51
52
53done_testing;
54