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
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
== length $predecessor, 'encoded RDATA not compressible' );
isnt( $rr->encode, $lc->encode, 'encoded RDATA names not downcased' );
isnt( $rr->canonical, $lc->encode, 'canonical RDATA names not do
== length $predecessor, 'encoded RDATA not compressible' );
isnt( $rr->encode, $lc->encode, 'encoded RDATA names not downcased' );
isnt( $rr->canonical, $lc->encode, 'canonical RDATA names not do
== length $predecessor, 'encoded RDATA not compressible' );
isnt( $rr->encode, $lc->encode, 'encoded RDATA names not downcased' );
isnt( $rr->canonical, $lc->encode, 'canonical RDATA names not do
< length $predecessor, 'encoded RDATA not compressible' );
isnt( $rr->encode, $lc->encode, 'encoded RDATA names not downcased' );
isnt( $rr->canonical, $lc->encode, 'canonical RDATA names not do
== length $predecessor, 'encoded RDATA not compressible' );
isnt( $rr->encode, $lc->encode, 'encoded RDATA names not downcased' );
isnt( $rr->canonical, $lc->encode, 'canonical RDATA names not do
== length $predecessor, 'encoded RDATA not compressible' );
isnt( $rr->encode, $lc->encode, 'encoded RDATA names not downcased' );
isnt( $rr->canonical, $lc->encode, 'canonical RDATA names not do
== length $predecessor, 'encoded RDATA not compressible' );
isnt( $rr->encode, $lc->encode, 'encoded RDATA names not downcased' );
isnt( $rr->canonical, $lc->encode, 'canonical RDATA names not do
ecessor, $hash );
ok( length $compressed < length $predecessor, 'encoded RDATA compressible' );
isnt( $rr->encode, $lc->encode, 'encoded RDATA names not downcased' );
is( $rr->canonical, $lc->encod
ecessor, $hash );
ok( length $compressed < length $predecessor, 'encoded RDATA compressible' );
isnt( $rr->encode, $lc->encode, 'encoded RDATA names not downcased' );
is( $rr->canonical, $lc->encod
ecessor, $hash );
ok( length $compressed < length $predecessor, 'encoded RDATA compressible' );
isnt( $rr->encode, $lc->encode, 'encoded RDATA names not downcased' );
is( $rr->canonical, $lc->encod
or, $hash );
ok( length $compressed == length $predecessor, 'encoded RDATA not compressible' );
isnt( $rr->encode, $lc->encode, 'encoded RDATA names not downcased' );
is( $rr->canonical, $lc->encod
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()
or, $hash );
ok( length $compressed == length $predecessor, 'encoded RDATA not compressible' );
isnt( $rr->encode, $lc->encode, 'encoded RDATA names not downcased' );
is( $rr->canonical, $lc->encod
or, $hash );
ok( length $compressed == length $predecessor, 'encoded RDATA not compressible' );
isnt( $rr->encode, $lc->encode, 'encoded RDATA names not downcased' );
is( $rr->canonical, $lc->encod
+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
ecessor, $hash );
ok( length $compressed < length $predecessor, 'encoded RDATA compressible' );
isnt( $rr->encode, $lc->encode, 'encoded RDATA names not downcased' );
is( $rr->canonical, $lc->encod
or, $hash );
ok( length $compressed == length $predecessor, 'encoded RDATA not compressible' );
isnt( $rr->encode, $lc->encode, 'encoded RDATA names not downcased' );
is( $rr->canonical, $lc->encod