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

[dougm]

dougm       01/11/12 14:39:04

  Modified:    t/api    .cvsignore
  Added:       t/response/TestAPI server_util.pm
  Log:
  add test for Apache::server_root_relative
  
  Revision  Changes    Path
  1.2       +1 -0      modperl-2.0/t/api/.cvsignore
  
  Index: .cvsignore
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/api/.cvsignore,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- .cvsignore        2001/09/12 17:11:47     1.1
  +++ .cvsignore        2001/11/12 22:39:03     1.2
  @@ -10,4 +10,5 @@
   send_fd.t
   sendfile.t
   server_rec.t
  +server_util.t
   uri.t
  
  
  
  1.1                  modperl-2.0/t/response/TestAPI/server_util.pm
  
  Index: server_util.pm
  ===================================================================
  package TestAPI::server_util;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use Apache::TestUtil;
  use Apache::ServerUtil ();
  
  use Apache::Const -compile => 'OK';
  
  sub handler {
      my $r = shift;
  
      my $s = $r->server;
  
      plan $r, tests => 2;
  
      my $t_dir = Apache::server_root_relative('conf', $r->pool);
  
      ok -d $t_dir;
  
      $t_dir = Apache::server_root_relative('logs');
  
      ok -d $t_dir;
  
      Apache::OK;
  }
  
  1;
  
  __END__