debian/perl-framework/t/protocol/echo.t


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');
    }
}