debian/perl-framework/t/apache/options.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

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

use Apache::Test;
use Apache::TestUtil;
use Apache::TestRequest;

my @urls = qw(/);

plan tests => @urls * 2, \&need_lwp;

for my $url (@urls) {
    my $res = OPTIONS $url;
    ok t_cmp $res->code, 200, "code";
    my $allow = $res->header('Allow') || '';
    ok t_cmp $allow, qr/OPTIONS/, "OPTIONS";
}