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/008_zonefile.t

19 lines
344 B
Perl
Raw Normal View History

2015-12-21 09:39:50 +01:00
use Test::More;
use Modern::Perl;
use lib 'lib';
use util ':all';
use zonefile;
chdir 'lib'; # TODO hack at 2am
#map {
# ok
# ( ( is_domain_name $_ ), "is '$_' a domain name" )
#} qw( foo.bar bar localhost. localhost );
#
#done_testing;
my $zf = zonefile->new( zonefile => "../t/zonefile.txt" );
$zf->new_serial();
print $zf->dump();