Obsolete
/
dnsmanagerv1
Archived
3
0
Fork 0
This repository has been archived on 2024-06-18. You can view files and clone it, but cannot push or open issues/pull-requests.
dnsmanagerv1/t/003_basic_functions.t

24 lines
421 B
Raku

use Test::More;
use Modern::Perl;
use lib 'lib';
use util ':all';
chdir 'lib'; # TODO hack at 2am
map {
ok
( ( is_domain_name $_ ), "is '$_' a domain name" )
} qw( foo.bar bar localhost. localhost );
map {
ok
( ( is_valid_tld $_ ), "is '$_' a tld in the cfg file" )
} qw( .netlib.re );
map {
ok
( ( ! is_valid_tld $_ ), "is '$_' a tld in the cfg file" )
} qw( example.com );
done_testing;