Blame t/42-DNSKEY-flags.t
|
Packit |
e6c8bb |
# $Id: 42-DNSKEY-flags.t 1367 2015-06-29 08:53:56Z willem $ -*-perl-*-
|
|
Packit |
e6c8bb |
#
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
use strict;
|
|
Packit |
e6c8bb |
use Test::More;
|
|
Packit |
e6c8bb |
use Net::DNS;
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
my @prerequisite = qw(
|
|
Packit |
e6c8bb |
MIME::Base64
|
|
Packit |
e6c8bb |
Net::DNS::RR::DNSKEY;
|
|
Packit |
e6c8bb |
);
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
foreach my $package (@prerequisite) {
|
|
Packit |
e6c8bb |
next if eval "require $package";
|
|
Packit |
e6c8bb |
plan skip_all => "$package not installed";
|
|
Packit |
e6c8bb |
exit;
|
|
Packit |
e6c8bb |
}
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
plan tests => 16;
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
my $dnskey = new Net::DNS::RR <<'END';
|
|
Packit |
e6c8bb |
RSASHA1.example. IN DNSKEY 256 3 5 (
|
|
Packit |
e6c8bb |
AwEAAZHbngk6sMoFHN8fsYY6bmGR4B9UYJIqDp+mORLEH53Xg0f6RMDtfx+H3/x7bHTUikTr26bV
|
|
Packit |
e6c8bb |
AqsxOs2KxyJ2Xx9RGG0DB9O4gpANljtTq2tLjvaQknhJpSq9vj4CqUtr6Wu152J2aQYITBoQLHDV
|
|
Packit |
e6c8bb |
i8mIIunparIKDmhy8TclVXg9 ; Key ID = 1623
|
|
Packit |
e6c8bb |
)
|
|
Packit |
e6c8bb |
END
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
ok( $dnskey, 'set up DNSKEY record' );
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
$dnskey->flags(0);
|
|
Packit |
e6c8bb |
foreach my $flag ( qw(sep zone revoke) ) {
|
|
Packit |
e6c8bb |
my $boolean = $dnskey->$flag(0);
|
|
Packit |
e6c8bb |
ok( !$boolean, "Boolean $flag flag has expected value" );
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
my $keytag = $dnskey->keytag;
|
|
Packit |
e6c8bb |
$dnskey->$flag( !$boolean );
|
|
Packit |
e6c8bb |
ok( $dnskey->$flag, "Boolean $flag flag toggled" );
|
|
Packit |
e6c8bb |
isnt( $dnskey->keytag, $keytag, "keytag recalculated using modified $flag flag" );
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
$dnskey->$flag($boolean);
|
|
Packit |
e6c8bb |
ok( !$dnskey->$flag, "Boolean $flag flag restored" );
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
is( $dnskey->keytag, $keytag, "keytag recalculated using restored $flag flag" );
|
|
Packit |
e6c8bb |
}
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
exit;
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
__END__
|
|
Packit |
e6c8bb |
|
|
Packit |
e6c8bb |
|