1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
use strict;
use Test::More;
use Net::HTTP::Spore::Request;
my $req = Net::HTTP::Spore::Request->new(
{
REQUEST_METHOD => 'GET',
SERVER_PROTOCOL => 'HTTP/1.1',
SERVER_PORT => 80,
SERVER_NAME => 'example.com',
SCRIPT_NAME => '/foo',
REMOTE_ADDR => '127.0.0.1',
'spore.scheme' => 'http',
}
);
isa_ok( $req, 'Net::HTTP::Spore::Request' );
is( $req->method, 'GET', 'method' );
is( $req->uri, 'http://example.com/foo', 'uri' );
is( $req->port, 80, 'port' );
is( $req->scheme, 'http', 'url_scheme' );
done_testing();
|