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