1 #! perl

     2 

     3 use Test::More;

     4 use strict;

     5 use warnings;

     6 

     7 use_ok 'ViDNS' or BAIL_OUT 'ViDNS not found!';

     8 #can_ok 'ViDNS', qw(ttl2h h2ttl);

     9 

    10 is ttl2h(86400), '1d', '-> 1d';

    11 is h2ttl('1d'), 86400, '<- 1d';

    12 

    13 my $data = do { 

    14     local $/ = undef;

    15     local @ARGV = 't/kugelbus-axfr';

    16     <>;

    17 };

    18 

    19 my @zone1 = parse($data);

    20 is @zone1, 64 => '64 rrsets';

    21 

    22 $data =~ s{^kugelbus.*?IN\s+MX.*?$}{}m;

    23 my @zone2 = parse($data);

    24 is @zone2, 63, => '63 rrsets';

    25 

    26 my ($add, $del) = delta(\@zone1, \@zone2);

    27 is @$add, 0 => 'nothing to add';

    28 is @$del, 1 => '1 set to delete';

    29 

    30 done_testing();