The attached patch fixes these errors on Win32:
C:\Temp\modperl-2.0>perl t/TEST api/server_util.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 13:20:22 2004]
[info] 27
Apache:: modules loaded
[Thu Jan 22 13:20:22 2004] [info] 5 APR:: modules loaded
[Thu Jan 22 13:20:22 2004] [info] base server + 15 vhosts ready to run tests
..........................................
waiting 180 seconds for server to start: ok (waited 43 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)
api/server_util....1..24
# Running under perl version 5.008003 for MSWin32
# Current time local: Thu Jan 22 13:20:58 2004
# Current time GMT: Thu Jan 22 13:20:58 2004
# Using Test.pm version 1.24
# Apache::Server::server_root_relative() died
# $@: Usage: Apache::Server::server_root_relative(p, fname="") at
C:\Temp\modper
l-2.0\t\response/TestAPI/server_util.pm line 59.
ok 1
# Apache->server_root_relative() died
ok 2
# Apache->server_root_relative('conf') died
ok 3
# testing : Apache::Server::server_root_relative(APR::Pool->new, 'conf')
# expected: C:\Temp\modperl-2.0\t\conf
# received: C:/Temp/modperl-2.0/t/conf
not ok 4
# testing : Apache::Server::server_root_relative($r->connection->pool,
'conf')
# expected: C:\Temp\modperl-2.0\t\conf
# received: C:/Temp/modperl-2.0/t/conf
not ok 5
# testing :
Apache::Server::server_root_relative(Apache->server->process->pconf,
'conf')
# expected: C:\Temp\modperl-2.0\t\conf
# received: C:/Temp/modperl-2.0/t/conf
not ok 6
# testing :
Apache::Server::server_root_relative($r->server->process->pconf, 'co
nf')
# expected: C:\Temp\modperl-2.0\t\conf
# received: C:/Temp/modperl-2.0/t/conf
not ok 7
# testing :
Apache::Server::server_root_relative($r->server->process->pool, 'con
f')
# expected: C:\Temp\modperl-2.0\t\conf
# received: C:/Temp/modperl-2.0/t/conf
not ok 8
# testing : Apache::Server::server_root_relative($r->pool, 'conf')
# expected: C:\Temp\modperl-2.0\t\conf
# received: C:/Temp/modperl-2.0/t/conf
not ok 9
# testing : __PACKAGE__->new($r)->server_root_relative('conf')
# expected: C:\Temp\modperl-2.0\t\conf
# received: C:/Temp/modperl-2.0/t/conf
not ok 10
# testing : $r->server_root_relative('conf')
# expected: C:\Temp\modperl-2.0\t\conf
# received: C:/Temp/modperl-2.0/t/conf
not ok 11
# testing : $r->server->server_root_relative('conf')
# expected: C:\Temp\modperl-2.0\t\conf
# received: C:/Temp/modperl-2.0/t/conf
not ok 12
# testing : $r->connection->server_root_relative('conf')
# expected: C:\Temp\modperl-2.0\t\conf
# received: C:/Temp/modperl-2.0/t/conf
not ok 13
# testing : Apache::Server::server_root_relative($obj, 'conf')
# expected: (?-xism:server_root_relative.*no .* key)
# received: method `server_root_relative' invoked by a `Apache::Foo'
object with
no `r' key! at C:\Temp\modperl-2.0\t\response/TestAPI/server_util.pm
line 90.
ok 14
# testing : $r->server_root_relative()
# expected: C:\Temp\modperl-2.0\t
# received: C:\Temp\modperl-2.0\t
ok 15
# testing : Apache::Server::server_root_relative($r->pool)
# expected: C:\Temp\modperl-2.0\t
# received: C:\Temp\modperl-2.0\t
ok 16
# testing : Apache::Server::server_root
# expected: C:\Temp\modperl-2.0\t
# received: C:\Temp\modperl-2.0\t
ok 17
# testing : $r->server_root_relative(C:/Temp/modperl-2.0/t/logs)
# expected: C:/Temp/modperl-2.0/t/logs
# received: C:/Temp/modperl-2.0/t/logs
ok 18
# registering method FOO
ok 19
# Apache::Server::exists_config_define
ok 20
ok 21
# testing : Apache::Server::get_status_line(200)
# expected: 200 OK
# received: 200 OK
ok 22
# testing : Apache::Server::get_status_line(500)
# expected: 500 Internal Server Error
# received: 500 Internal Server Error
ok 23
# testing : Apache::Server::get_status_line(400)
# expected: 400 Bad Request
# received: 400 Bad Request
ok 24
FAILED tests 4-13
Failed 10/24 tests, 58.33% okay
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
api/server_util.t 24 10 41.67% 4-13
*** 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\TestAPI\server_util.pm.orig 2004-01-21 08:39:14.000000000 +0000
+++ t\response\TestAPI\server_util.pm 2004-01-22 13:25:36.680712700 +0000
@@ -72,7 +72,8 @@
foreach my $p (keys %pools) {
ok t_cmp(catfile($serverroot, 'conf'),
- Apache::Server::server_root_relative($pools{$p}, 'conf'),
+ canonpath(Apache::Server::server_root_relative($pools{$p},
+ 'conf')),
"Apache::Server::server_root_relative($p, 'conf')");
}
@@ -80,7 +81,7 @@
foreach my $obj (keys %objects) {
ok t_cmp(catfile($serverroot, 'conf'),
- $objects{$obj}->server_root_relative('conf'),
+ canonpath($objects{$obj}->server_root_relative('conf')),
"$obj->server_root_relative('conf')");
}
@@ -90,7 +91,7 @@
eval { Apache::Server::server_root_relative($obj, 'conf') };
ok t_cmp(qr/server_root_relative.*no .* key/,
- $@,
+ canonpath($@),
"Apache::Server::server_root_relative(\$obj, 'conf')");
}
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
