perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestModperl dir_config.pm
Date Sun, 19 May 2002 07:53:27 GMT
stas        02/05/19 00:53:27

  Modified:    t/response/TestModperl dir_config.pm
  Log:
  test that sub-section overrides parent section for the same key
  
  Revision  Changes    Path
  1.4       +9 -2      modperl-2.0/t/response/TestModperl/dir_config.pm
  
  Index: dir_config.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/dir_config.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- dir_config.pm	11 Apr 2002 11:08:44 -0000	1.3
  +++ dir_config.pm	19 May 2002 07:53:27 -0000	1.4
  @@ -16,7 +16,7 @@
   sub handler {
       my $r = shift;
   
  -    plan $r, tests => 12;
  +    plan $r, tests => 13;
   
       #Apache::RequestRec::dir_config tests
   
  @@ -38,6 +38,13 @@
                    'testing PerlAddVar ITERATE2');
       }
   
  +    # sub-section overrides parent section for the same key
  +    {
  +        my $key = 'TestModperl__server_rec_Key_set_in_Base';
  +        ok t_cmp('SubSecValue', $r->dir_config->get($key),
  +                 "sub-section overrides parent section for the same key");
  +    }
  +
       {
           my $key = make_key('0');
   
  @@ -159,4 +166,4 @@
   PerlAddVar TestModperl__request_rec_Key1 2_AddValue
   PerlAddVar TestModperl__request_rec_Key1 3_AddValue 4_AddValue
   
  -PerlSetVar TestModperl__server_rec_Key_set_in_Base WhatEver
  +PerlSetVar TestModperl__server_rec_Key_set_in_Base SubSecValue
  
  
  

Mime
View raw message