1use Test::More;
2use strict; use warnings FATAL => 'all';
3
4use List::Objects::WithUtils 'array';
5
6my $arr = array(1,2,3);
7my $res = [];
8array->visit(sub { push @$res, $_ });
9is_deeply $res, [], 'empty array visit ok';
10
11my $ret = $arr->visit(sub { push @$res, $_ });
12ok $ret == $arr, 'visit returned invocant';
13is_deeply $res, [ 1, 2, 3 ], 'visit ok'
14  or diag explain $res;
15
16done_testing
17