svn commit: r1825841 - in /httpd/test/framework/trunk/t/ab: ./ base.t

[dr...@apache.org]

Author: druggeri
Date: Mon Mar  5 01:55:21 2018
New Revision: 1825841

URL: http://svn.apache.org/viewvc?rev=1825841&view=rev
Log:
Add some very basic ab tests

Added:
    httpd/test/framework/trunk/t/ab/
    httpd/test/framework/trunk/t/ab/base.t

Added: httpd/test/framework/trunk/t/ab/base.t
URL: http://svn.apache.org/viewvc/httpd/test/framework/trunk/t/ab/base.t?rev=1825841&view=auto
==============================================================================
--- httpd/test/framework/trunk/t/ab/base.t (added)
+++ httpd/test/framework/trunk/t/ab/base.t Mon Mar  5 01:55:21 2018
@@ -0,0 +1,38 @@
+use strict;
+use warnings FATAL => 'all';
+
+use Apache::Test;
+use Apache::TestConfig;
+use IPC::Open3;
+
+plan tests => 5;
+
+sub run_and_gather_output {
+    my $command = shift;
+    my ($cin, $cout, $cerr) = (0, 0, 0);
+    my $pid = open3($cin, $cout, $cerr, $command);
+    waitpid( $pid, 0 );
+    my $status = $? >> 8;
+    my @cstdout = <$cout>;
+    my @cstderr = <$cerr>;
+    return { status => $status, stdout => \@cstdout, stderr => \@cstderr };
+}
+
+my $http_url = Apache::TestRequest::module2url("core", {scheme => 'http', path => '/'});
+my $https_url = Apache::TestRequest::module2url("mod_ssl", {scheme => 'https', path => '/'});
+
+my $cfg = Apache::TestConfig->new(());
+my $ab_path = "$cfg->{httpd_basedir}" . "/bin/ab";
+
+
+my $http_results = run_and_gather_output("$ab_path -q -n 10 $http_url");
+ok ($http_results->{status} == 0);
+ok (scalar(@{$http_results->{stderr}}) == 0);
+
+
+my $https_results = run_and_gather_output("$ab_path -q -n 10 $https_url");
+ok ($https_results->{status} == 0);
+ok (scalar(@{$https_results->{stderr}}) == 0);
+
+#XXX: For some reason, stderr is getting pushed into stdout. This test will at least catch known SSL failures
+ok (scalar(grep(/SSL.*(fail|err)/i, @{$https_results->{stdout}}) == 0) );