use strict;
use warnings;
-use Test::More tests => 32;
+use Test::More tests => 34;
use Sub::Nary;
my ($x, %h);
my @tests = (
+ [ sub { delete $h{foo} }, 1 ],
+ [ sub { delete @h{qw/foo bar baz/} }, 3 ],
+
[ sub { return <$x> }, 'list' ],
[ sub { -f $0, -r $0 }, 2 ],