cvs commit: httpd-test/perl-framework/t/protocol echo.t

[do...@apache.org]

dougm       01/11/16 12:08:10

  Added:       perl-framework/t/protocol echo.t
  Log:
  add a test for mod_echo and mod_echo over ssl
  
  Revision  Changes    Path
  1.1                  httpd-test/perl-framework/t/protocol/echo.t
  
  Index: echo.t
  ===================================================================
  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 (Apache::Test::have_ssl()) {
      $tests *= 2;
      unshift @modules, 'mod_echo_ssl';
  }
  
  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($data, $response, 'echo');
      }
  }