#!./perl
print "1..37\n";
# delete() on hash elements
if ($foo eq 'b') {
print "ok 1\n";}
else {
print "not ok 1 $foo\n";}
if ($foo{1} eq 'a') {
print "ok 3\n";}
else {
print "not ok 3\n";}
if ($foo{3} eq 'c') {
print "ok 4\n";}
else {
print "not ok 4\n";}
if ($foo{4} eq 'd') {
print "ok 5\n";}
else {
print "not ok 5\n";}
if ($foo{5} eq 'e') {
print "ok 6\n";}
else {
print "not ok 6\n";}
if (@foo == 2) {
print "ok 7\n";}
else {
print "not ok 7 ", @
foo+
0,
"\n";}
if ($foo[0] eq 'd') {
print "ok 8\n";}
else {
print "not ok 8 ",
$foo[
0],
"\n";}
if ($foo[1] eq 'e') {
print "ok 9\n";}
else {
print "not ok 9 ",
$foo[
1],
"\n";}
if ($foo{1} eq 'a') {
print "ok 12\n";}
else {
print "not ok 12\n";}
if ($foo{3} eq 'c') {
print "ok 13\n";}
else {
print "not ok 13\n";}
if ($foo eq 'ac' || $foo eq 'ca') {
print "ok 14\n";}
else {
print "not ok 14\n";}
}
print +
($foo eq 'xy' || $foo eq 'yx') ?
"ok 15\n" :
"not ok 15\n";
print "@list" eq "foo" ?
"ok 16\n" :
"not ok 16 @list\n";
{
my %a = ('bar', 33);
print "not " unless $a == $b && $b == $c; print "ok 17\n";
}
# delete() on array elements
if ($foo eq 'b') {
print "ok 18\n";}
else {
print "not ok 18 $foo\n";}
if ($foo[1] eq 'a') {
print "ok 20\n";}
else {
print "not ok 20\n";}
if ($foo[3] eq 'c') {
print "ok 21\n";}
else {
print "not ok 21\n";}
if ($foo[4] eq 'd') {
print "ok 22\n";}
else {
print "not ok 22\n";}
if ($foo[5] eq 'e') {
print "ok 23\n";}
else {
print "not ok 23\n";}
if (@bar == 2) {
print "ok 24\n";}
else {
print "not ok 24 ", @
bar+
0,
"\n";}
if ($bar[0] eq 'd') {
print "ok 25\n";}
else {
print "not ok 25 ",
$bar[
0],
"\n";}
if ($bar[1] eq 'e') {
print "ok 26\n";}
else {
print "not ok 26 ",
$bar[
1],
"\n";}
if ($foo[1] eq 'a') {
print "ok 29\n";}
else {
print "not ok 29\n";}
if ($foo[3] eq 'c') {
print "ok 30\n";}
else {
print "not ok 30\n";}
if ($foo eq 'ac') {
print "ok 31\n";}
else {
print "not ok 31\n";}
if (@foo == 4) {
print "ok 32\n";}
else {
print "not ok 32\n";}
}
if (@foo == 0) {
print "ok 33\n";}
else {
print "not ok 33\n";}
print +
($foo eq 'x y') ?
"ok 34\n" :
"not ok 34\n";
print @{
$refary[
0]} ==
1 ?
"ok 35\n" :
"not ok 35 @list\n";
{
my @a = 33;
my($a) = \(@a);
my $b = \$a[0];
print "not " unless $a == $b && $b == $c; print "ok 36\n";
}
{
# [perl #29127] scalar delete of empty slice returned garbage
my %h;
print "ok 37\n";
}