Help language development. Donate to The Perl Foundation

User::pwent zef:lizmat last updated on 2021-09-09

t/01-basic.t
use v6.*;
use Test;

plan 25;

{
    use User::pwent;
    for <&getpwnam &getpwuid &getpwent &setpwent &endpwent &getpw> -> $name {
       ok OUTER::MY::<<$name>>:exists, "is $name imported by default?";
    }
}

{
    use User::pwent :FIELDS;
    for <&getpwnam &getpwuid &getpwent &setpwent &endpwent &getpw
         $pw_name $pw_passwd $pw_uid $pw_gid $pw_change $pw_age
         $pw_quota $pw_comment $pw_class $pw_gecos $pw_dir
         $pw_shell $pw_expire> -> $name {
       ok OUTER::MY::<<$name>>:exists, "is $name imported by default?";
    }
}

# vim: expandtab shiftwidth=4