1 #! perl

     2 use strict;

     3 use warnings;

     4 use Test::More;

     5 use DNS::Vi;

     6 

     7 sub slurp {

     8     local @ARGV = @_;

     9     join "\n", <>;

    10 }

    11 

    12 ok my @zone1 = parse(slurp 't/samples/frey-1') => 'got 1st zone';

    13 ok my @zone2 = parse(slurp 't/samples/frey-2') => 'got 2nd zone';;

    14 

    15 ok my %delta = delta(\@zone1, \@zone2) => 'got delta';

    16 is @{$delta{add}}, 2 => '2 added';

    17 is @{$delta{del}}, 3 => '3 deleted';

    18 

    19 

    20 done_testing;