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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
use strict;
use warnings;
use Test::More import => ['!pass'];
use Dancer ':syntax';
use Dancer::Test;
BEGIN { use_ok('Dancer::Exception', ':all'); }
set views => path( 't', '25_exceptions', 'views' );
{
# halt in route
my $v = 0;
get '/halt_in_route' => sub {
halt ({ error => 'plop' });
$v = 1;
};
response_content_like( [ GET => '/halt_in_route' ], qr|Unable to process your query| );
response_status_is( [ GET => '/halt_in_route' ], 500 => "We get a 500 status" );
is ($v, 0, 'halt broke the workflow as intended');
}
{
# halt in hook
my $flag = 0;
my $v = 0;
hook before_template_render => sub {
if ( 0 || ! $flag++ ) {
status 500;
halt ({ error => 'plop2' });
$v = 1;
}
};
get '/halt_in_hook' => sub {
template 'index';
};
response_content_like( [ GET => '/halt_in_hook' ], qr|Unable to process your query| );
is ($v, 0, 'halt broke the workflow as intended');
$flag = 0;
response_status_is( [ GET => '/halt_in_hook' ], 500 => "We get a 500 status" );
}
set error_template => "error.tt";
{
# die in route
get '/die_in_route' => sub {
die "die in route";
};
response_content_like( [ GET => '/die_in_route' ], qr|MESSAGE: <h2>runtime error</h2><pre class="error">die in route| );
response_content_like( [ GET => '/die_in_route' ], qr|EXCEPTION: die in route| );
response_status_is( [ GET => '/die_in_route' ], 500 => "We get a 500 status" );
}
register_exception ('Test',
message_pattern => "test - %s",
);
{
my $route_hook_executed = 0;
my $handler_hook_executed = 0;
# raise in route
get '/raise_in_route' => sub {
raise Test => 'plop';
};
hook on_route_exception => sub {
my ($exception) = @_;
$exception->isa('Dancer::Exception::Test');
$route_hook_executed++;
};
hook on_handler_exception => sub {
my ($exception) = @_;
$exception->isa('Dancer::Exception::Test');
$handler_hook_executed++;
};
response_content_like( [ GET => '/raise_in_route' ], qr|MESSAGE: <h2>runtime error</h2>| );
my $e = "test - plop";
response_content_like( [ GET => '/raise_in_route' ], qr|EXCEPTION: $e| );
response_status_is( [ GET => '/raise_in_route' ], 500 => "We get a 500 status" );
is($route_hook_executed, 3,"exception route hook has been called");
is($handler_hook_executed, 3,"exception handler hook has been called");
}
{
# die in hook
my $flag = 0;
hook after_template_render => sub {
$flag++
or die "die in hook";
};
get '/die_in_hook' => sub {
template 'index', { foo => 'baz' };
};
$flag = 0;
response_content_like( [ GET => '/die_in_hook' ], qr|MESSAGE: <h2>runtime error</h2>| );
$flag = 0;
response_content_like( [ GET => '/die_in_hook' ], qr|EXCEPTION: die in hook| );
$flag = 0;
response_status_is( [ GET => '/die_in_hook' ], 500 => "We get a 500 status" );
}
register_exception ('Generic',
message_pattern => "test message : %s",
);
{
# raise in hook
my $flag = 0;
hook before_template_render => sub {
$flag++
or raise Generic => 'foo';
};
get '/raise_in_hook' => sub {
template 'index', { foo => 'baz' };
};
route_exists [ GET => '/raise_in_hook' ];
$flag = 0;
response_content_like( [ GET => '/raise_in_hook' ], qr|MESSAGE: <h2>runtime error</h2>| );
$flag = 0;
response_content_like( [ GET => '/raise_in_hook' ], qr|EXCEPTION: test message : foo| );
$flag = 0;
response_status_is( [ GET => '/raise_in_hook' ], 500 => "We get a 500 status" );
}
done_testing();
|
