cvs commit: modperl-2.0/t/response/TestModperl sameinterp.pm interp.pm

[stas]

stas        01/10/19 20:44:26

  Added:       t/modperl sameinterp.t
               t/response/TestModperl sameinterp.pm
  Removed:     t/modperl interp.t
               t/response/TestModperl interp.pm
  Log:
  - rename test s/interp/sameinterp/
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/modperl/sameinterp.t
  
  Index: sameinterp.t
  ===================================================================
  use strict;
  use warnings FATAL => 'all';
  
  # run tests through the same interpreter, even if the server is
  # running more than one
  
  use Apache::Test;
  use Apache::TestUtil;
  use Apache::TestRequest;
  
  plan tests => 12, \&have_lwp;
  
  my $url = "/TestModperl::sameinterp";
  
  # test the tie and re-tie
  for (1..2) {
      my $same_interp = Apache::TestRequest::same_interp_tie($url);
      ok $same_interp;
  
      my $value = 1;
      # test GET over the same same_interp
      for (1..2) {
          $value++;
          my $res = Apache::TestRequest::same_interp_do($same_interp, \&GET,
                                                        $url, foo => 'bar');
          ok t_cmp(
              $value,
              defined $res && $res->content,
              "GET over the same interp");
      }
  }
  
  {
      # test POST over the same same_interp
      my $same_interp = Apache::TestRequest::same_interp_tie($url);
      ok $same_interp;
  
      my $value = 1;
      for (1..2) {
          $value++;
          my $res = Apache::TestRequest::same_interp_do($same_interp, \&POST,
                                                        $url, [ok => $_+3],
                                                        content => "foo");
          ok t_cmp(
              $value,
              defined $res && $res->content,
              "POST over the same interp");
      }
  }
  
  {
      # test HEAD over the same same_interp
      my $same_interp = Apache::TestRequest::same_interp_tie($url);
      ok $same_interp;
  
      my $value = 1;
      for (1..2) {
          $value++;
          my $res = Apache::TestRequest::same_interp_do($same_interp, \&HEAD,
                                                        $url);
          ok t_cmp(
              $same_interp,
              defined $res && $res->header(Apache::TestRequest::INTERP_KEY),
              "HEAD over the same interp");
      }
  }
  
  
  
  1.1                  modperl-2.0/t/response/TestModperl/sameinterp.pm
  
  Index: sameinterp.pm
  ===================================================================
  package TestModperl::sameinterp;
  
  use warnings FATAL => 'all';
  use strict;
  
  use Apache::Const -compile => qw(OK);
  
  my $value = '';
  
  sub handler {
      my $r = shift;
  
      # test the actual global data
      $value = Apache::TestHandler::same_interp_counter();
      $r->puts($value);
  
      Apache::OK;
  }
  
  1;
  __END__
  PerlFixupHandler Apache::TestHandler::same_interp_fixup