compressed' );
isnt( $data, $downcased, 'Net::DNS::Mailbox encoding preserves case' );
is( length $canonical, length $data, 'Net::DNS::Mailbox canonical form is uncompressed' );
isnt( $canonical, $
ect returned by Net::DNS::Mailbox1035->decode()' );
isnt( length $compress, length $data, 'Net::DNS::Mailbox1035 encoding is compressible' );
isnt( $data, $downcased, 'Net::DNS::Mailbox1035 encod
e()' );
is( length $compress, length $data, 'Net::DNS::Mailbox2535 encoding is uncompressed' );
isnt( $data, $downcased, 'Net::DNS::Mailbox2535 encoding preserves case' );
is( length $canonical, le
ssed' );
isnt( $data, $downcased, 'Net::DNS::DomainName wire encoding preserves case' );
is( length $canonical, length $data, 'Net::DNS::DomainName canonical form is uncompressed' );
isnt( $canonic
), 'object returned by decode() constructor' );
isnt( length $compress, length $data, 'Net::DNS::DomainName1035 wire encoding is compressible' );
isnt( $data, $downcased, 'Net::DNS::DomainName103
is( length $compress, length $data, 'Net::DNS::DomainName2535 wire encoding is uncompressed' );
isnt( $data, $downcased, 'Net::DNS::DomainName2535 wire encoding preserves case' );
is( length $canon
+0zbWrYyiHRg5DllIT4
5NCz6EMtji1RQloWCaXuAzCN
END
my $keybin = $key->keybin;
$key->key($newkey);
isnt( $key->keytag, $keytag, 'keytag recalculated from modified key' );
$key->keybin($keybin);
is( $
skey->keytag;
$dnskey->$flag( !$boolean );
ok( $dnskey->$flag, "Boolean $flag flag toggled" );
isnt( $dnskey->keytag, $keytag, "keytag recalculated using modified $flag flag" );
$dnskey->$flag($b
->bgsend(...) truncated UDP' );
my $udp = $handle;
my $packet = $resolver->bgread($handle);
isnt( $handle, $udp, '$resolver->bgbusy($udp) handle changed to TCP' );
ok( $packet && !$packet->head
.net-dns.org', 'searchlist correct' );
is( $resolver->domain, $search[0], 'domain correct' );
isnt( $class->domain, $resolver->domain, 'default config unchanged' );
}
exception( 'new( config_fil
->bgsend(...) truncated UDP' );
my $udp = $handle;
my $packet = $resolver->bgread($handle);
isnt( $handle, $udp, '$resolver->bgbusy($udp) handle changed to TCP' );
ok( $packet && !$packet->head
res->dnssec(1);
ok( $res->dnssec(), "dnssec flag toggles on" );
my $size = $res->udppacketsize();
isnt( $size, $udpsize, "dnssec(1) sets udppacketsize ($size)" );
$res->dnssec(0);
ok( !$res->dnssec()