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 Tue, 17 Sep 2002 02:37:44 GMT
dougm       2002/09/16 19:37:44

  Added:       t/response/TestDirective pod.pm
  Log:
  Submitted by:	Philippe M. Chiasson <gozer@cpan.org>
  Reviewed by:	dougm
  test for pod directives
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/response/TestDirective/pod.pm
  
  Index: pod.pm
  ===================================================================
  package TestDirective::pod;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use Apache::TestUtil;
  use Apache::Const -compile => 'OK';
  
  sub handler {
      my $r = shift;
  
      plan $r, tests => 3;
  
      ok t_cmp('yes', $r->dir_config->get('TestDirective__pod_over_worked'));
      ok t_cmp('yes', $r->dir_config->get('TestDirective__pod_cut_worked'));
  
      #XXX: How to test that __END__ works proprely without cloberring all the other tests?
      ok t_cmp('__END__', '__END__');
  
      Apache::OK;
  }
  
  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