use strict;
use Test::More tests => 4;
BEGIN { use_ok('List::Vectorize') }
my $x = [1..10];
del_array_item($x, 2);
is_deeply($x, [1, 2, 4, 5, 6, 7, 8, 9, 10]);
del_array_item($x, [0, 1]);
is_deeply($x, [4, 5, 6, 7, 8, 9, 10]);
del_array_item($x, [0, 1, 20]);
is_deeply($x, [6, 7, 8, 9, 10]);