Help language development. Donate to The Perl Foundation

P5getservbyname cpan:ELIZABETH last updated on 2019-11-10

t/01-basic.t
use v6.c;
use Test;
use P5getservbyname;

my @supported = <
  endservent getservbyname getservbyport getservent setservent
>.map: '&' ~ *;

plan @supported * 2;

for @supported {
    ok defined(::($_)),              "is $_ imported?";
    nok P5getservbyname::{$_}:exists, "is $_ NOT externally accessible?";
}

# vim: ft=perl6 expandtab sw=4