### ----------------------------------------------------
### -- P5getpwnam
### -- Licenses: Artistic-2.0
### -- Authors: Elizabeth Mattijsen
### -- File: t/getpwnam.rakutest
### ----------------------------------------------------
use Test;
use P5getpwnam;

plan 16;

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";

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';
@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-deeply getpwnam("thisnameshouldnotexist"), (), 'non-existing name';

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

# vim: expandtab shiftwidth=4


