"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/05-DS.t" between
Net-DNS-1.23.tar.gz and Net-DNS-1.23_01.tar.gz

About: Net::DNS is a DNS resolver implemented in Perl. Development version.

05-DS.t  (Net-DNS-1.23):05-DS.t  (Net-DNS-1.23_01)
# $Id: 05-DS.t 1749 2019-07-21 09:15:55Z willem $ -*-perl-*- # $Id: 05-DS.t 1779 2020-05-11 09:11:17Z willem $ -*-perl-*-
use strict; use strict;
use Test::More tests => 37; use Test::More tests => 37;
use Net::DNS; use Net::DNS;
my $name = 'DS.example'; my $name = 'DS.example';
my $type = 'DS'; my $type = 'DS';
my $code = 43; my $code = 43;
my @attr = qw( keytag algorithm digtype digest ); my @attr = qw( keytag algorithm digtype digest );
skipping to change at line 125 skipping to change at line 125
} }
{ {
my $keyrr = new Net::DNS::RR( type => 'DNSKEY', protocol => 0 ); my $keyrr = new Net::DNS::RR( type => 'DNSKEY', protocol => 0 );
eval { create Net::DNS::RR::DS($keyrr); }; eval { create Net::DNS::RR::DS($keyrr); };
my ($exception) = split /\n/, "$@\n"; my ($exception) = split /\n/, "$@\n";
ok( $exception, "create: non-DNSSEC key\t[$exception]" ); ok( $exception, "create: non-DNSSEC key\t[$exception]" );
} }
{ {
my $keyrr = new Net::DNS::RR( type => 'DNSKEY', flags => 0x8000 ); my $keyrr = new Net::DNS::RR( type => 'DNSKEY', zone => 0 );
eval { create Net::DNS::RR::DS($keyrr); }; eval { create Net::DNS::RR::DS($keyrr); };
my ($exception) = split /\n/, "$@\n"; my ($exception) = split /\n/, "$@\n";
ok( $exception, "create: non-auth key\t[$exception]" ); ok( $exception, "create: non-zone key\t[$exception]" );
} }
{ {
my $keyrr = new Net::DNS::RR( type => 'DNSKEY', flags => 0x200 ); my $keyrr = new Net::DNS::RR( type => 'DNSKEY', revoke => 1 );
eval { create Net::DNS::RR::DS($keyrr); }; eval { create Net::DNS::RR::DS($keyrr); };
my ($exception) = split /\n/, "$@\n"; my ($exception) = split /\n/, "$@\n";
ok( $exception, "create: non-ZONE key\t[$exception]" ); ok( $exception, "create: revoked key\t[$exception]" );
} }
{ {
my $rr = new Net::DNS::RR("$name $type @data"); my $rr = new Net::DNS::RR("$name $type @data");
$rr->print; $rr->print;
} }
exit; exit;
 End of changes. 5 change blocks. 
5 lines changed or deleted 5 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)