From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 17 Dec 1999 18:14:11 +0000 (+0000)
Subject: test case for change#4694
X-Git-Tag: accepted/trunk/20130322.191538~35780
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=2f83d9b6a171aadfd0629f898fd93b63a1640c5f;p=platform%2Fupstream%2Fperl.git

test case for change#4694

p4raw-link: @4694 on //depot/perl: 94f7643d7f26ed53393f1ab3452245da43de285e

p4raw-id: //depot/perl@4695
---

diff --git a/t/op/delete.t b/t/op/delete.t
index 6cc4475..6452c35 100755
--- a/t/op/delete.t
+++ b/t/op/delete.t
@@ -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";
+}