diff -r 0c4905e5d01a -r 0d9901b561f7 t/20-reverse-dns.t --- /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;