1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
use Dancer ':tests', ':syntax';
use Dancer::Test;
use Test::More;
my @methods = qw(get head put post delete options);
plan tests => @methods * 3;
get '/' => sub { 'get' };
post '/' => sub { 'post' };
put '/' => sub { 'put' };
del '/' => sub { 'delete' };
options '/' => sub { 'options' };
foreach my $m (@methods) {
route_exists [ $m => '/' ], "route handler found for method $m";
response_status_is [ $m => '/' ] => 200, "response status is 200 for $m";
my $content = $m;
$content = '' if $m eq 'head';
response_content_like [ $m => '/' ] => qr/$content/,
"response content is OK for $m";
}
|
