1 #! perl

     2 

     3 use 5.010;

     4 use Test::More;

     5 use strict;

     6 use warnings;

     7 use File::Basename;

     8 use Data::Dumper;

     9 

    10 use_ok 'DNS::Vi' or BAIL_OUT 'DNS::Vi not found!';

    11 can_ok 'DNS::Vi', qw(get_auth_info);

    12 

    13 is_deeply { get_auth_info('schlittermann.de') },

    14   {

    15     name  => 'schlittermann.de',

    16     mname => 'pu.schlittermann.de'

    17   } => 'schlittermann.de';

    18 

    19 is_deeply { get_auth_info('kx.schlittermann.de') },

    20   {

    21     name  => 'kx.schlittermann.de',

    22     mname => 'pu.schlittermann.de'

    23   } => 'kx.schlittermann.de';

    24 

    25 is_deeply { get_auth_info('ssl.schlittermann.de') },

    26   {

    27     name  => 'schlittermann.de',

    28     mname => 'pu.schlittermann.de'

    29   } => 'ssl.schlittermann.de';

    30 

    31 is_deeply { get_auth_info('www.schlittermann.de') },

    32   {

    33     name  => 'schlittermann.de',

    34     mname => 'pu.schlittermann.de'

    35   } => 'www.schlittermann.de';

    36 

    37 is_deeply { get_auth_info('no-such-domain.de') },

    38   {

    39     name  => 'de',

    40     mname => 'f.nic.de',

    41   } => 'no-such-domain.de';

    42 

    43 is_deeply { get_auth_info('212.80.235.130') },

    44   {

    45     name  => '128-191.235.80.212.in-addr.arpa',

    46     mname => 'pu.schlittermann.de'

    47   } => '212.80.235.130';

    48 

    49 is_deeply { get_auth_info('212.80.235.135') },

    50   {

    51     name  => '128-191.235.80.212.in-addr.arpa',

    52     mname => 'pu.schlittermann.de'

    53   } => '212.80.235.135';

    54 

    55 is_deeply { get_auth_info('2001:470:72aa:8::12') },

    56   {

    57     name  => 'a.a.2.7.0.7.4.0.1.0.0.2.ip6.arpa',

    58     mname => 'pu.schlittermann.de'

    59   } => '2001:470:72aa:8::12';

    60 

    61 done_testing;