1 files changed, 6 insertions, 1 deletions
diff --git a/t/op/avhv.t b/t/op/avhv.t
index a7ce58ab87..84d3f270fb 100755
--- a/t/op/avhv.t
+++ b/t/op/avhv.t
@@ -17,7 +17,7 @@ sub STORESIZE { $#{$_[0]} = $_[1]+1 }
 
 package main;
 
-print "1..5\n";
+print "1..6\n";
 
 $sch = {
     'abc' => 1,
@@ -74,3 +74,8 @@ $a->[0] = \%fake;
 
 $a->{'abc'} = 'ABC';
 if ($a->{'abc'} eq 'ABC') {print "ok 5\n";} else {print "not ok 5\n";}
+
+# hash slice
+my $slice = join('', 'x',@$a{'abc','def'},'x');
+print "not " if $slice ne 'xABCx';
+print "ok 6\n";