use
Test::More;
my
$arr
= array( 1 .. 4 );
my
$deleted
=
$arr
->
delete
(2);
cmp_ok
$deleted
,
'=='
, 3,
'delete returned correct value'
;
is_deeply [
$arr
->all ], [ 1, 2, 4 ],
'value was deleted'
;
eval
{; array->
delete
(1) };
ok $@,
'trying to delete nonexistant dies'
;
done_testing;