From: Robin Houston <robin@cpan.org>
Date: Mon, 23 Apr 2001 16:52:21 +0000 (+0100)
Subject: test for ID 20010423.002
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e43e3698bae0df548586993239e41f4f949a3f78;p=p5sagit%2Fp5-mst-13.2.git

test for ID 20010423.002
Message-ID: <20010423165221.A20739@puffinry.freeserve.co.uk>

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

diff --git a/t/op/avhv.t b/t/op/avhv.t
index 5b91fd2..1ee1da7 100755
--- a/t/op/avhv.t
+++ b/t/op/avhv.t
@@ -17,7 +17,7 @@ sub STORESIZE { $#{$_[0]} = $_[1]+1 }
 
 package main;
 
-print "1..28\n";
+print "1..29\n";
 
 $sch = {
     'abc' => 1,
@@ -176,3 +176,9 @@ print "ok 27\n";
 (@extra, %$avhv) = (foo => 42, pants => 53, bar => "HIKE!");
 print "not " unless ref $avhv->[0] eq 'HASH' and @extra == 6;
 print "ok 28\n";
+
+# Check hash slices (BUG ID 20010423.002)
+$avhv = [{foo=>1, bar=>2}];
+@$avhv{"foo", "bar"} = (42, 53);
+print "not " unless $avhv->{foo} == 42 && $avhv->{bar} == 53;
+print "ok 29\n";