--- a/t/10-vidns.t	Fri May 23 11:48:42 2014 +0200
+++ b/t/10-vidns.t	Fri May 23 13:04:19 2014 +0200
@@ -5,14 +5,15 @@
 use warnings;
 
 use_ok 'DNS::Vi' or BAIL_OUT 'DNS::Vi not found!';
-#can_ok 'DNS::Vi', qw(ttl2h h2ttl);
+can_ok 'DNS::Vi', qw(ttl2h h2ttl parse nice delta);
 
-is ttl2h(86400), '1d', '-> 1d';
-is h2ttl('1d'), 86400, '<- 1d';
+# TODO: more tests!
+is ttl2h(86400), '1d',  '-> 1d';
+is h2ttl('1d'),  86400, '<- 1d';
 
-my $data = do { 
-    local $/ = undef;
-    local @ARGV = 't/kugelbus-axfr';
+my $data = do {
+    local $/    = undef;
+    local @ARGV = 't/samples/kugelbus-axfr';
     <>;
 };
 
@@ -20,11 +21,21 @@
 is @zone1, 64 => '64 rrsets';
 
 $data =~ s{^kugelbus.*?IN\s+MX.*?$}{}m;
+$data .= <<_;
+foo 1h	txt "foo"
+    30m	A   1.1.1.1
+_
 my @zone2 = parse($data);
-is @zone2, 63, => '63 rrsets';
+is @zone2, 65, => '65 rrsets';
 
 my ($add, $del) = delta(\@zone1, \@zone2);
-is @$add, 0 => 'nothing to add';
+is @$add, 2 => '2 sets to add';
 is @$del, 1 => '1 set to delete';
 
+is_deeply $add,
+  ['foo.kugelbus.de. 1800 A 1.1.1.1', 'foo.kugelbus.de. 3600 TXT "foo"'] =>
+  'added datasets';
+is_deeply $del,
+  ['kugelbus.de. 86400 MX 10 ssl.schlittermann.de.'] => 'removed datasets';
+
 done_testing();