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

[stas]

stas        2004/07/03 16:09:49

  Modified:    t/response/TestAPI lookup_uri2.pm
  Log:
  another $r->is_initial_req() test
  
  Revision  Changes    Path
  1.4       +3 -0      modperl-2.0/t/response/TestAPI/lookup_uri2.pm
  
  Index: lookup_uri2.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/lookup_uri2.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -u -r1.3 -r1.4
  --- lookup_uri2.pm    27 Apr 2003 04:19:18 -0000      1.3
  +++ lookup_uri2.pm    3 Jul 2004 23:09:49 -0000       1.4
  @@ -5,6 +5,7 @@
   
   use Apache::SubRequest ();
   use Apache::RequestIO ();
  +use Apache::RequestUtil ();
   
   use Apache::Const -compile => 'OK';
   
  @@ -12,6 +13,8 @@
       my $r = shift;
   
       $r->puts("1..3\nok 1\n");
  +
  +    die "must indicate a sub-request" if $r->is_initial_req();
   
       Apache::OK;
   }