diff -r 9069ce49fd83 -r 140d7537105e t/20-cname-change.t --- a/t/20-cname-change.t Thu Jul 14 10:30:58 2016 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,20 +0,0 @@ -#! perl -use strict; -use warnings; -use Test::More; -use DNS::Vi; - -sub slurp { - local @ARGV = @_; - join "\n", <>; -} - -ok my @zone1 = parse(slurp 't/samples/frey-1') => 'got 1st zone'; -ok my @zone2 = parse(slurp 't/samples/frey-2') => 'got 2nd zone';; - -ok my %delta = delta(\@zone1, \@zone2) => 'got delta'; -is @{$delta{add}}, 2 => '2 added'; -is @{$delta{del}}, 3 => '3 deleted'; - - -done_testing;