You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2003/05/14 08:21:16 UTC
cvs commit: modperl-2.0/t/response/TestAPI aplog.pm
stas 2003/05/13 23:21:16
Modified: t/response/TestAPI aplog.pm
Log:
use more variations of logging calls, prepend the "don't panic" before the
error logs, so users won't report these as errors
Revision Changes Path
1.10 +12 -5 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.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- aplog.pm 14 Aug 2002 14:54:47 -0000 1.9
+++ aplog.pm 14 May 2003 06:21:16 -0000 1.10
@@ -4,12 +4,13 @@
use warnings FATAL => 'all';
use Apache::Test;
+use Apache::TestUtil;
use Apache::Log ();
use Apache::RequestRec ();
use Apache::Const -compile => qw(OK :log);
-use APR::Const -compile => ':error';
+use APR::Const -compile => qw(:error SUCCESS);
my @LogLevels = qw(emerg alert crit error warn notice info debug);
my $package = __PACKAGE__;
@@ -40,16 +41,22 @@
ok sub { $slog->can($method) };
}
- $s->log_serror(Apache::LOG_MARK, Apache::LOG_DEBUG, 0,
- "log_serror test ok");
+ t_server_log_warn_is_expected();
+ $s->log_serror(__FILE__, __LINE__, Apache::LOG_DEBUG,
+ APR::SUCCESS, "log_serror test ok");
+ t_server_log_warn_is_expected();
$s->log_serror(Apache::LOG_MARK, Apache::LOG_DEBUG,
- APR::ENOTIME, "log_serror test 2 ok");
+ APR::EGENERAL, "log_serror test 2 ok");
- $r->log_rerror(Apache::LOG_MARK, Apache::LOG_DEBUG,
+ t_server_log_error_is_expected();
+ $r->log_rerror(Apache::LOG_MARK, Apache::LOG_CRIT,
APR::ENOTIME, "log_rerror test ok");
+ t_server_log_error_is_expected();
$r->log_error('$r->log_error test ok');
+
+ t_server_log_error_is_expected();
$s->log_error('$s->log_error test ok');
$s->loglevel(Apache::LOG_INFO);