1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
use Test::More import => ['!pass'];
use Dancer::HTTP;
my @tests = (
{status => 'ok', expected => 200 },
{status => '200', expected => 200 },
{status => 'created', expected => 201 },
{status => '201', expected => 201 },
{status => 'accepted', expected => 202 },
{status => '202', expected => 202 },
{status => 'no_content', expected => 204 },
{status => '204', expected => 204 },
{status => 'reset_content', expected => 205 },
{status => '205', expected => 205 },
{status => '302', expected => 302 },
{status => 'bad_request', expected => 400 },
{status => '400', expected => 400 },
{status => 'forbidden', expected => 403 },
{status => 'not_found', expected => 404 },
{status => 'Not Found', expected => 404 },
{status => '404', expected => 404 },
{status => 'internal_server_error', expected => 500 },
# additional aliases
{status => 'error', expected => 500 },
);
plan tests => scalar(@tests);
foreach my $test (@tests) {
is(Dancer::HTTP->status($test->{status}),
$test->{expected},
"status header looks good for ".$test->{status});
}
|
