Another patch to fix another failing test on Win32. (Attached is also the vhost test files that I was using that had this problem. I think they're the most recent ones posted by Stas.)
Here's what the problem was (again!):
C:\Temp\modperl-2.0>perl t/TEST vhost/basic.t -verbose
C:\apache2\bin\Apache.EXE -d C:/Temp/modperl-2.0/t -f
C:/Temp/modperl-2.0/t/conf
/httpd.conf -DAPACHE2 -DPERL_USEITHREADS
using Apache/2.0.48 (winnt MPM)
waiting 180 seconds for server to start: ..[Thu Jan 22 14:19:12 2004]
[info] 27
Apache:: modules loaded
[Thu Jan 22 14:19:12 2004] [info] 5 APR:: modules loaded
[Thu Jan 22 14:19:12 2004] [info] base server + 15 vhosts ready to run tests
...........................................
waiting 180 seconds for server to start: ok (waited 44 secs)
server localhost:8529 started
server localhost:8530 listening (TestModperl::perl_options)
server localhost:8531 listening (TestVhost::basic)
server localhost:8532 listening (TestProtocol::echo)
server localhost:8533 listening (TestProtocol::echo_filter)
server localhost:8534 listening (TestProtocol::eliza)
server localhost:8535 listening (TestPreConnection::note)
server localhost:8536 listening (TestHooks::stacked_handlers2)
server localhost:8537 listening (TestHooks::startup)
server localhost:8538 listening (TestFilter::both_str_con_add)
server localhost:8539 listening (TestFilter::in_bbs_inject_header)
server localhost:8540 listening (TestFilter::in_bbs_msg)
server localhost:8541 listening (TestFilter::in_str_msg)
server localhost:8542 listening (TestDirective::perlmodule)
server localhost:8543 listening (TestDirective::perlrequire)
server localhost:8544 listening (TestPerl::ithreads)
server localhost:8545 listening (TestDirective::perlloadmodule3)
server localhost:8546 listening (TestDirective::perlloadmodule4)
server localhost:8547 listening (TestDirective::perlloadmodule5)
server localhost:8548 listening (TestDirective::perlloadmodule6)
vhost/basic....Name "main::documentroot" used only once: possible typo
at vhost/
basic.t line 26.
# connecting to localhost:8531
1..1
# Running under perl version 5.008003 for MSWin32
# Current time local: Thu Jan 22 14:19:49 2004
# Current time GMT: Thu Jan 22 14:19:49 2004
# Using Test.pm version 1.24
# testing : DocumentRoot
# expected: C:/Temp/modperl-2.0/t/htdocs/vhost
# received: C:\Temp\modperl-2.0\t\htdocs\vhost
not ok 1
FAILED test 1
Failed 1/1 tests, 0.00% okay
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
vhost/basic.t 1 1 100.00% 1
*** server localhost:8529 shutdown
!!! error running tests (please examine t\logs\error_log)
------------------------------------------------
Radan Computational Ltd.
The information contained in this message and any files transmitted with it are
confidential and intended for the addressee(s) only. If you have received this
message in error or there are any problems, please notify the sender immediately. The
unauthorized use, disclosure, copying or alteration of this message is strictly
forbidden. Note that any views or opinions presented in this email are solely those
of the author and do not necessarily represent those of Radan Computational Ltd. The
recipient(s) of this message should check it and any attached files for viruses: Radan
Computational will accept no liability for any damage caused by any virus transmitted
by this email.
--- t\response\TestVhost\basic.pm.orig 2004-01-22 08:55:44.673932800 +0000
+++ t\response\TestVhost\basic.pm 2004-01-22 14:21:32.790240000 +0000
@@ -15,7 +15,7 @@
use Apache::RequestUtil ();
use APR::Table ();
-use File::Spec::Functions qw(catdir);
+use File::Spec::Functions qw(canonpath catdir);
use Apache::Const -compile => 'OK';
@@ -27,7 +27,7 @@
{
my $expected = $r->document_root;
my $received = $r->dir_config->get('DocumentRootCheck');
- ok t_cmp($expected, $received, "DocumentRoot");
+ ok t_cmp(canonpath($expected), canonpath($received), "DocumentRoot");
}
Apache::OK;
vhost.tar.gz
Description: GNU Zip compressed data
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
