t/op.delete

   1 #!./perl
   2
   3 # $Header: op.delete,v 3.0 89/10/18 15:28:36 lwall Locked $
   4
   5 print "1..6\n";
   6
   7 $foo{1} = 'a';
   8 $foo{2} = 'b';
   9 $foo{3} = 'c';
  10
  11 $foo = delete $foo{2};
  12
  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";}
  17
  18 $foo = join('',values(foo));
  19 if ($foo eq 'ac' || $foo eq 'ca') {print "ok 5\n";} else {print "not ok 5\n";}
  20
  21 foreach $key (keys foo) {
  22     delete $foo{$key};
  23 }
  24
  25 $foo{'foo'} = 'x';
  26 $foo{'bar'} = 'y';
  27
  28 $foo = join('',values(foo));
  29 if ($foo eq 'xy' || $foo eq 'yx') {print "ok 6\n";} else {print "not ok 6\n";}