dougm 2002/09/27 12:33:33
Modified: . Changes
lib/ModPerl TestRun.pm
t/response/TestDirective pod.pm
Log:
Submitted by: gozer
Reviewed by: dougm
fix =pod directive test config problem
Revision Changes Path
1.48 +4 -1 modperl-2.0/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl-2.0/Changes,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -r1.47 -r1.48
--- Changes 27 Sep 2002 15:18:37 -0000 1.47
+++ Changes 27 Sep 2002 19:33:32 -0000 1.48
@@ -8,7 +8,10 @@
=over 3
-=item 1.99_97-dev
+=item 1.99_07 - September 25, 2002
+
+fix =pod directive test config problem
+[Philippe M. Chiasson <[EMAIL PROTECTED]>]
=item 1.99_06 - September 25, 2002
1.4 +13 -0 modperl-2.0/lib/ModPerl/TestRun.pm
Index: TestRun.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/ModPerl/TestRun.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- TestRun.pm 27 Aug 2002 04:31:55 -0000 1.3
+++ TestRun.pm 27 Sep 2002 19:33:32 -0000 1.4
@@ -47,6 +47,19 @@
MyOtherTest value
</Location>
EOF
+
+ #XXX: this should only be done for the modperl-2.0 tests
+ $self->postamble(<<'EOF');
+=pod
+This is some pod data
+=over apache
+PerlSetVar TestDirective__pod_over_worked yes
+=back
+This is some more pod
+=cut
+PerlSetVar TestDirective__pod_cut_worked yes
+EOF
+
}
1;
1.2 +0 -13 modperl-2.0/t/response/TestDirective/pod.pm
Index: pod.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestDirective/pod.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- pod.pm 17 Sep 2002 02:37:44 -0000 1.1
+++ pod.pm 27 Sep 2002 19:33:32 -0000 1.2
@@ -22,16 +22,3 @@
}
1;
-__END__
-=pod
-This is some pod data
-
-=over apache
-PerlSetVar TestDirective__pod_over_worked yes
-=back
-
-This is some more pod
-
-=cut
-
-PerlSetVar TestDirective__pod_cut_worked yes
