1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
|
use Test::More;
BEGIN {
use_ok( q{Zonemaster::Engine} );
use_ok( q{Zonemaster::Engine::Test::DNSSEC} );
use_ok( q{Zonemaster::Engine::Util} );
}
my $datafile = q{t/Test-dnssec05-H.data};
if ( not $ENV{ZONEMASTER_RECORD} ) {
die q{Stored data file missing} if not -r $datafile;
Zonemaster::Engine::Nameserver->restore( $datafile );
Zonemaster::Engine->profile->set( q{no_network}, 1 );
}
Zonemaster::Engine->add_fake_delegation(
'h.dnssec05.exempelvis.se' => {
'ns1.h.dnssec05.exempelvis.se' => ['46.21.97.97'],
'ns2.h.dnssec05.exempelvis.se' => ['2a02:750:12:77::97'],
},
fill_in_empty_oob_glue => 0,
);
my $zone = Zonemaster::Engine->zone( q{h.dnssec05.exempelvis.se} );
my %res = map { $_->tag => $_ } Zonemaster::Engine::Test::DNSSEC->dnssec05( $zone );
ok( !$res{NO_RESPONSE}, q{should not emit NO_RESPONSE} );
ok( !$res{NO_RESPONSE_DNSKEY}, q{should not emit NO_RESPONSE_DNSKEY} );
ok( !$res{ALGORITHM_DEPRECATED}, q{should not emit ALGORITHM_DEPRECATED} );
ok( !$res{ALGORITHM_RESERVED}, q{should not emit ALGORITHM_RESERVED} );
ok( !$res{ALGORITHM_UNASSIGNED}, q{should not emit ALGORITHM_UNASSIGNED} );
ok( !$res{ALGORITHM_PRIVATE}, q{should not emit ALGORITHM_PRIVATE} );
ok( $res{ALGORITHM_NOT_ZONE_SIGN}, q{should emit ALGORITHM_NOT_ZONE_SIGN} );
ok( !$res{ALGORITHM_OK}, q{should not emit ALGORITHM_OK} );
ok( !$res{ALGORITHM_NOT_RECOMMENDED}, q{should not emit ALGORITHM_NOT_RECOMMENDED} );
ok( !$res{ALGORITHM_DELETE_DS}, q{should no longer emit ALGORITHM_DELETE_DS} );
if ( $ENV{ZONEMASTER_RECORD} ) {
Zonemaster::Engine::Nameserver->save( $datafile );
}
done_testing;
|