1use Test::More;
2use strict; use warnings FATAL => 'all';
3
4use List::Objects::WithUtils 'array';
5
6my $arr = array;
7$arr->set( 1 => 'bar' );
8is_deeply
9  [ $arr->all ],
10  [ undef, 'bar' ],
11  'set on empty list ok';
12
13
14$arr = array(1, 2, 3);
15my $set = $arr->set( 1 => 'foo' );
16ok $arr == $set, 'set returned self';
17is_deeply
18  [ $arr->all ],
19  [ 1, 'foo', 3 ],
20  'set ok';
21
22done_testing;
23