test case for change#4694
Gurusamy Sarathy [Fri, 17 Dec 1999 18:14:11 +0000 (18:14 +0000)]
p4raw-link: @4694 on //depot/perl: 94f7643d7f26ed53393f1ab3452245da43de285e

p4raw-id: //depot/perl@4695

t/op/delete.t

index 6cc4475..6452c35 100755 (executable)
@@ -1,8 +1,6 @@
 #!./perl
 
-# $RCSfile: delete.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:44 $
-
-print "1..16\n";
+print "1..17\n";
 
 $foo{1} = 'a';
 $foo{2} = 'b';
@@ -49,3 +47,13 @@ delete $refhash{"top"}->{"bar"};
 @list = keys %{$refhash{"top"}};
 
 print "@list" eq "foo" ? "ok 16\n" : "not ok 16 @list\n";
+
+{
+    my %a = ('bar', 33);
+    my($a) = \(values %a);
+    my $b = \$a{bar};
+    my $c = \delete $a{bar};
+
+    print "not " unless $a == $b && $b == $c;
+    print "ok 17\n";
+}