Add ARM files

[dh-make-perl] / dev / arm / libwww-perl / libwww-perl-5.813 / t / local / autoload-get.t

diff --git a/dev/arm/libwww-perl/libwww-perl-5.813/t/local/autoload-get.t b/dev/arm/libwww-perl/libwww-perl-5.813/t/local/autoload-get.t
new file mode 100644 (file)
index 0000000..5e9f2e6
--- /dev/null
+++ b/dev/arm/libwww-perl/libwww-perl-5.813/t/local/autoload-get.t
@@ -0,0 +1,26 @@
+#
+# See if autoloading of protocol schemes work
+#
+
+print "1..1\n";
+
+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 $response = $ua->get($url);
+if ($response->is_success) {
+    print "ok 1\n";
+    print $response->as_string;
+}
+else {
+    print "not ok 1\n";
+    print $response->error_as_HTML;
+}