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
|
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestUtil;
use Apache::TestRequest ();
my @test_strings = (
$0,
$^X,
$$ x 5,
);
my $tests = 1 + @test_strings;
my $vars = Apache::Test::vars();
my @modules = qw(mod_echo);
if (have_ssl) {
$tests *= 2;
unshift @modules, 'mod_echo_ssl';
Apache::TestRequest::set_ca_cert();
}
plan tests => $tests, ['mod_echo'];
for my $module (@modules) {
print "testing $module\n";
my $sock = Apache::TestRequest::vhost_socket($module);
ok $sock;
Apache::TestRequest::socket_trace($sock);
for my $data (@test_strings) {
$sock->print("$data\n");
chomp(my $response = Apache::TestRequest::getline($sock));
ok t_cmp($response, $data, 'echo');
}
}
|
