#use Test::More tests => 1;
use Test::More qw(no_plan) ;
BEGIN { use_ok('Local::Network::Reconfig') };
use_ok('LWP::UserAgent') ;
 
# HTTP tests
 
my @urls = qw(
              http://www.x.it/
              http://www.y.com/
              http://web.z.it/abcd/
 
              http://report.alpha.com
              https://report.alpha.com
              http://beta.gamma.com
              https://beta.gamma.com
             ) ;
 
my $ua = LWP::UserAgent->new ;
 
ok(defined($ua),"LWP::UserAgent ready") ;
 
$ua->timeout(10) ;
$ua->protocols_allowed( [ 'http', 'https'] );
 
foreach my $url (@urls) {
  my $response = $ua->get($url) ;
  ok($response->is_success,"GET $url") ;
}
 
my @authenticated_services = qw(
                                http://authenticated.site.com
                               ) ;
 
foreach my $url (@authenticated_services) {
  my $response = $ua->get($url) ;
  is($response->status_line,'401 Access Denied',
     "Access to $url is authenticated") ;
}
 
 
# DNS tests
 
use_ok('Net::DNS') ;
my @nameservers = qw(1.2.3.4 5.6.7.8) ;
my @queries     = qw(test.me.com
                     test.me.too.it
                     10.20.30.40
                     50.60.70.80) ;
 
foreach my $server (@nameservers) {
  my $resolver = Net::DNS::Resolver->new(
                                         nameservers => [$server],
                                         recurse     => 0,
                                        ) ;
  ok(defined($resolver),"Resolver object for $server") ;
 
  foreach my $host (@queries) {
    ok(defined($resolver->query($host)),"Query to $server for $host") ;
  }
}