cvs commit: modperl-2.0/t/response/TestApache compat2.pm

[stas]

stas        2002/06/04 06:04:47

  Modified:    t/response/TestAPI aplog.pm
               t/response/TestApache compat2.pm
  Log:
  add tests for 2 warn() aliases
  
  Revision  Changes    Path
  1.8       +3 -0      modperl-2.0/t/response/TestAPI/aplog.pm
  
  Index: aplog.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/aplog.pm,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- aplog.pm  11 Apr 2002 11:08:43 -0000      1.7
  +++ aplog.pm  4 Jun 2002 13:04:47 -0000       1.8
  @@ -62,6 +62,9 @@
       $s->loglevel(Apache::LOG_DEBUG);
       $slog->debug(sub { ok 1; "$package test done" });
   
  +    Apache->warn("Apache->warn test ok");
  +    $s->warn('$s->warn test ok');
  +
       Apache::OK;
   }
   
  
  
  
  1.18      +1 -1      modperl-2.0/t/response/TestApache/compat2.pm
  
  Index: compat2.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestApache/compat2.pm,v
  retrieving revision 1.17
  retrieving revision 1.18
  diff -u -r1.17 -r1.18
  --- compat2.pm        4 Jun 2002 12:40:53 -0000       1.17
  +++ compat2.pm        4 Jun 2002 13:04:47 -0000       1.18
  @@ -247,7 +247,7 @@
   
       $r->post_connection(sub { OK });
   
  -    Apache::log_error("testing Apache::log_error");
  +    Apache::log_error("Apache::log_error test ok");
       ok 1;
   
       OK;