use strict;
use warnings;
-use Test::More tests => 26;
+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 ],
[ sub { do { getpwnam 'root' } }, { 0 => 0.5, 10 => 0.5 } ],
[ sub { 1; getpwuid '0' }, { 0 => 0.5, 10 => 0.5 } ],
[ sub { eval { return getpwent } }, { 0 => 0.5, 10 => 0.5 } ],
+
[ sub { do { getgrnam 'root' } }, { 0 => 0.5, 4 => 0.5 } ],
[ sub { 1; getgrgid '0' }, { 0 => 0.5, 4 => 0.5 } ],
[ sub { eval { return getgrent } }, { 0 => 0.5, 4 => 0.5 } ],
+
[ sub { do { gethostbyname 'localhost' } }, 'list' ],
[ sub { 1; gethostbyaddr '', '' }, 'list' ],
[ sub { eval { return gethostent } }, 'list' ],
+
[ sub { do { getnetbyname '' } }, { 0 => 0.5, 4 => 0.5 } ],
[ sub { 1; getnetbyaddr '', '' }, { 0 => 0.5, 4 => 0.5 } ],
[ sub { eval { return getnetent } }, { 0 => 0.5, 4 => 0.5 } ],
+
[ sub { do { getprotobyname 'tcp' } }, { 0 => 0.5, 3 => 0.5 } ],
[ sub { 1; getprotobynumber 6 }, { 0 => 0.5, 3 => 0.5 } ],
[ sub { eval { return getprotoent } }, { 0 => 0.5, 3 => 0.5 } ],
+
[ sub { do { getservbyname 'ssh', 'tcp' } }, { 0 => 0.5, 4 => 0.5 } ],
[ sub { 1; getservbyport 22, 'tcp' }, { 0 => 0.5, 4 => 0.5 } ],
[ sub { eval { return getservent } }, { 0 => 0.5, 4 => 0.5 } ],
- [ sub { <*.*> }, { list => 1 / 3, 1 => 2 / 3 } ],
+ [ sub { endpwent }, 1 ],
+ [ sub { endgrent }, 1 ],
+ [ sub { endhostent }, 1 ],
+ [ sub { endnetent }, 1 ],
+ [ sub { endprotoent }, 1 ],
+ [ sub { endservent }, 1 ],
+
+ [ sub { <*.*> }, 1 ],
);
my $i = 1;