Help language development. Donate to The Perl Foundation

P5getpwnam cpan:ELIZABETH last updated on 2019-12-21

t/getpwnam.t
use v6.c;
use Test;
use P5getpwnam;
%*ENV<RAKUDO_NO_DEPRECATIONS> = True;

plan 20;

my int $userid = +$*USER;
ok $userid > 0, "we got user ID $userid";

my $username = getpwuid(Scalar, $userid);
ok $username ~~ m/^ \w+ /, "we got user name $username";
is getpwuid($userid, :scalar), $username, 'did we get same username';

my @result = getpwuid($userid);
is @result[0], $username, 'did we get the username in this struct by uid';
is @result[2], $userid,   'did we get the userid in this struct by uid';

is getpwnam(Scalar, $username), $userid, 'did we get the uid';
is getpwnam($username, :scalar), $userid, 'did we get the uid';
@result = getpwnam($username);
is @result[0], $username, 'did we get the username in this struct by name';
is @result[2], $userid,   'did we get the userid in this struct by name';

endpwent;   # seems FreeBSD needs this
@result = getpwent;
ok @result, 'did we get anything from getpwent';

setpwent;  # reset to be able to see the first entry
my int $seen = 0;
my $seen_me;
while getpwent() -> @result {
    $seen_me = True if @result[0] eq $username && @result[2] == $userid;
    ++$seen;
}
ok $seen_me, 'did we see ourselves';
is setpwent, 1, 'did we return the undocumented 1';

--$seen while getpwent;
is $seen, 0, 'did we get the same number of entries the 2nd time';
is endpwent, 1, 'did we return the undocumented 1';

is getpwnam(Scalar, "thisnameshouldnotexist"), Nil, 'non-existing name scalar';
is getpwnam("thisnameshouldnotexist", :scalar), Nil, 'non-existing name scalar';
is-deeply getpwnam("thisnameshouldnotexist"), (), 'non-existing name';

is getpwuid(Scalar, 9999), Nil, 'non-existing name uid';
is getpwuid(9999, :scalar), Nil, 'non-existing name uid';
is-deeply getpwuid(9999), (), 'non-existing uid';

# vim: ft=perl6 expandtab sw=4