projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
94f7643
)
test case for change#4694
author
Gurusamy Sarathy
<gsar@cpan.org>
Fri, 17 Dec 1999 18:14:11 +0000
(18:14 +0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
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
patch
|
blob
|
history
diff --git
a/t/op/delete.t
b/t/op/delete.t
index
6cc4475
..
6452c35
100755
(executable)
--- 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";
+}