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
|
use strict;
use warnings;
use Test::More tests => 6, import => ['!pass'];
use Dancer ':syntax';
use Dancer::Test;
my $i = 0;
set show_errors => 1;
ok(get('/:id', sub { "whatever " . params->{id} }), 'installed basic route handler');
route_exists [GET => '/:id'];
response_status_is [GET => "/$i"] => 200,
'before not installed yet, response status is 200 looks good for GET /0';
response_content_is [GET => "/$i"], "whatever $i";
hook before => sub {
++$i;
request->path_info("/$i");
};
response_status_is [GET => "/$i"] => 500, "Right request status";
response_content_like [GET => "/$i"] => qr{infinite loop}, "infinite loop detected";
|
