equal
deleted
inserted
replaced
42 'km21.de.' => ['pu.km21.de. hostmaster.schlittermann.de. 1397766411 86400 7200 604800 300'], |
42 'km21.de.' => ['pu.km21.de. hostmaster.schlittermann.de. 1397766411 86400 7200 604800 300'], |
43 }, |
43 }, |
44 }, |
44 }, |
45 b => { |
45 b => { |
46 RRSETS => 11, |
46 RRSETS => 11, |
47 SOA => 1, |
47 SOA => { |
|
48 'km21.de.' => ['pu.schlittermann.de. hostmaster.schlittermann.de. 1397766411 86400 7200 604800 300'], |
|
49 }, |
48 NS => 2, |
50 NS => 2, |
49 A => 1, |
51 A => 1, |
50 TXT => 3, |
52 TXT => 3, |
51 AAAA => 0, |
53 AAAA => 0, |
52 MX => 0, |
54 MX => 0, |
114 is_deeply \@entries, $expect{$type}{$label} => 'complete rrsets', |
116 is_deeply \@entries, $expect{$type}{$label} => 'complete rrsets', |
115 } |
117 } |
116 } |
118 } |
117 else { |
119 else { |
118 is grep({ $_->{rrset}{rrtype} eq $type } @zone), |
120 is grep({ $_->{rrset}{rrtype} eq $type } @zone), |
119 $expect{$type}//0 => "number of $type rrsets\n"; |
121 $expect{$type}//0 => "number of $type rrsets"; |
120 } |
122 } |
121 } |
123 } |
122 |
124 |
123 my ($added, $deleted) = delta(\@zone, \@zone); |
125 my ($added, $deleted) = delta(\@zone, \@zone); |
124 is @$added, 0 => 'nothing added'; |
126 is @$added, 0 => 'nothing added'; |