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"; | |
} |