Blame t/01-resolver-flags.t
|
Packit |
e6c8bb |
# $Id: 01-resolver-flags.t 1444 2016-01-05 10:01:10Z willem $ -*-perl-*-
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
use strict;
|
|
Packit |
e6c8bb |
use Test::More tests => 23;
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
use Net::DNS;
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
my $res = Net::DNS::Resolver->new();
|
|
Packit |
e6c8bb |
ok( $res->isa('Net::DNS::Resolver'), 'new() created object' );
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
ok( !$res->dnssec(), "default dnssec flag off" );
|
|
Packit |
e6c8bb |
my $udpsize = $res->udppacketsize();
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
$res->dnssec(1);
|
|
Packit |
e6c8bb |
ok( $res->dnssec(), "dnssec flag toggles on" );
|
|
Packit |
e6c8bb |
my $size = $res->udppacketsize();
|
|
Packit |
e6c8bb |
isnt( $size, $udpsize, "dnssec(1) sets udppacketsize ($size)" );
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
$res->dnssec(0);
|
|
Packit |
e6c8bb |
ok( !$res->dnssec(), "dnssec flag toggles off" );
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
my @flag = qw(adflag cdflag force_v4 force_v6 prefer_v4 prefer_v6);
|
|
Packit |
e6c8bb |
foreach my $flag (@flag) {
|
|
Packit |
e6c8bb |
my $default = $res->$flag();
|
|
Packit |
e6c8bb |
my $changed = $default ? 0 : 1;
|
|
Packit |
e6c8bb |
ok( defined $default, "default $flag $default" );
|
|
Packit |
e6c8bb |
$res->$flag($changed);
|
|
Packit |
e6c8bb |
is( $res->$flag(), $changed, "toggle $flag $changed" );
|
|
Packit |
e6c8bb |
$res->$flag($default);
|
|
Packit |
e6c8bb |
is( $res->$flag(), $default, "toggle $flag $default" );
|
|
Packit |
e6c8bb |
}
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
exit;
|
|
Packit |
e6c8bb |
|