From 1221c736f9a90756d47ea6d28320b6b83602dd2a Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Tue, 7 May 2024 04:04:07 +0200 Subject: Adding debian version 2.4.38-3+deb10u8. Signed-off-by: Daniel Baumann --- debian/perl-framework/t/apache/loglevel.t | 43 +++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 debian/perl-framework/t/apache/loglevel.t (limited to 'debian/perl-framework/t/apache/loglevel.t') diff --git a/debian/perl-framework/t/apache/loglevel.t b/debian/perl-framework/t/apache/loglevel.t new file mode 100644 index 0000000..cb542d1 --- /dev/null +++ b/debian/perl-framework/t/apache/loglevel.t @@ -0,0 +1,43 @@ +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil qw/t_start_error_log_watch t_finish_error_log_watch/; + +plan tests => 8, need_min_apache_version('2.3.6'); + +my $base = "/apache/loglevel"; + +t_start_error_log_watch(); + +my @error_expected =qw{ + core_info + info + crit/core_info + info/core_crit/info +}; +my @error_not_expected =qw{ + core_crit + crit + info/core_crit + crit/core_info/crit +}; + +my $dir; +foreach $dir (@error_expected) { + GET "$base/$dir/not_found_error_expected"; +} +foreach $dir (@error_not_expected) { + GET "$base/$dir/not_found_error_NOT_expected"; +} + +my @loglines = t_finish_error_log_watch(); +my $log = join("\n", @loglines); + +foreach $dir (@error_expected) { + ok($log =~ m{does not exist.*?$base/$dir/not_found_error_expected}); +} +foreach $dir (@error_not_expected) { + ok($log !~ m{does not exist.*?$base/$dir/not_found_error_NOT_expected}); +} -- cgit v1.2.3