Add a test for keys $tied

This was ‘inadvertently’ fixed with commit 7ac5715

diff --git a/t/op/tie_fetch_count.t b/t/op/tie_fetch_count.t
index 69d4619..6d2da1c 100644 (file)
--- a/t/op/tie_fetch_count.t
+++ b/t/op/tie_fetch_count.t
@@ -7,7 +7,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
-    plan (tests => 209);
+    plan (tests => 210);
 }
 
 use strict;
@@ -165,6 +165,7 @@ $dummy  = @$var2        ; check_count '@{}';
 $dummy  = shift $var2   ; check_count 'shift arrayref';
 tie my $var3 => 'main', {};
 $dummy  = %$var3        ; check_count '%{}';
+$dummy  = keys $var3    ; check_count 'keys hashref';
 {
     no strict 'refs';
     tie my $var4 => 'main', **;