138 lines
3.6 KiB
Perl
138 lines
3.6 KiB
Perl
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use File::Basename;
|
||
|
|
use File::Spec::Functions qw( rel2abs );
|
||
|
|
use lib dirname( rel2abs( $0 ) );
|
||
|
|
use TestUtil::DSL;
|
||
|
|
|
||
|
|
###########
|
||
|
|
# Delegation01 - https://github.com/zonemaster/zonemaster/blob/master/docs/public/specifications/test-zones/Delegation-TP/delegation01.md
|
||
|
|
testing_test_case 'Delegation', 'delegation01';
|
||
|
|
|
||
|
|
all_tags qw(ENOUGH_IPV4_NS_CHILD
|
||
|
|
ENOUGH_IPV4_NS_DEL
|
||
|
|
ENOUGH_IPV6_NS_CHILD
|
||
|
|
ENOUGH_IPV6_NS_DEL
|
||
|
|
ENOUGH_NS_CHILD
|
||
|
|
ENOUGH_NS_DEL
|
||
|
|
NOT_ENOUGH_IPV4_NS_CHILD
|
||
|
|
NOT_ENOUGH_IPV4_NS_DEL
|
||
|
|
NOT_ENOUGH_IPV6_NS_CHILD
|
||
|
|
NOT_ENOUGH_IPV6_NS_DEL
|
||
|
|
NOT_ENOUGH_NS_CHILD
|
||
|
|
NOT_ENOUGH_NS_DEL
|
||
|
|
NO_IPV4_NS_CHILD
|
||
|
|
NO_IPV4_NS_DEL
|
||
|
|
NO_IPV6_NS_CHILD
|
||
|
|
NO_IPV6_NS_DEL);
|
||
|
|
|
||
|
|
# Specific hint file (https://github.com/zonemaster/zonemaster/blob/master/test-zone-data/Delegation-TP/delegation01/hintfile.zone)
|
||
|
|
root_hints 'root-ns1.xa' => [ qw(127.16.1.27 fda1:b2:c3::127:16:1:27) ],
|
||
|
|
'root-ns2.xa' => [ qw(127.16.1.28 fda1:b2:c3::127:16:1:28) ];
|
||
|
|
|
||
|
|
zone_name_template '{SCENARIO}.{TESTCASE}.xa';
|
||
|
|
|
||
|
|
# Test zone scenarios
|
||
|
|
scenario 'ENOUGH-{1..3}' => sub {
|
||
|
|
expect qw(ENOUGH_IPV4_NS_CHILD
|
||
|
|
ENOUGH_IPV4_NS_DEL
|
||
|
|
ENOUGH_IPV6_NS_CHILD
|
||
|
|
ENOUGH_IPV6_NS_DEL
|
||
|
|
ENOUGH_NS_CHILD
|
||
|
|
ENOUGH_NS_DEL);
|
||
|
|
forbid_others;
|
||
|
|
};
|
||
|
|
|
||
|
|
scenario 'ENOUGH-DEL-NOT-CHILD' => sub {
|
||
|
|
todo; # FIXME: why?
|
||
|
|
|
||
|
|
expect qw(ENOUGH_IPV4_NS_DEL
|
||
|
|
ENOUGH_IPV6_NS_DEL
|
||
|
|
ENOUGH_NS_DEL
|
||
|
|
NOT_ENOUGH_IPV4_NS_CHILD
|
||
|
|
NOT_ENOUGH_IPV6_NS_CHILD
|
||
|
|
NOT_ENOUGH_NS_CHILD);
|
||
|
|
forbid_others;
|
||
|
|
};
|
||
|
|
|
||
|
|
scenario 'ENOUGH-CHILD-NOT-DEL' => sub {
|
||
|
|
expect qw(ENOUGH_IPV4_NS_CHILD
|
||
|
|
ENOUGH_IPV6_NS_CHILD
|
||
|
|
ENOUGH_NS_CHILD
|
||
|
|
NOT_ENOUGH_IPV4_NS_DEL
|
||
|
|
NOT_ENOUGH_IPV6_NS_DEL
|
||
|
|
NOT_ENOUGH_NS_DEL);
|
||
|
|
forbid_others;
|
||
|
|
};
|
||
|
|
|
||
|
|
scenario 'IPV6-AND-DEL-OK-NO-IPV4-CHILD' => sub {
|
||
|
|
todo; # FIXME: why?
|
||
|
|
|
||
|
|
expect qw(ENOUGH_IPV4_NS_DEL
|
||
|
|
ENOUGH_IPV6_NS_CHILD
|
||
|
|
ENOUGH_IPV6_NS_DEL
|
||
|
|
ENOUGH_NS_CHILD
|
||
|
|
ENOUGH_NS_DEL
|
||
|
|
NO_IPV4_NS_CHILD);
|
||
|
|
forbid_others;
|
||
|
|
};
|
||
|
|
|
||
|
|
scenario 'IPV4-AND-DEL-OK-NO-IPV6-CHILD' => sub {
|
||
|
|
todo; # FIXME: why?
|
||
|
|
|
||
|
|
expect qw(ENOUGH_IPV4_NS_DEL
|
||
|
|
ENOUGH_IPV4_NS_CHILD
|
||
|
|
ENOUGH_IPV6_NS_DEL
|
||
|
|
ENOUGH_NS_CHILD
|
||
|
|
ENOUGH_NS_DEL
|
||
|
|
NO_IPV6_NS_CHILD);
|
||
|
|
forbid_others;
|
||
|
|
};
|
||
|
|
|
||
|
|
scenario 'NO-IPV4-{1..3}' => sub {
|
||
|
|
expect qw(ENOUGH_IPV6_NS_CHILD
|
||
|
|
ENOUGH_IPV6_NS_DEL
|
||
|
|
ENOUGH_NS_CHILD
|
||
|
|
ENOUGH_NS_DEL
|
||
|
|
NO_IPV4_NS_CHILD
|
||
|
|
NO_IPV4_NS_DEL);
|
||
|
|
forbid_others;
|
||
|
|
};
|
||
|
|
|
||
|
|
scenario 'NO-IPV6-{1..3}' => sub {
|
||
|
|
expect qw(ENOUGH_IPV4_NS_CHILD
|
||
|
|
ENOUGH_IPV4_NS_DEL
|
||
|
|
ENOUGH_NS_CHILD
|
||
|
|
ENOUGH_NS_DEL
|
||
|
|
NO_IPV6_NS_CHILD
|
||
|
|
NO_IPV6_NS_DEL);
|
||
|
|
forbid_others;
|
||
|
|
};
|
||
|
|
|
||
|
|
scenario 'MISMATCH-DELEGATION-CHILD-1' => sub {
|
||
|
|
todo; # FIXME: why?
|
||
|
|
|
||
|
|
expect qw(ENOUGH_IPV4_NS_CHILD
|
||
|
|
NOT_ENOUGH_IPV4_NS_DEL
|
||
|
|
ENOUGH_IPV6_NS_CHILD
|
||
|
|
NOT_ENOUGH_IPV6_NS_DEL
|
||
|
|
ENOUGH_NS_CHILD
|
||
|
|
ENOUGH_NS_DEL);
|
||
|
|
forbid_others;
|
||
|
|
};
|
||
|
|
|
||
|
|
scenario 'MISMATCH-DELEGATION-CHILD-2' => sub {
|
||
|
|
todo; # FIXME: why?
|
||
|
|
|
||
|
|
expect qw(NOT_ENOUGH_IPV4_NS_CHILD
|
||
|
|
ENOUGH_IPV4_NS_DEL
|
||
|
|
NOT_ENOUGH_IPV6_NS_CHILD
|
||
|
|
ENOUGH_IPV6_NS_DEL
|
||
|
|
ENOUGH_NS_CHILD
|
||
|
|
ENOUGH_NS_DEL);
|
||
|
|
forbid_others;
|
||
|
|
};
|
||
|
|
|
||
|
|
no_more_scenarios;
|