diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-08 19:09:23 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-08 19:09:23 +0000 |
commit | 1b631c75a166e0258aad972d74af929b7968ea66 (patch) | |
tree | b5735fd08977a7f74bb1753a6952caeeb1fb73f6 /debian/perl-framework/t/protocol/echo.t | |
parent | Adding upstream version 2.4.58. (diff) | |
download | apache2-1b631c75a166e0258aad972d74af929b7968ea66.tar.xz apache2-1b631c75a166e0258aad972d74af929b7968ea66.zip |
Adding debian version 2.4.58-1.debian/2.4.58-1
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'debian/perl-framework/t/protocol/echo.t')
-rw-r--r-- | debian/perl-framework/t/protocol/echo.t | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/debian/perl-framework/t/protocol/echo.t b/debian/perl-framework/t/protocol/echo.t new file mode 100644 index 0000000..b225866 --- /dev/null +++ b/debian/perl-framework/t/protocol/echo.t @@ -0,0 +1,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'); + } +} |