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