perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestDirective pod.pm
Date Fri, 27 Sep 2002 19:33:33 GMT
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 <gozer@cpan.org>]
   
   =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
  
  
  

Mime
View raw message