t/20-reverse-dns.t
changeset 84 0d9901b561f7
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/t/20-reverse-dns.t	Wed Jan 28 23:44:10 2015 +0100
@@ -0,0 +1,61 @@
+#! perl
+
+use 5.010;
+use Test::More;
+use strict;
+use warnings;
+use File::Basename;
+use Data::Dumper;
+
+use_ok 'DNS::Vi' or BAIL_OUT 'DNS::Vi not found!';
+can_ok 'DNS::Vi', qw(get_auth_info);
+
+is_deeply { get_auth_info('schlittermann.de') },
+  {
+    name  => 'schlittermann.de',
+    mname => 'pu.schlittermann.de'
+  } => 'schlittermann.de';
+
+is_deeply { get_auth_info('kx.schlittermann.de') },
+  {
+    name  => 'kx.schlittermann.de',
+    mname => 'pu.schlittermann.de'
+  } => 'kx.schlittermann.de';
+
+is_deeply { get_auth_info('ssl.schlittermann.de') },
+  {
+    name  => 'schlittermann.de',
+    mname => 'pu.schlittermann.de'
+  } => 'ssl.schlittermann.de';
+
+is_deeply { get_auth_info('www.schlittermann.de') },
+  {
+    name  => 'schlittermann.de',
+    mname => 'pu.schlittermann.de'
+  } => 'www.schlittermann.de';
+
+is_deeply { get_auth_info('no-such-domain.de') },
+  {
+    name  => 'de',
+    mname => 'f.nic.de',
+  } => 'no-such-domain.de';
+
+is_deeply { get_auth_info('212.80.235.130') },
+  {
+    name  => '128-191.235.80.212.in-addr.arpa',
+    mname => 'pu.schlittermann.de'
+  } => '212.80.235.130';
+
+is_deeply { get_auth_info('212.80.235.135') },
+  {
+    name  => '128-191.235.80.212.in-addr.arpa',
+    mname => 'pu.schlittermann.de'
+  } => '212.80.235.135';
+
+is_deeply { get_auth_info('2001:470:72aa:8::12') },
+  {
+    name  => 'a.a.2.7.0.7.4.0.1.0.0.2.ip6.arpa',
+    mname => 'pu.schlittermann.de'
+  } => '2001:470:72aa:8::12';
+
+done_testing;