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

2001-10-10 Thread stas 

stas01/10/09 19:55:15

  Modified:t/response/TestAPI server_rec.pm
  Log:
  - tests for Apache->server
  
  Revision  ChangesPath
  1.5   +20 -1 modperl-2.0/t/response/TestAPI/server_rec.pm
  
  Index: server_rec.pm
  ===
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/server_rec.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- server_rec.pm 2001/09/28 20:11:02 1.4
  +++ server_rec.pm 2001/10/10 02:55:15 1.5
  @@ -14,7 +14,7 @@
   
   my $s = $r->server;
   
  -plan $r, tests => 19;
  +plan $r, tests => 21;
   
   ok $s;
   
  @@ -82,7 +82,26 @@
"testing PerlAddVar ITERATE2 in $s",
   )
   }
  +
  +{
  +# base server test
  +my $bs = Apache->server;
  +ok t_cmp(
  +   'Apache::Server',
  +   ($bs && ref($bs)),
  +   "base server's object retrieval"
  +  );
  +
  +my $key = 'TestAPI__server_rec_Key_set_in_Base';
  +ok t_cmp(
  +   '1_SetValue',
  +   scalar ($bs->dir_config->get($key)),
  +   "read dir_config of the base server"
  +  );
  +}
  +
   Apache::OK;
  +
   }
   
   1;

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

2001-08-16 Thread dougm 

dougm   01/08/16 20:51:37

  Modified:t/response/TestAPI server_rec.pm
  Log:
  fix api/server_rec when running under t/TEST -ssl
  
  Revision  ChangesPath
  1.3   +1 -1  modperl-2.0/t/response/TestAPI/server_rec.pm
  
  Index: server_rec.pm
  ===
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/server_rec.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- server_rec.pm 2001/04/03 16:59:09 1.2
  +++ server_rec.pm 2001/08/17 03:51:37 1.3
  @@ -24,7 +24,7 @@
   
   ok $s->port || 1;
   
  -ok $s->error_fname;
  +ok $s->error_fname || 1; #vhost might not have its own (t/TEST -ssl)
   
   #error_log;