--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/t/20-cname-change.t	Wed Jan 21 23:07:35 2015 +0100
@@ -0,0 +1,20 @@
+#! 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;