3 # $RCSfile: delete.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:44 $
11 $foo = delete $foo{2};
13 if ($foo eq 'b') {print "ok 1\n";} else {print "not ok 1 $foo\n";}
14 if ($foo{2} eq '') {print "ok 2\n";} else {print "not ok 2 $foo{2}\n";}
15 if ($foo{1} eq 'a') {print "ok 3\n";} else {print "not ok 3\n";}
16 if ($foo{3} eq 'c') {print "ok 4\n";} else {print "not ok 4\n";}
18 $foo = join('',values(foo));
19 if ($foo eq 'ac' || $foo eq 'ca') {print "ok 5\n";} else {print "not ok 5\n";}
21 foreach $key (keys foo) {
28 $foo = join('',values(foo));
29 if ($foo eq 'xy' || $foo eq 'yx') {print "ok 6\n";} else {print "not ok 6\n";}
31 $refhash{"top"}->{"foo"} = "FOO";
32 $refhash{"top"}->{"bar"} = "BAR";
34 delete $refhash{"top"}->{"bar"};
35 @list = keys %{$refhash{"top"}};
37 print "@list" eq "foo" ? "ok 7\n" : "not ok 7 @list\n";