cvs commit: modperl-2.0/t/response/TestAPI server_util.pm

[dougm]

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;