perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestAPI aplog.pm
Date Wed, 14 May 2003 06:44:15 GMT
stas        2003/05/13 23:44:15

  Modified:    t/response/TestAPI aplog.pm
  Log:
  exercise the Apache::LOG_STARTUP level (only the message is logged)
  
  Revision  Changes    Path
  1.11      +6 -1      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.10
  retrieving revision 1.11
  diff -u -r1.10 -r1.11
  --- aplog.pm	14 May 2003 06:21:16 -0000	1.10
  +++ aplog.pm	14 May 2003 06:44:15 -0000	1.11
  @@ -10,7 +10,7 @@
   use Apache::RequestRec ();
   
   use Apache::Const -compile => qw(OK :log);
  -use APR::Const -compile    => qw(:error SUCCESS);
  +use APR::Const    -compile => qw(:error SUCCESS);
   
   my @LogLevels = qw(emerg alert crit error warn notice info debug);
   my $package = __PACKAGE__;
  @@ -40,6 +40,11 @@
           ok sub { $rlog->can($method) };
           ok sub { $slog->can($method) };
       }
  +
  +    # this message shouldn't be logged (since it can be logged only
  +    # during the startup)
  +    $s->log_serror(Apache::LOG_MARK, Apache::LOG_INFO|Apache::LOG_STARTUP,
  +                   APR::SUCCESS, "This log message comes with no header");
   
       t_server_log_warn_is_expected();
       $s->log_serror(__FILE__, __LINE__, Apache::LOG_DEBUG,
  
  
  

Mime
View raw message