Current File : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Net-DNS-1.19/t/34-NSEC3-flags.t
# $Id: 34-NSEC3-flags.t 1561 2017-04-19 13:08:13Z willem $ -*-perl-*-
#
use strict;
use Test::More;
use Net::DNS;
my @prerequisite = qw(
Net::DNS::RR::NSEC3
);
foreach my $package (@prerequisite) {
next if eval "use $package; 1;";
plan skip_all => "$package not installed";
exit;
}
plan tests => 3;
my $rr = new Net::DNS::RR( type => 'NSEC3' );
my $optout = $rr->optout;
ok( !$optout, 'Boolean optout flag has default value' );
$rr->optout( !$optout );
ok( $rr->optout, 'Boolean optout flag toggled' );
$rr->optout($optout);
ok( !$optout, 'Boolean optout flag restored' );
exit;
__END__
Mini Shell