blob: 9e5bb1f8f1bc26862a1c36420cdc3a901259fb35 (
plain)
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
|
#testing that the server can respond right after client connects,
#before client sends any request data
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestUtil;
use Apache::TestRequest;
my $tests = 5;
my $vars = Apache::Test::vars();
my @modules = qw(mod_nntp_like);
if (have_ssl && ! have_module('http2')) {
$tests *= 2;
unshift @modules, 'mod_nntp_like_ssl';
Apache::TestRequest::set_ca_cert();
}
plan tests => $tests, need('mod_nntp_like',
{ "deferred accept() prohibits testing with >=2.1.0 and OS $^O" =>
sub { !have_min_apache_version('2.1.0')
|| ($^O ne "linux" && $^O ne "darwin")} } );
for my $module (@modules) {
print "testing $module\n";
my $sock = Apache::TestRequest::vhost_socket($module);
ok $sock;
Apache::TestRequest::socket_trace($sock);
my $response = Apache::TestRequest::getline($sock);
$response =~ s/[\r\n]+$//;
ok t_cmp($response, '200 localhost - ready',
'welcome response');
for my $data ('LIST', 'GROUP dev.httpd.apache.org', 'ARTICLE 401') {
$sock->print("$data\n");
$response = Apache::TestRequest::getline($sock);
chomp($response) if (defined($response));
ok t_cmp($response, $data, 'echo');
}
}
|
