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
|
use strict;
use warnings;
use HTTP::Request::Common;
use t::Req2PSGI;
use Test::More;
use Apache::LogFormat::Compiler;
{
my $log_handler = Apache::LogFormat::Compiler->new(q!%{%S}t %{x-res-test}o %{x-req-test}i!);
ok($log_handler);
my $log = $log_handler->log_line(
t::Req2PSGI::req_to_psgi(GET "/", 'X-Req-Test'=>'foo'),
[200,['X-Res-Test'=>'bar'],[q!OK!]],
2,
1_000_000
);
like $log, qr!^\[\d{2}\] bar foo$!;
}
{
my $log_handler = Apache::LogFormat::Compiler->new(q!%{Content-Length}i %{Content-Type}i %{Content-Type}o %{Content-Length}o!);
ok($log_handler);
my $log = $log_handler->log_line(
t::Req2PSGI::req_to_psgi(POST "/", ["bar", "baz"]),
[200,['Content-Type' => 'text/plain', 'Content-Length', 2 ],[q!OK!]],
2,
1_000_000
);
is $log, q!7 application/x-www-form-urlencoded text/plain 2!."\n";
}
done_testing();
|
