use Test::More;
use strict; use warnings FATAL => 'all';

use List::Objects::WithUtils 'array';

my $arr = array;
$arr->set( 1 => 'bar' );
is_deeply
  [ $arr->all ],
  [ undef, 'bar' ],
  'set on empty list ok';


$arr = array(1, 2, 3);
my $set = $arr->set( 1 => 'foo' );
ok $arr == $set, 'set returned self';
is_deeply
  [ $arr->all ],
  [ 1, 'foo', 3 ],
  'set ok';

done_testing;