1use Test::More;
2use strict; use warnings FATAL => 'all';
3
4use List::Objects::WithUtils 'array';
5
6my $hs =
7  array(qw/ann andy bob fred frankie/)
8    ->part_to_hash(sub { ucfirst substr $_, 0, 1 });
9
10isa_ok $hs, 'List::Objects::WithUtils::Hash';
11
12ok $hs->keys->count == 3, 'part_to_hash created 3 keys';
13
14for (qw/A B F/) {
15  isa_ok $hs->get($_), 'List::Objects::WithUtils::Array', "part '$_'";
16}
17
18is_deeply +{ $hs->export },
19  +{ A => [qw/ann andy/], B => ['bob'], F => [qw/fred frankie/] },
20  'parts look ok';
21
22done_testing;
23