perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/t/hooks/TestHooks headerparser.pm
Date Fri, 28 Sep 2001 15:21:15 GMT
dougm       01/09/28 08:21:15

  Modified:    t/hooks  .cvsignore
  Added:       t/hooks/TestHooks headerparser.pm
  Log:
  add PerlHeaderParserHandler/SetupEnv test
  
  Revision  Changes    Path
  1.2       +1 -0      modperl-2.0/t/hooks/.cvsignore
  
  Index: .cvsignore
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/hooks/.cvsignore,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- .cvsignore	2001/09/12 17:11:48	1.1
  +++ .cvsignore	2001/09/28 15:21:15	1.2
  @@ -1,3 +1,4 @@
  +headerparser.t
   access.t
   authen.t
   authz.t
  
  
  
  1.1                  modperl-2.0/t/hooks/TestHooks/headerparser.pm
  
  Index: headerparser.pm
  ===================================================================
  package TestHooks::headerparser;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  
  sub handler {
      my $r = shift;
  
      $r->notes->set(url => $ENV{REQUEST_URI});
  
      Apache::OK;
  }
  
  sub response {
      my $r = shift;
  
      plan $r, tests => 1;
  
      ok $r->notes->get('url') eq $r->uri;
  
      Apache::OK;
  }
  
  1;
  __DATA__
  PerlOptions +SetupEnv
  PerlResponseHandler TestHooks::headerparser::response
  SetHandler modperl
  
  
  

Mime
View raw message