t/20-cname-change.t
changeset 106 140d7537105e
parent 105 9069ce49fd83
--- 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;