svn commit: r111931 - /perl/modperl/trunk/t/conf/extra.last.conf.in /perl/modperl/trunk/t/response/TestDirective/pod.pm

[stas]

Author: stas
Date: Tue Dec 14 20:01:07 2004
New Revision: 111931

URL: http://svn.apache.org/viewcvs?view=rev&rev=111931
Log:
extend the =pod in config test, to test that the code in =pod is not seen 
by Apache (even though it'd have been an error with just a string, but 
better do a real check, in case Apache somehow have ignored the error)

Modified:
   perl/modperl/trunk/t/conf/extra.last.conf.in
   perl/modperl/trunk/t/response/TestDirective/pod.pm

Modified: perl/modperl/trunk/t/conf/extra.last.conf.in
Url: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/conf/extra.last.conf.in?view=diff&rev=111931&p1=perl/modperl/trunk/t/conf/extra.last.conf.in&r1=111930&p2=perl/modperl/trunk/t/conf/extra.last.conf.in&r2=111931
==============================================================================
--- perl/modperl/trunk/t/conf/extra.last.conf.in        (original)
+++ perl/modperl/trunk/t/conf/extra.last.conf.in        Tue Dec 14 20:01:07 2004
@@ -61,10 +61,19 @@
 
 ### --------------------------------- ###
 =pod
-This is some pod data
+
+The following line is not seen by Apache
+
+PerlSetVar TestDirective__pod_hidden whatever
+
 =over apache
+
 PerlSetVar TestDirective__pod_over_worked yes
+
 =back
+
 This is some more pod
+
 =cut
+
 PerlSetVar TestDirective__pod_cut_worked yes

Modified: perl/modperl/trunk/t/response/TestDirective/pod.pm
Url: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestDirective/pod.pm?view=diff&rev=111931&p1=perl/modperl/trunk/t/response/TestDirective/pod.pm&r1=111930&p2=perl/modperl/trunk/t/response/TestDirective/pod.pm&r2=111931
==============================================================================
--- perl/modperl/trunk/t/response/TestDirective/pod.pm  (original)
+++ perl/modperl/trunk/t/response/TestDirective/pod.pm  Tue Dec 14 20:01:07 2004
@@ -10,13 +10,14 @@
 sub handler {
     my $r = shift;
 
-    plan $r, tests => 3;
+    plan $r, tests => 4;
 
-    ok t_cmp($r->dir_config->get('TestDirective__pod_over_worked'), 'yes');
-    ok t_cmp($r->dir_config->get('TestDirective__pod_cut_worked'), 'yes');
+    ok t_cmp $r->dir_config->get('TestDirective__pod_hidden'),      undef;
+    ok t_cmp $r->dir_config->get('TestDirective__pod_over_worked'), 'yes';
+    ok t_cmp $r->dir_config->get('TestDirective__pod_cut_worked'),  'yes';
 
     #XXX: How to test that __END__ works proprely without cloberring all the 
other tests?
-    ok t_cmp('__END__', '__END__');
+    ok t_cmp '__END__', '__END__';
 
     Apache::OK;
 }