1use Test::More;
2use strict; use warnings FATAL => 'all';
3
4{ package My::List;
5  use strict; use warnings FATAL => 'all';
6  require List::Objects::WithUtils::Array;
7  use parent 'List::Objects::WithUtils::Array';
8}
9
10my $foo = My::List->new;
11isa_ok $foo->map(sub { $_ }), 'My::List', 'subclassed obj map ok';
12
13done_testing;
14