17 lines
345 B
Perl
17 lines
345 B
Perl
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";
|
|
}
|