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
46
|
#!/usr/bin/perl
# $Id: 01-resolver-flags.t 1815 2020-10-14 21:55:18Z willem $ -*-perl-*-
#
use strict;
use warnings;
use Test::More tests => 23;
use Net::DNS::Resolver;
local $ENV{'RES_NAMESERVERS'};
local $ENV{'RES_SEARCHLIST'};
local $ENV{'LOCALDOMAIN'};
local $ENV{'RES_OPTIONS'};
my $res = Net::DNS::Resolver->new();
ok( $res->isa('Net::DNS::Resolver'), 'new() created object' );
ok( !$res->dnssec(), "default dnssec flag off" );
my $udpsize = $res->udppacketsize();
$res->dnssec(1);
ok( $res->dnssec(), "dnssec flag toggles on" );
my $size = $res->udppacketsize();
isnt( $size, $udpsize, "dnssec(1) sets udppacketsize ($size)" );
$res->dnssec(0);
ok( !$res->dnssec(), "dnssec flag toggles off" );
my @flag = qw(adflag cdflag force_v4 force_v6 prefer_v4 prefer_v6);
foreach my $flag (@flag) {
my $default = $res->$flag();
my $changed = $default ? 0 : 1;
ok( defined $default, "default $flag $default" );
$res->$flag($changed);
is( $res->$flag(), $changed, "toggle $flag $changed" );
$res->$flag($default);
is( $res->$flag(), $default, "toggle $flag $default" );
}
exit;
|
