19 lines
344 B
Perl
19 lines
344 B
Perl
|
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();
|