perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Randy Kobes <ra...@theoryx5.uwinnipeg.ca>
Subject [mp2] directive/setupenv.t test on Win32
Date Sat, 11 Dec 2004 06:37:53 GMT
On Win32, the last subtest of t/directive/setupenv.t tests
that $env{HOME} doesn't exist. However, as we've discussed
before in some other contexts, for some reason Win32 does
pass, in particular, the HOME environment variable, if it's
set. I have HOME set, and consequently, this last subtest
fails.

I'm not sure if this different behaviour is due to
mp2 or to Apache. In the meantime, would it be acceptable
to skip this subtest for Win32:
=======================================================
Index: t/directive/setupenv.t
===================================================================
--- t/directive/setupenv.t	(revision 111576)
+++ t/directive/setupenv.t	(working copy)
@@ -5,6 +5,8 @@
 use Apache::TestRequest;
 use Apache::TestUtil;

+use constant WIN32 => Apache::TestConfig::WIN32;
+
 plan tests => 3;

 my $location = '/TestDirective__setupenv';
@@ -23,4 +25,10 @@

 ok t_cmp $env{REQUEST_URI}, $location, "testing REQUEST_URI";

-ok not exists $env{HOME};
+if (WIN32) {
+    skip "different environment variable expectations on Win32", 0;
+}
+else {
+    ok not exists $env{HOME};
+}
+

=====================================================================
-- 
best regards,
randy


---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message