2_0_7/t/response/TestDirective/pod.pm

package TestDirective::pod;

use strict;
use warnings FATAL => 'all';

use Apache::Test;
use Apache::TestUtil;
use Apache2::Const -compile => 'OK';

sub handler {
    my $r = shift;

    plan $r, tests => 4;

    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__';

    Apache2::Const::OK;
}

1;