equal
deleted
inserted
replaced
124 is grep({ $_->{rrset}{rrtype} eq $type } @zone), |
124 is grep({ $_->{rrset}{rrtype} eq $type } @zone), |
125 $expect{$type}//0 => "number of $type rrsets"; |
125 $expect{$type}//0 => "number of $type rrsets"; |
126 } |
126 } |
127 } |
127 } |
128 |
128 |
129 my ($added, $deleted) = delta(\@zone, \@zone); |
129 my %delta = delta(\@zone, \@zone); |
130 is @$added, 0 => 'nothing added'; |
130 is @{$delta{add}}, 0 => 'nothing added'; |
131 is @$deleted, 0 => 'nothing deleted'; |
131 is @{$delta{del}}, 0 => 'nothing deleted'; |
132 } |
132 } |
133 } |
133 } |
134 |
134 |
135 done_testing(); |
135 done_testing(); |