stas 02/05/19 01:55:55
Modified: t/response/TestModperl dir_config.pm
Log:
test that a sub-section inherits from super-section if it doesn't override
it
Revision Changes Path
1.5 +12 -4 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.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- dir_config.pm 19 May 2002 07:53:27 -0000 1.4
+++ dir_config.pm 19 May 2002 08:55:54 -0000 1.5
@@ -16,7 +16,7 @@
sub handler {
my $r = shift;
- plan $r, tests => 13;
+ plan $r, tests => 14;
#Apache::RequestRec::dir_config tests
@@ -35,14 +35,22 @@
my @expected = qw(1_SetValue 2_AddValue 3_AddValue 4_AddValue);
ok t_cmp(\@expected, \@received,
- 'testing PerlAddVar ITERATE2');
+ 'PerlAddVar ITERATE2');
}
- # sub-section overrides parent section for the same key
+ # sub-section inherits from super-section if it doesn't override it
+ {
+ my $key = 'TestModperl__request_rec_Key_set_in_Base';
+ ok t_cmp('BaseValue', $r->dir_config->get($key),
+ "sub-section inherits from super-section if" .
+ "it doesn't override it");
+ }
+
+ # sub-section overrides super-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");
+ "sub-section overrides super-section for the same key");
}
{
