cvs commit: modperl-2.0/t/response/TestAPI lookup_uri2.pm

[dougm]

dougm       01/12/04 14:44:29

  Modified:    t/api    .cvsignore
  Added:       t/response/TestAPI lookup_uri2.pm
  Log:
  add another lookup_uri test that mixes subrequest output with main request output
  
  Revision  Changes    Path
  1.3       +1 -0      modperl-2.0/t/api/.cvsignore
  
  Index: .cvsignore
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/api/.cvsignore,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- .cvsignore        2001/11/12 22:39:03     1.2
  +++ .cvsignore        2001/12/04 22:44:29     1.3
  @@ -2,6 +2,7 @@
   aplog.t
   conn_rec.t
   lookup_uri.t
  +lookup_uri2.t
   module.t
   request_rec.t
   response.t
  
  
  
  1.1                  modperl-2.0/t/response/TestAPI/lookup_uri2.pm
  
  Index: lookup_uri2.pm
  ===================================================================
  package TestAPI::lookup_uri2;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::SubRequest ();
  
  sub myplan {
      my $r = shift;
  
      $r->puts("1..3\nok 1\n");
  
      Apache::OK;
  }
  
  sub ok3 {
      my $r = shift;
  
      $r->puts("ok 3\n");
  
      Apache::OK;
  }
  
  sub subrequest {
      my($r, $sub) = @_;
      $r->lookup_uri(join '::', __PACKAGE__, $sub)->run;
  }
  
  sub handler {
      my $r = shift;
  
      subrequest($r, 'myplan');
  
      $r->puts("ok 2\n");
  
      subrequest($r, 'ok3');
  
      Apache::OK;
  }
  
  1;
  __DATA__
  <Location /TestAPI::lookup_uri2::myplan>
      SetHandler modperl
      PerlResponseHandler TestAPI::lookup_uri2::myplan
  </Location>
  
  <Location /TestAPI::lookup_uri2::ok3>
      SetHandler modperl
      PerlResponseHandler TestAPI::lookup_uri2::ok3
  </Location>