X-Git-Url: http://git.maemo.org/git/?a=blobdiff_plain;ds=sidebyside;f=dev%2Farm%2Flibwww-perl%2Flibwww-perl-5.813%2Ft%2Flive%2Fjigsaw-te.t;fp=dev%2Farm%2Flibwww-perl%2Flibwww-perl-5.813%2Ft%2Flive%2Fjigsaw-te.t;h=c46850d09fd35de8af833f37568c53c3c6ffd90e;hb=f477fa73365d491991707e7ed9217b48d6994551;hp=0000000000000000000000000000000000000000;hpb=da95c414033799c3a62606f299c3c00b5c77ca11;p=dh-make-perl

diff --git a/dev/arm/libwww-perl/libwww-perl-5.813/t/live/jigsaw-te.t b/dev/arm/libwww-perl/libwww-perl-5.813/t/live/jigsaw-te.t
new file mode 100644
index 0000000..c46850d
--- /dev/null
+++ b/dev/arm/libwww-perl/libwww-perl-5.813/t/live/jigsaw-te.t
@@ -0,0 +1,48 @@
+#!perl -w
+
+my $zlib_ok;
+for (("", "live/", "t/live/")) {
+    if (-f $_ . "ZLIB_OK") {
+	$zlib_ok++;
+	last;
+    }
+}
+
+unless ($zlib_ok) {
+    print "1..0\n";
+    print "Apparently no working ZLIB installed\n";
+    exit;
+}
+
+
+print "1..4\n";
+
+use strict;
+use LWP::UserAgent;
+
+my $ua = LWP::UserAgent->new(keep_alive => 1);
+
+
+my $content;
+my $testno = 1;
+
+for my $te (undef, "", "deflate", "gzip", "trailers, deflate;q=0.4, identity;q=0.1") {
+    my $req = HTTP::Request->new(GET => "http://jigsaw.w3.org/HTTP/TE/foo.txt");
+    if (defined $te) {
+	$req->header(TE => $te);
+	$req->header(Connection => "TE");
+    }
+    print $req->as_string;
+
+    my $res = $ua->request($req);
+    if (defined $content) {
+	print "not " unless $content eq $res->content;
+	print "ok $testno\n\n";
+	$testno++;
+    }
+    else {
+	$content = $res->content;
+    }
+    $res->content("");
+    print $res->as_string;
+}