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
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Web::Request;
my $req = Web::Request->new_from_env({
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, 'Web::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;
|