libwww-perl-6.13HEADlibwww-perl-6.13master

1 files changed, 22 insertions, 0 deletions

diff --git a/t/local/autoload.t b/t/local/autoload.t
new file mode 100644
index 0000000..0f77db0
--- /dev/null
+++ b/t/local/autoload.t
@@ -0,0 +1,22 @@
+#
+# See if autoloading of protocol schemes work
+#
+
+use Test;
+plan tests => 1;
+
+require LWP::UserAgent;
+# note no LWP::Protocol::file;
+
+$url = "file:.";
+
+require URI;
+print "Trying to fetch '" . URI->new($url)->file . "'\n";
+
+my $ua = new LWP::UserAgent;    # create a useragent to test
+$ua->timeout(30);               # timeout in seconds
+
+my $request = HTTP::Request->new(GET => $url);
+
+my $response = $ua->request($request);
+ok($response->is_success);