From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

BRTASTIC / Kelp-2.20 / t / exceptions.t 

            

              
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

              
use Kelp::Base -strict;
use Kelp;
use Kelp::Test;
use HTTP::Request::Common;
use Kelp::Exception;
use Test::More;
use lib 't/lib';
use StringifyingException;
my $app = Kelp->new(mode => 'test');
my $t = Kelp::Test->new(app => $app);
my $ex = StringifyingException->new(data => [qw(ab cd)]);
$app->add_route("/0", sub { die 'died' });
$t->request(GET "/0")
    ->code_is(500)
    ->content_like(qr/died/)
    ->content_type_is('text/html');
$app->add_route("/1", sub { Kelp::Exception->throw(400) });
$app->add_route("/2", sub { Kelp::Exception->throw(403, body => 'body text') });
$app->add_route("/2alt", sub { Kelp::Exception->throw(404, body => 'body text') });
$app->add_route("/5", sub { shift->res->json; Kelp::Exception->throw(500, body => $ex) });
$app->add_route("/5alt", sub { shift->res->json; Kelp::Exception->throw(501, body => $ex) });
$app->add_route("/6", sub { Kelp::Exception->throw(300) });
# these errors should be the same regardless of mode
subtest 'testing development' => sub {
    $app->mode('development');
    $t->request(GET "/1")
        ->code_is(400)
        ->content_is('400 - Bad Request')
        ->content_type_is('text/plain');
    $t->request(GET "/2")
        ->code_is(403)
        ->content_is('403 - Forbidden')
        ->content_type_is('text/plain');
    $t->request(GET "/2alt")
        ->code_is(404)
        ->content_like(qr/Four Oh Four/)
        ->content_type_is('text/html');
    $t->request(GET "/5")
        ->code_is(500)
        ->content_like(qr/\Q$ex\E/)
        ->content_type_is('text/html');
    $t->request(GET "/5alt")
        ->code_is(501)
        ->content_like(qr/501 - Not Implemented/)
        ->content_type_is('text/plain');
    $t->request(GET "/6")
        ->code_is(500)
        ->content_like(qr/5XX/)
        ->content_type_is('text/html');
};
subtest 'testing deployment' => sub {
    $app->mode('deployment');
    $t->request(GET "/1")
        ->code_is(400)
        ->content_is('400 - Bad Request')
        ->content_type_is('text/plain');
    $t->request(GET "/2")
        ->code_is(403)
        ->content_is('403 - Forbidden')
        ->content_type_is('text/plain');
    $t->request(GET "/2alt")
        ->code_is(404)
        ->content_like(qr/Four Oh Four/)
        ->content_type_is('text/html');
    $t->request(GET "/5")
        ->code_is(500)
        ->content_unlike(qr/Exception/)
        ->content_type_is('text/html');
    $t->request(GET "/5alt")
        ->code_is(501)
        ->content_is('501 - Not Implemented')
        ->content_type_is('text/plain');
    $t->request(GET "/6")
        ->code_is(500)
        ->content_like(qr/Five Hundred/)
        ->content_type_is('text/html');
};
subtest 'should be able to rethrow an exception' => sub {
    my $ex = Kelp::Exception->new(501);
    my $caught = do {
        local $@;
        eval { $ex->throw };
        $@;
    };
    is $ex, $caught, 'caught object ok';
};
done_testing;