t/08-fqdn-to-ipaddr.t

   1 #!perl -T
   2 use Test2::V0;
   3 use Net::DNS::Resolver::Mock;
   4 use Net::DNS::RR;
   5 use Data::Dumper;
   6
   7 plan 5;
   8 use Net::DNS::DomainController::Discovery qw(fqdn_to_ipaddr);
   9
  10 like( dies {
  11                 fqdn_to_ipaddr();
  12         }, qr/Need Net::DNS::RR record/, "Got exception"
  13 );
  14 like( dies {
  15                 fqdn_to_ipaddr(new Net::DNS::RR('test. cname dupa.'));
  16         }, qr/Need Net::DNS::RR::A /, "CNAME is not A"
  17 );
  18 like( dies {
  19                 fqdn_to_ipaddr(new Net::DNS::RR('test in srv 10 100 389 dupa.fabrikam.com.'));
  20         }, qr/Need Net::DNS::RR::A /, "SRV is not A"
  21 );
  22 is(fqdn_to_ipaddr(new Net::DNS::RR('test in a 127.0.0.1')), '127.0.0.1');
  23 is(fqdn_to_ipaddr(new Net::DNS::RR('test in aaaa ::1')), '0:0:0:0:0:0:0:1');