15 lines
379 B
Perl
15 lines
379 B
Perl
|
use Test::More;
|
||
|
|
use Test::Fatal;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
BEGIN { use_ok("Zonemaster::LDNS" => qw(load_zonefile))}
|
||
|
|
|
||
|
|
my @rrs = load_zonefile("t/example.org");
|
||
|
|
is(scalar(@rrs), 16, 'All records loaded');
|
||
|
|
is($rrs[0]->type, 'SOA', 'SOA record first');
|
||
|
|
is($rrs[-1]->type, 'A', 'A record last');
|
||
|
|
is(lc($rrs[-1]->name), 'spencer.example.org.', 'Expected name last');
|
||
|
|
|
||
|
|
done_testing();
|