From: Gurusamy Sarathy Date: Fri, 17 Dec 1999 18:14:11 +0000 (+0000) Subject: test case for change#4694 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f83d9b6a171aadfd0629f898fd93b63a1640c5f;p=p5sagit%2Fp5-mst-13.2.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"; +}