Return-Path: Delivered-To: apmail-modperl-cvs-archive@apache.org Received: (qmail 47982 invoked by uid 500); 17 Sep 2002 02:37:46 -0000 Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@apache.org Received: (qmail 47971 invoked by uid 500); 17 Sep 2002 02:37:46 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org Date: 17 Sep 2002 02:37:44 -0000 Message-ID: <20020917023744.60745.qmail@icarus.apache.org> From: dougm@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/t/response/TestDirective pod.pm X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N dougm 2002/09/16 19:37:44 Added: t/response/TestDirective pod.pm Log: Submitted by: Philippe M. Chiasson 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