dougm 01/11/19 15:47:24
Modified: t/response/TestAPI server_util.pm
Log:
add tests for Apache::server_root constant
Revision Changes Path
1.4 +10 -2 modperl-2.0/t/response/TestAPI/server_util.pm
Index: server_util.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/server_util.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- server_util.pm 2001/11/19 23:32:27 1.3
+++ server_util.pm 2001/11/19 23:47:24 1.4
@@ -14,7 +14,7 @@
my $s = $r->server;
- plan $r, tests => 7;
+ plan $r, tests => 9;
for my $p ($r->pool, $r->connection->pool,
$r, $r->connection, $r->server)
@@ -24,7 +24,15 @@
ok -d $dir;
}
- my $dir = Apache->server_root_relative('logs'); #1.x ish
+ my $dir = Apache::server_root; #constant
+
+ ok -d $dir;
+
+ $dir = join '/', Apache::server_root, 'logs';
+
+ ok $dir eq Apache::server_root_relative($r->pool, 'logs');
+
+ $dir = Apache->server_root_relative('logs'); #1.x ish
ok -d $dir;
