Help language development. Donate to The Perl Foundation

Net::netent zef:lizmat last updated on 2021-09-09

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

plan 16;

{
    use Net::netent;
    for <
      &getnetbyname &getnetbyaddr &getnetent &setnetent &endnetent &getnet
    > -> $name {
       ok OUTER::MY::<<$name>>:exists, "is $name imported by default?";
    }
}

{
    use Net::netent :FIELDS;
    for <
      &getnetbyname &getnetbyaddr &getnetent &setnetent &endnetent &getnet
      $n_name @n_aliases $n_addrtype $n_net
    > -> $name {
       ok OUTER::MY::<<$name>>:exists, "is $name imported by default?";
    }
}

# vim: expandtab shiftwidth=4