109 lines
2.9 KiB
Perl
109 lines
2.9 KiB
Perl
|
use Test::More;
|
||
|
|
|
||
|
|
use Zonemaster::LDNS;
|
||
|
|
|
||
|
|
SKIP: {
|
||
|
|
skip 'no network', 20 unless $ENV{TEST_WITH_NETWORK};
|
||
|
|
|
||
|
|
my $r = Zonemaster::LDNS->new( '8.8.8.8' );
|
||
|
|
|
||
|
|
$r->recurse( 0 );
|
||
|
|
ok( !$r->recurse, 'recursive off' );
|
||
|
|
$r->recurse( 1 );
|
||
|
|
ok( $r->recurse, 'recursive on' );
|
||
|
|
|
||
|
|
$r->retrans( 17 );
|
||
|
|
is( $r->retrans, 17, 'retrans set' );
|
||
|
|
|
||
|
|
$r->retry( 17 );
|
||
|
|
is( $r->retry, 17, 'retry set' );
|
||
|
|
|
||
|
|
$r->debug( 1 );
|
||
|
|
ok( $r->debug, 'debug set' );
|
||
|
|
$r->debug( 0 );
|
||
|
|
ok( !$r->debug, 'debug unset' );
|
||
|
|
|
||
|
|
$r->dnssec( 1 );
|
||
|
|
ok( $r->dnssec, 'dnssec set' );
|
||
|
|
$r->dnssec( 0 );
|
||
|
|
ok( !$r->dnssec, 'dnssec unset' );
|
||
|
|
|
||
|
|
$r->cd( 1 );
|
||
|
|
ok( $r->cd, 'dnssec set' );
|
||
|
|
$r->cd( 0 );
|
||
|
|
ok( !$r->cd, 'dnssec unset' );
|
||
|
|
|
||
|
|
$r->usevc( 1 );
|
||
|
|
ok( $r->usevc, 'usevc set' );
|
||
|
|
$r->usevc( 0 );
|
||
|
|
ok( !$r->usevc, 'usevc unset' );
|
||
|
|
|
||
|
|
$r->igntc( 1 );
|
||
|
|
ok( $r->igntc, 'igntc set' );
|
||
|
|
$r->igntc( 0 );
|
||
|
|
ok( !$r->igntc, 'igntc unset' );
|
||
|
|
|
||
|
|
$r->edns_size( 4711 );
|
||
|
|
is($r->edns_size, 4711 , 'ENDS0 UDP size set');
|
||
|
|
$r->edns_size( 0 );
|
||
|
|
is($r->edns_size, 0 , 'ENDS0 UDP size set to zero');
|
||
|
|
|
||
|
|
is($r->timeout, 5, 'Expected default timeout');
|
||
|
|
$r->timeout(3.33);
|
||
|
|
ok(($r->timeout - 3.33) < 0.01, 'Expected set timeout');
|
||
|
|
|
||
|
|
my $addr = '192.0.2.1'; # Reserved RFC5737
|
||
|
|
ok($r->source($addr), "Source set.");
|
||
|
|
is($r->source, $addr, 'Source got.');
|
||
|
|
}
|
||
|
|
|
||
|
|
subtest 'recursion' => sub {
|
||
|
|
SKIP: {
|
||
|
|
skip 'no network', 3 unless $ENV{TEST_WITH_NETWORK};
|
||
|
|
|
||
|
|
my $r = Zonemaster::LDNS->new( '8.8.4.4' );
|
||
|
|
my $p1 = $r->query( 'www.iis.se' );
|
||
|
|
is( scalar($p1->answer), 1);
|
||
|
|
$r->recurse(0);
|
||
|
|
my $p2 = $r->query( 'www.nic.se' );
|
||
|
|
is( scalar($p2->answer), 0, 'Got a reply');
|
||
|
|
ok(!$p2->rd, 'RD flag set');
|
||
|
|
}
|
||
|
|
};
|
||
|
|
|
||
|
|
subtest 'global' => sub {
|
||
|
|
SKIP: {
|
||
|
|
skip 'no network', 3 unless $ENV{TEST_WITH_NETWORK};
|
||
|
|
|
||
|
|
my $res = new_ok( 'Zonemaster::LDNS' );
|
||
|
|
my $p = eval { $res->query( 'www.iis.se' ) } ;
|
||
|
|
|
||
|
|
if (not $p) {
|
||
|
|
diag $@;
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
isa_ok( $p, 'Zonemaster::LDNS::Packet' );
|
||
|
|
isa_ok( $_, 'Zonemaster::LDNS::RR' ) for $p->answer;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
};
|
||
|
|
|
||
|
|
# subtest 'sections' => sub {
|
||
|
|
# my $res = Zonemaster::LDNS->new( '194.146.106.22' );
|
||
|
|
# my $p = eval { $res->query( 'www.iis.se' ) };
|
||
|
|
# plan skip_all => 'No response, cannot test' if not $p;
|
||
|
|
#
|
||
|
|
# is( scalar( $p->answer ), 1, 'answer count in scalar context' );
|
||
|
|
# is( scalar( $p->authority ), 3, 'authority count in scalar context' );
|
||
|
|
# is( scalar( $p->additional ), 6, 'additional count in scalar context' );
|
||
|
|
# is( scalar( $p->question ), 1, 'question count in scalar context' );
|
||
|
|
# };
|
||
|
|
|
||
|
|
subtest 'broken' => sub {
|
||
|
|
my $b0rken = eval { Zonemaster::LDNS->new( 'gurksallad' ) };
|
||
|
|
ok( !$b0rken );
|
||
|
|
like( $@, qr/Failed to parse IP address: gurksallad/ );
|
||
|
|
};
|
||
|
|
|
||
|
|
done_testing;
|