1use Test::More tests => 24; 2 3use FindBin qw/$Bin/; 4 5use DNS::LDNS ':all'; 6 7BEGIN { use_ok('DNS::LDNS') }; 8 9# Create list 10my $list = new DNS::LDNS::RRList; 11isa_ok($list, 'DNS::LDNS::RRList', 'Create an empty rr list'); 12 13# Push/pop/count rr 14$list->push(new DNS::LDNS::RR(str => 'ns.myzone.org 3600 IN AAAA ::1')); 15is($list->rr_count, 1, 'Added one rr'); 16like($list->rr(0)->to_string, qr/^ns\.myzone\.org\.\s+3600\s+IN\s+AAAA\s+::1$/, 'Added rr is at position 0'); 17$list->push(new DNS::LDNS::RR(str => 'ns.myzone.org 7200 IN A 192.168.100.2')); 18is($list->rr_count, 2, 'Added another rr'); 19like($list->rr(1)->to_string, qr/^ns\.myzone\.org\.\s+7200\s+IN\s+A\s+192\.168\.100\.2$/, 'Last added rr is at position 1'); 20like($list->pop->to_string, qr/^ns\.myzone\.org\.\s+7200\s+IN\s+A\s+192\.168\.100\.2$/, 'pop the last element'); 21is($list->rr_count, 1, '1 element left in the list'); 22 23# Push/pop list 24my $l2 = new DNS::LDNS::RRList; 25$l2->push(new DNS::LDNS::RR(str => 'ns2.myzone.org 3600 IN A 192.168.100.0')); 26$l2->push(new DNS::LDNS::RR(str => 'ns2.myzone.org 3600 IN A 192.168.100.1')); 27$list->push_list($l2); 28is($list->rr_count, 3, 'Pushed two elements. List count is now 3.'); 29$list->push_list($l2); 30$list->push_list($l2); 31my $l3 = $list->pop_list(1); 32is($list->rr_count, 6, 'Pushed 4 elements, popped 1, count is now 6'); 33is($l3->rr_count, 1, 'Popped list contains 1 elements'); 34$l3 = $list->pop_list(3); 35is($list->rr_count, 3, 'Popped 3 elements, count is now 3'); 36is($l3->rr_count, 3, 'Popped list contains 3 elements'); 37 38# RRSets 39ok($l2->is_rrset, 'List is rrset'); 40ok(!$list->is_rrset, 'List is no longer an rrset'); 41my $rrset = $list->pop_rrset; 42ok($rrset->is_rrset, 'Popped list is rrset'); 43is($rrset->rr_count, 2, 'Popped rrset has two elements.'); 44 45# Compare, contains, subtype 46my $rr = new DNS::LDNS::RR(str => 'ns2.myzone.org 3600 IN A 192.168.100.0'); 47ok($rrset->contains_rr($rr), 'RRSet contains rr '.$rr->to_string); 48is($list->compare($l2), -1, '$list < $l2'); 49is($l2->compare($list), 1, '$l2 > $list'); 50 51$list->push(new DNS::LDNS::RR(str => 'ns3.myzone.org 3600 IN A 192.168.100.0'), 52 new DNS::LDNS::RR(str => 'ns3.myzone.org 3600 IN A 192.168.100.1'), 53 new DNS::LDNS::RR(str => 'ns4.myzone.org 3600 IN A 192.168.100.1')); 54my $subtype = $list->subtype_by_rdata( 55 new DNS::LDNS::RData(LDNS_RDF_TYPE_A, '192.168.100.1'), 0); 56is($subtype->to_string, "ns3.myzone.org.\t3600\tIN\tA\t192.168.100.1\nns4.myzone.org.\t3600\tIN\tA\t192.168.100.1\n", 'Filter rrs by rdata'); 57 58# DNSSec signature verification 59my $keylist = new DNS::LDNS::RRList; 60$keylist->push( 61 new DNS::LDNS::RR(str => 'trondheim.no. 3600 IN DNSKEY 256 3 8 AwEAAZIDdRI8I+F/J6OT8xX7CbGQYRr8rWH9dvloUlRJXcEVE2pRAez6 pJC5Odg+i2WvDUeE4tUO1gwwjU83TIinZxxsDnqr7FzvqpHeJbVd2N3d S4zaJcbjSnwMqdebmTEXSrflp8DeIAH0GQGNQjhOPubbb/nADYP2RS1i CoOADa8P'), 62 new DNS::LDNS::RR(str => 'trondheim.no. 3600 IN DNSKEY 257 3 8 AwEAAax9EgKyRsMpU2B0E2dZ+nkWnmZHjlBO3uXBI+2x33dG8bk+XSqr kyWTelhhsqLqIxsaYSwYgzLtn+/qzlFjKwcaU95p+Tp95MOVXYqUtRyC VyLGkzA7ZDbx7TFCi3PyLDM/Arx+DvOx6nNvA/erqIU5gYEo9Nm1KXEy rhfSn3xc96p1AOhmTuSo6EfYlPY4gxHDgJdHFv7Fi9zV6VFmJ29h0rsG 5g3pV1lvCcGcxfRLJ1u7JRw2BWMo9lgHzGuypEVV7iLnvbfDlXhF+jAS owR2JxlESC3dOgNiNWvc4pbyVXBXpP6h/5JpcxkzF7BNJMZiLN14qvam G1+LuZM8qfc=') 63); 64 65my $soalist = new DNS::LDNS::RRList; 66$soalist->push( 67 new DNS::LDNS::RR(str => 'trondheim.no. 3600 IN SOA charm.norid.no. hostmaster.norid.no. 2013021137 14400 1800 2419200 3600') 68); 69 70my $siglist = new DNS::LDNS::RRList; 71$siglist->push( 72 new DNS::LDNS::RR(str => 'trondheim.no. 3600 IN RRSIG SOA 8 2 3600 20130227105101 20130213090318 36381 trondheim.no. NbeN8E4pvQSDk3Dn0i8B4e2A3KAY8JrX+zcJazPTgHbT6wjzCncn3ANn 6rs+HdcCLtptyX1QbzlZD/lOY8kjJw5TEUoFX2Q/2sBYdt1aT6qgt/+H o71iUz3bk1V73zjSG/OpqG0oXmjCWSBZgzK6UI+zGlgG0Kvrc7H1pw5S ZBA=') 73); 74 75my ($status, $goodkeys) = $soalist->verify_notime($siglist, $keylist); 76is ($status, LDNS_STATUS_OK, 'Verification returned status ok.'); 77is ($goodkeys->rr_count, 1, 'One key matched the signature.'); 78 79my $klist = new DNS::LDNS::KeyList; 80$klist->push(new DNS::LDNS::Key(filename => "$Bin/testdata/key.private")); 81$klist->key(0)->set_pubkey_owner( 82 new DNS::LDNS::RData(LDNS_RDF_TYPE_DNAME, 'myzone.org')); 83my $sigs = $l2->sign_public($klist); 84is($sigs->rr_count, 1, 'Sign public, got 1 rrsig'); 85