projects
/
dh-make-perl
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add ARM files
[dh-make-perl]
/
dev
/
arm
/
libwww-perl
/
libwww-perl-5.813
/
t
/
live
/
jigsaw-neg-get.t
1
print "1..1\n";
2
3
use strict;
4
use LWP::UserAgent;
5
6
my $ua = LWP::UserAgent->new(keep_alive => 1);
7
8
my $res = $ua->get(
9
"http://jigsaw.w3.org/HTTP/neg",
10
Connection => "close",
11
);
12
13
print $res->as_string, "\n";
14
15
print "not " unless $res->code == 300;
16
print "ok 1\n";