|
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]);
|