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
|
#!/usr/bin/perl
# $Id: 34-NSEC3-flags.t 2003 2025-01-21 12:06:06Z willem $ -*-perl-*-
#
use strict;
use warnings;
use Test::More;
use Net::DNS;
my @prerequisite = qw(
Net::DNS::RR::NSEC3
);
foreach my $package (@prerequisite) {
next if eval "require $package"; ## no critic
plan skip_all => "$package not installed";
exit;
}
plan tests => 3;
my $rr = Net::DNS::RR->new( type => 'NSEC3' );
my $optout = $rr->optout(0);
ok( !$optout, 'Boolean optout flag cleared' );
$rr->optout( !$optout );
ok( $rr->optout, 'Boolean optout flag toggled' );
$rr->optout($optout);
ok( !$optout, 'Boolean optout flag restored' );
exit;
__END__
|
