­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ 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; }