1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use File::Temp ();
use File::Temp qw/ :seekable /;
use Hijk;
my $fh = File::Temp->new();
my $fd = do {
local $/ = undef;
my $msg = join(
"\x0d\x0a",
'HTTP/1.1 200 OK',
'Date: Sat, 23 Nov 2013 23:10:28 GMT',
'Last-Modified: Sat, 26 Oct 2013 19:41:47 GMT',
'ETag: "4b9d0211dd8a2819866bccff777af225"',
'Content-Type: text/html',
'Server: Example',
'Content-Length: 4',
'',
'OHAI'
);
print $fh $msg;
$fh->flush;
$fh->seek(0, 0);
fileno($fh);
};
my (undef, $proto, $status, $head, $body) = Hijk::_read_http_message($fd, 10240, 0, 0, 1);
is $proto, "HTTP/1.1";
is $status, 200;
is $body, "OHAI";
is_deeply $head, [
"Date" => "Sat, 23 Nov 2013 23:10:28 GMT",
"Last-Modified" => "Sat, 26 Oct 2013 19:41:47 GMT",
"ETag" => '"4b9d0211dd8a2819866bccff777af225"',
"Content-Type" => "text/html",
"Server" => "Example",
"Content-Length" => "4",
];
done_testing;
|