Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

28 lines (23 sloc) 0.715 kB
use strict;
use Test::More;
use Plack::Request;
my $req = Plack::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',
'psgi.version' => [ 1, 0 ],
'psgi.input' => undef,
'psgi.errors' => undef,
'psgi.url_scheme' => 'http',
});
isa_ok($req, 'Plack::Request');
is($req->address, '127.0.0.1', 'address');
is($req->method, 'GET', 'method');
is($req->protocol, 'HTTP/1.1', 'protocol');
is($req->uri, 'http://example.com/foo', 'uri');
is($req->port, 80, 'port');
is($req->scheme, 'http', 'url_scheme');
done_testing();
Jump to Line
Something went wrong with that request. Please try again.