stas        01/10/09 19:55:15

  Modified:    t/response/TestAPI server_rec.pm
  Log:
  - tests for Apache->server
  
  Revision  Changes    Path
  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;
  
  
  


Reply via email to