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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
|
# NAME
Test::Fake::HTTPD - a fake HTTP server
# SYNOPSIS
DSL-style
use Test::Fake::HTTPD;
my $httpd = run_http_server {
my $req = shift;
# ...
# 1. HTTP::Response ok
return $http_response;
# 2. Plack::Response ok
return $plack_response;
# 3. PSGI response ok
return [ 200, [ 'Content-Type' => 'text/plain' ], [ 'Hello World' ] ];
};
printf "Listening on address:port %s\n", $httpd->host_port;
# or
printf "Listening on address %s port %s\n", $httpd->host, $httpd->port;
# access to fake HTTP server
use LWP::UserAgent;
my $res = LWP::UserAgent->new->get($httpd->endpoint); # "http://127.0.0.1:{port}"
# Stop http server automatically at destruction time.
OO-style
use Test::Fake::HTTPD;
my $httpd = Test::Fake::HTTPD->new(
timeout => 5,
daemon_args => { ... }, # HTTP::Daemon args
);
$httpd->run(sub {
my $req = shift;
# ...
[ 200, [ 'Content-Type', 'text/plain' ], [ 'Hello World' ] ];
});
# Stop http server automatically at destruction time.
# DESCRIPTION
Test::Fake::HTTPD is a fake HTTP server module for testing.
# FUNCTIONS
- `run_http_server { ... }`
Starts HTTP server and returns the guard instance.
my $httpd = run_http_server {
my $req = shift;
# ...
return $http_or_plack_or_psgi_res;
};
# can use $httpd guard object, same as OO-style
LWP::UserAgent->new->get($httpd->endpoint);
- `run_https_server { ... }`
Starts **HTTPS** server and returns the guard instance.
If you use this method, you MUST install [HTTP::Daemon::SSL](https://metacpan.org/pod/HTTP%3A%3ADaemon%3A%3ASSL).
extra_daemon_args
SSL_key_file => "certs/server-key.pem",
SSL_cert_file => "certs/server-cert.pem";
my $httpd = run_https_server {
my $req = shift;
# ...
return $http_or_plack_or_psgi_res;
};
# can use $httpd guard object, same as OO-style
my $ua = LWP::UserAgent->new(
ssl_opts => {
SSL_verify_mode => 0,
verify_hostname => 0,
},
);
$ua->get($httpd->endpoint);
# METHODS
- `new( %args )`
Returns a new instance.
my $httpd = Test::Fake::HTTPD->new(%args);
`%args` are:
- `timeout`
timeout value (default: 5)
- `listen`
queue size for listen (default: 5)
- `host`
local address to listen on (default: 127.0.0.1)
- `port`
TCP port to listen on (default: auto detection)
my $httpd = Test::Fake::HTTPD->new(
timeout => 10,
listen => 10,
port => 3333,
);
- `run( sub { ... } )`
Starts this HTTP server.
$httpd->run(sub { ... });
- `scheme`
Returns a scheme of running, "http" or "https".
my $scheme = $httpd->scheme;
- `host`
Returns the address the server is listening on.
- `port`
Returns the TCP port the server is listening on.
my $port = $httpd->port;
- `host_port`
Returns the host:port from `endpoint` (e.g., "127.0.0.1:1234", "\[::1\]:1234").
my $host_port = $httpd->host_port;
- `endpoint`
Returns a URI object to the running server (e.g., "http://127.0.0.1:1234",
"https://\[::1\]:1234"). If `host` returns `undef`, `''`, `'0.0.0.0'`,
or `'::'`, the host portion of the URI is set to `localhost`.
use LWP::UserAgent;
my $res = LWP::UserAgent->new->get($httpd->endpoint);
my $url = $httpd->endpoint;
$url->path('/foo/bar');
my $res = LWP::UserAgent->new->get($url);
# AUTHOR
NAKAGAWA Masaki <masaki@cpan.org>
# THANKS TO
xaicron
# LICENSE
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
# SEE ALSO
[Test::TCP](https://metacpan.org/pod/Test%3A%3ATCP), [HTTP::Daemon](https://metacpan.org/pod/HTTP%3A%3ADaemon), [HTTP::Daemon::SSL](https://metacpan.org/pod/HTTP%3A%3ADaemon%3A%3ASSL), [HTTP::Message::PSGI](https://metacpan.org/pod/HTTP%3A%3AMessage%3A%3APSGI)
|
