You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2002/05/19 09:53:27 UTC
cvs commit: modperl-2.0/t/response/TestModperl dir_config.pm
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