Add ARM files

[dh-make-perl] / dev / arm / libwww-perl / libwww-perl-5.813 / t / live / apache.t

diff --git a/dev/arm/libwww-perl/libwww-perl-5.813/t/live/apache.t b/dev/arm/libwww-perl/libwww-perl-5.813/t/live/apache.t
new file mode 100644 (file)
index 0000000..a2e50d2
--- /dev/null
+++ b/dev/arm/libwww-perl/libwww-perl-5.813/t/live/apache.t
@@ -0,0 +1,50 @@
+print "1..1\n";
+
+use strict;
+use Net::HTTP;
+
+
+my $s = Net::HTTP->new(Host => "www.apache.org",
+                      KeepAlive => 1,
+                      Timeout => 15,
+                      PeerHTTPVersion => "1.1",
+                      MaxLineLength => 512) || die "$@";
+
+for (1..1) {
+    $s->write_request(TRACE => "/libwww-perl",
+                     'User-Agent' => 'Mozilla/5.0',
+                     'Accept-Language' => 'no,en',
+                     Accept => '*/*');
+
+    my($code, $mess, %h) = $s->read_response_headers;
+    print "# $code $mess\n";
+    for (sort keys %h) {
+       print "# $_: $h{$_}\n";
+    }
+    print "\n";
+
+    my $err;
+    $err++ unless $code eq "200";
+    $err++ unless $h{'Content-Type'} eq "message/http";
+
+    my $buf;
+    while (1) {
+        my $tmp;
+       my $n = $s->read_entity_body($tmp, 20);
+       last unless $n;
+       $buf .= $tmp;
+    }
+    $buf =~ s/\r//g;
+
+    $err++ unless $buf eq "TRACE /libwww-perl HTTP/1.1
+Host: www.apache.org
+User-Agent: Mozilla/5.0
+Accept-Language: no,en
+Accept: */*
+
+";
+
+    print "not " if $err;
+    print "ok $_\n";
+}
+