repo.or.cz
/
libwww-perl-eserte.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Merge commit 'origin/master'
[libwww-perl-eserte.git]
/
t
/
live
/
jigsaw-neg-get.t
blob
eccd9d37ebf049c2d1bed26c5a6d6f34a50129ed
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";