You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
dnsmanagerv1/t/003_basic_functions.t

24 lines
421 B

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;