summaryrefslogtreecommitdiffstats
path: root/debian/perl-framework/t/modules/env.t
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--debian/perl-framework/t/modules/env.t40
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;
+ };
+}