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;