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