Stas Bekman wrote:
Steve Hay wrote:
As I reported recently, compat/send_fd.t and directive/setupenv.t both currently (2.0.49 / 5.8.4 / 1.99_14) fail in the test suite on Win32, but work when tried in isolation.
After a little trial & error, I've found that running apr/pool.t before them make them fail, i.e.
perl t/TEST compat/send_fd
perl t/TEST directive/setupenv
Actually, please just try the current cvs. I've committed some adjustments for the apr test
Just grabbed the current cvs; it makes no difference to the above results,
Could you try the the binary search technique, trying to cut off sub-tests until you get one to blame? In such cases I use Apache::Reload:
PerlModule Apache::Reload PerlInitHandler Apache::Reload PerlSetVar ReloadAll Off PerlSetVar ReloadModules "TestAPR::*"
# adjust above the pattern
and then I start the server:
t/TEST -start
and then modify and run the tests with:
t/TEST -run -v ...
so the process is much faster, no need to wait for the server startup.
and I now have two other tests (apr/util and modperl/exit) failing too (on their own, that is, not just after apr/pool).
What do you mean 'now', there weren't failing yesterday and started to fail now?
The common things for some of these tests is that they use methods that throw exceptions. But it could be something else.
apr/util is not one of them, and it uses a very simple XS wrapper. Though this is what I've added recently:
my $clear = "pass1";
my $hash = "1fWDc9QWYCWrQ";
ok APR::Util::password_validate($clear, $hash);it's quite possible that this doesn't work on windows. It really does crypt. Try replacing hardcoded hash of the password with crypt:
Index: t/response/TestAPR/util.pm =================================================================== RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/util.pm,v retrieving revision 1.8 diff -u -r1.8 util.pm --- t/response/TestAPR/util.pm 22 May 2004 21:47:32 -0000 1.8 +++ t/response/TestAPR/util.pm 25 May 2004 08:16:52 -0000 @@ -23,7 +23,7 @@ ok ! APR::Util::password_validate("one", "two");
my $clear = "pass1";
- my $hash = "1fWDc9QWYCWrQ";
+ my $hash = crypt $clear, 'FE';
ok APR::Util::password_validate($clear, $hash);Apache::OK;
Does this make any difference?
Also how does modperl/exit fail?
-- __________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
