use strict;
use warnings;
use Test::More;
use HTTP::Request;
use LWP::UserAgent;
use URI;
plan tests => 4;
#
# See if autoloading of protocol schemes work
#
# note no LWP::Protocol::file;
my $url = "file:.";
is(URI->new($url)->file, '.', 'URI of file:. is .');
my $ua = LWP::UserAgent->new; # create a useragent to test
$ua->timeout(30);
is($ua->timeout(), 30, 'timeout: set to 30 seconds');
my $request = HTTP::Request->new(GET => $url);
my $response = $ua->request($request);
isa_ok($response, 'HTTP::Response', 'Got a proper response');
ok( $response->is_success(), 'Response was successful' );
unless($response->is_success()) {
diag $response->error_as_HTML;
}