Test emptying a hash (can't believe this wasn't already tested)

diff --git a/t/32-hash.t b/t/32-hash.t
index d04c366a3a1688f38baa4eff3ff307291a8941c1..4686d27dbdaa75547a71594e692bb92392946990 100644 (file)
--- a/t/32-hash.t
+++ b/t/32-hash.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 2 * 18 + 5 + 1;
+use Test::More tests => 2 * 19 + 5 + 1;
 
 use Variable::Magic qw/cast dispell MGf_COPY VMG_UVAR/;
 
@@ -37,6 +37,8 @@ check { @b = @h{qw/bar qux/} }
                   # (copy => 2) x MGf_COPY # if clear magic
 is_deeply \@b, [ @n{qw/bar qux/} ], 'hash: slice correctly';
 
+check { %h = () } { }, 'empty in list context'; # clear => 1
+
 check { %h = (a => 1, d => 3); () }
                +{ (store => 2) x VMG_UVAR },
                # clear => 1, (copy => 2) x VMG_UVAR