#!./perl
require "./test.pl";
plan( tests => 38 );
my (@foo, %foo, $foo, @bar, @refary, %refhash, @list);
# delete() on hash elements
%foo{+1} = 'a';
%foo{+2} = 'b';
%foo{+3} = 'c';
%foo{+4} = 'd';
%foo{+5} = 'e';
$foo = delete %foo{2};
cmp_ok($foo,'eq','b','delete 2');
ok(!(exists %foo{2}),'b absent');
cmp_ok(%foo{?1},'eq','a','a exists');
cmp_ok(%foo{?3},'eq','c','c exists');
cmp_ok(%foo{?4},'eq','d','d exists');
cmp_ok(%foo{?5},'eq','e','e exists');
@foo = delete %foo{[@(4, 5)]};
cmp_ok(scalar(nelems @foo),'==',2,'deleted slice');
cmp_ok(@foo[0],'eq','d','slice 1');
cmp_ok(@foo[1],'eq','e','slice 2');
ok(!(exists %foo{4}),'d absent');
ok(!(exists %foo{5}),'e absent');
cmp_ok(%foo{?1},'eq','a','a still exists');
cmp_ok(%foo{?3},'eq','c','c still exists');
$foo = join('',values(%foo));
ok($foo eq 'ac' || $foo eq 'ca','remaining keys');
foreach my $key (keys %foo) {
delete %foo{$key};
}
%foo{+'foo'} = 'x';
%foo{+'bar'} = 'y';
$foo = join('',values(%foo));
ok($foo eq 'xy' || $foo eq 'yx','fresh keys');
%refhash{+"top"}->{+"foo"} = "FOO";
%refhash{"top"}->{+"bar"} = "BAR";
delete %refhash{"top"}->{"bar"};
@list = keys %{%refhash{?"top"}};
cmp_ok("$(join ' ',@list)",'eq',"foo", 'autoviv and delete hashref');
do {
my %a = %('bar', 33);
my $b = \%a{+bar};
my $c = \delete %a{bar};
ok($b \== $c,'a b c equivalent');
};
# delete() on array elements
@foo = @( () );
@foo[+1] = 'a';
@foo[+2] = 'b';
@foo[+3] = 'c';
@foo[+4] = 'd';
@foo[+5] = 'e';
$foo = delete @foo[2];
cmp_ok($foo,'eq','b','ary delete 2');
ok(!(exists @foo[2]),'ary b absent');
cmp_ok(@foo[1],'eq','a','ary a exists');
cmp_ok(@foo[3],'eq','c','ary c exists');
cmp_ok(@foo[4],'eq','d','ary d exists');
cmp_ok(@foo[5],'eq','e','ary e exists');
@bar = delete @foo[[@(4,5)]];
cmp_ok(scalar(nelems @bar),'==',2,'ary deleted slice');
cmp_ok(@bar[0],'eq','d','ary slice 1');
cmp_ok(@bar[1],'eq','e','ary slice 2');
ok(!(exists @foo[4]),'ary d absent');
ok(!(exists @foo[5]),'ary e absent');
cmp_ok(@foo[1],'eq','a','ary a still exists');
cmp_ok(@foo[3],'eq','c','ary c still exists');
$foo = join('', @foo);
cmp_ok($foo,'eq','ac','ary elems');
cmp_ok(scalar(nelems @foo),'==',4,'four is the number thou shalt count');
foreach my $key (0 .. ((nelems @foo)-1)) {
delete @foo[$key];
}
cmp_ok(scalar(nelems @foo),'==',0,'and then there were none');
@foo[+0] = 'x';
@foo[+1] = 'y';
$foo = "$(join ' ',@foo)";
cmp_ok($foo,'eq','x y','two fresh');
@refary[+0]->[+0] = "FOO";
@refary[0]->[+3] = "BAR";
delete @refary[0]->[3];
cmp_ok( scalar(nelems @{@refary[0]}),'==',1,'one down');
do {
my @a = @( 33 );
my $b = \@a[0];
my $c = \delete @a['bar'];
ok($b \== $c,'b c also equivalent');
};
do {
my %h;
my @($x,$y) = @(1, scalar delete %h{[@()]});
ok(!nelems($y),q([perl #29127] scalar delete of empty slice returned garbage));
};
do {
my $x = 0;
sub X::DESTROY { $x++ }
do {
my @a;
@a[+0] = bless \@(), 'X';
my $y = delete @a[0];
};
cmp_ok($x,'==',1,q([perl #30733] array delete didn't free returned element));
};