Adding debian version 2.4.38-3+deb10u8.debian/2.4.38-3+deb10u8

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 40 insertions, 0 deletions

diff --git a/debian/perl-framework/t/modules/env.t b/debian/perl-framework/t/modules/env.t
new file mode 100644
index 0000000..c1de003
--- /dev/null
+++ b/debian/perl-framework/t/modules/env.t
@@ -0,0 +1,40 @@
+use strict;
+use warnings FATAL => 'all';
+
+use Apache::Test;
+use Apache::TestRequest;
+
+##
+## mod_env tests
+##
+
+my %test = (
+    'host' => $ENV{APACHE_TEST_HOSTNAME},
+    'set' => "mod_env test environment variable",
+    'setempty' => '',
+    'unset' => '(none)',
+    'type' => '(none)',
+    'nothere' => '(none)'
+);
+
+if (Apache::TestConfig::WIN32) {
+    #what looks like a bug in perl 5.6.1 prevents %ENV
+    #settings to be inherited by process created with
+    #Win32::Process::Create.  the test works fine if APACHE_TEST_HOSTNAME
+    #is set in the command shell environment
+    delete $test{'host'};
+}
+
+plan tests => (keys %test) * 1, need_module('env', 'include');
+
+my ($actual, $expected);
+foreach (sort keys %test) {
+    $expected = $test{$_};
+    sok {
+        $actual = GET_BODY "/modules/env/$_.shtml";
+        $actual =~ s/[\r\n]+$//s;
+        print "# $_: /modules/env/$_.shtml\n",
+              "# $_: EXPECT ->$expected<- ACTUAL ->$actual<-\n";
+        return $actual eq $expected;
+    };
+}