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

[dougm]

dougm       01/11/19 15:32:27

  Modified:    t/response/TestAPI server_util.pm
  Log:
  update Apache::server_root_relative tests
  
  Revision  Changes    Path
  1.3       +10 -5     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.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- server_util.pm    2001/11/12 22:42:28     1.2
  +++ server_util.pm    2001/11/19 23:32:27     1.3
  @@ -14,17 +14,22 @@
   
       my $s = $r->server;
   
  -    plan $r, tests => 3;
  +    plan $r, tests => 7;
   
  -    my $dir = Apache::server_root_relative('conf', $r->pool);
  +    for my $p ($r->pool, $r->connection->pool,
  +               $r, $r->connection, $r->server)
  +    {
  +        my $dir = Apache::server_root_relative($p, 'conf');
   
  -    ok -d $dir;
  +        ok -d $dir;
  +    }
   
  -    $dir = Apache::server_root_relative('logs');
  +    my $dir = Apache->server_root_relative('logs'); #1.x ish
   
       ok -d $dir;
   
  -    $dir = Apache::server_root_relative();
  +    #$r->server_root_relative works with use Apache::compat
  +    $dir = Apache->server_root_relative(); #1.x ish
   
       ok -d $dir;