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 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160
|
#!/usr/bin/perl
# $Id: 05-DS.t 1815 2020-10-14 21:55:18Z willem $ -*-perl-*-
#
use strict;
use warnings;
use Test::More tests => 37;
use Net::DNS;
my $name = 'DS.example';
my $type = 'DS';
my $code = 43;
my @attr = qw( keytag algorithm digtype digest );
my @data = ( 60485, 5, 1, '2bb183af5f22588179a53b0a98631fad1a292118' );
my @also = qw( digestbin babble );
my $wire = join '', qw( EC45 05 01 2BB183AF5F22588179A53B0A98631FAD1A292118 );
{
my $typecode = unpack 'xn', Net::DNS::RR->new(". $type")->encode;
is( $typecode, $code, "$type RR type code = $code" );
my $hash = {};
@{$hash}{@attr} = @data;
my $rr = Net::DNS::RR->new(
name => $name,
type => $type,
%$hash
);
my $string = $rr->string;
my $rr2 = Net::DNS::RR->new($string);
is( $rr2->string, $string, 'new/string transparent' );
is( $rr2->encode, $rr->encode, 'new($string) and new(%hash) equivalent' );
foreach (@attr) {
is( $rr->$_, $hash->{$_}, "expected result from rr->$_()" );
}
foreach (@also) {
is( $rr2->$_, $rr->$_, "additional attribute rr->$_()" );
}
my $empty = Net::DNS::RR->new("$name $type");
my $encoded = $rr->encode;
my $decoded = Net::DNS::RR->decode( \$encoded );
my $hex1 = uc unpack 'H*', $decoded->encode;
my $hex2 = uc unpack 'H*', $encoded;
my $hex3 = uc unpack 'H*', substr( $encoded, length $empty->encode );
is( $hex1, $hex2, 'encode/decode transparent' );
is( $hex3, $wire, 'encoded RDATA matches example' );
}
{
my $rr = Net::DNS::RR->new(". $type");
foreach ( @attr, 'rdstring' ) {
ok( !$rr->$_(), "'$_' attribute of empty RR undefined" );
}
}
{
my $rr = Net::DNS::RR->new(". $type @data");
my $class = ref($rr);
$rr->algorithm(255);
is( $rr->algorithm(), 255, 'algorithm number accepted' );
$rr->algorithm('RSASHA1');
is( $rr->algorithm(), 5, 'algorithm mnemonic accepted' );
is( $rr->algorithm('MNEMONIC'), 'RSASHA1', 'rr->algorithm("MNEMONIC") returns mnemonic' );
is( $rr->algorithm(), 5, 'rr->algorithm("MNEMONIC") preserves value' );
eval { $rr->algorithm('X'); };
my ($exception1) = split /\n/, "$@\n";
ok( $exception1, "unknown mnemonic\t[$exception1]" );
eval { $rr->algorithm(0); };
my ($exception2) = split /\n/, "$@\n";
ok( $exception2, "disallowed algorithm 0\t[$exception2]" );
is( $class->algorithm('RSASHA256'), 8, 'class method algorithm("RSASHA256")' );
is( $class->algorithm(8), 'RSASHA256', 'class method algorithm(8)' );
is( $class->algorithm(255), 255, 'class method algorithm(255)' );
}
{
my $rr = Net::DNS::RR->new(". $type @data");
my $class = ref($rr);
$rr->digtype('SHA256');
is( $rr->digtype(), 2, 'digest type mnemonic accepted' );
is( $rr->digtype('MNEMONIC'), 'SHA-256', 'rr->digtype("MNEMONIC") returns mnemonic' );
is( $rr->digtype(), 2, 'rr->digtype("MNEMONIC") preserves value' );
eval { $rr->digtype(0); };
my ($exception) = split /\n/, "$@\n";
ok( $exception, "disallowed digtype 0\t[$exception]" );
is( $class->digtype('SHA256'), 2, 'class method digtype("SHA256")' );
is( $class->digtype(2), 'SHA-256', 'class method digtype(2)' );
is( $class->digtype(255), 255, 'class method digtype(255)' );
}
{
my $rr = Net::DNS::RR->new(". $type @data");
eval { $rr->digest('123456789XBCDEF'); };
my ($exception) = split /\n/, "$@\n";
ok( $exception, "corrupt hexadecimal\t[$exception]" );
}
{
my $keyrr = Net::DNS::RR->new( type => 'DNSKEY', keybin => '' );
eval { create Net::DNS::RR::DS( $keyrr, ( 'digtype' => 255 ) ); };
my ($exception) = split /\n/, "$@\n";
ok( $exception, "create: wrong digtype\t[$exception]" );
}
{
my $keyrr = Net::DNS::RR->new( type => 'DNSKEY', protocol => 0 );
eval { create Net::DNS::RR::DS($keyrr); };
my ($exception) = split /\n/, "$@\n";
ok( $exception, "create: non-DNSSEC key\t[$exception]" );
}
{
my $keyrr = Net::DNS::RR->new( type => 'DNSKEY', zone => 0 );
eval { create Net::DNS::RR::DS($keyrr); };
my ($exception) = split /\n/, "$@\n";
ok( $exception, "create: non-zone key\t[$exception]" );
}
{
my $keyrr = Net::DNS::RR->new( type => 'DNSKEY', revoke => 1 );
eval { create Net::DNS::RR::DS($keyrr); };
my ($exception) = split /\n/, "$@\n";
ok( $exception, "create: revoked key\t[$exception]" );
}
{
my $rr = Net::DNS::RR->new("$name $type @data");
$rr->print;
}
exit;
|