BRTASTIC / Whelk-1.04 / t / lib / Whelk / Resource / Error.pm 

            

              
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

              
package Whelk::Resource::Error;
use Kelp::Base 'Whelk::Resource';
use Whelk::Schema;
use Whelk::Exception;
sub api
{
        my ($self) = @_;
        Whelk::Schema->build(
                test_response => {
                        type => 'object',
                        properties => {
                                opt_num => {
                                        type => 'number',
                                        required => !!0,
                                },
                                req_str => {
                                        type => 'string',
                                },
                                opt_bool => {
                                        type => 'boolean',
                                        required => !!0,
                                },
                        },
                }
        );
        $self->add_endpoint(
                [GET => '/wrong_type'] => sub {
                        return [11];
                },
                response => \'test_response',
        );
        $self->add_endpoint(
                [GET => '/no_string'] => sub {
                        return {
                                opt_num => 5,
                        };
                },
                response => \'test_response',
        );
        $self->add_endpoint(
                [GET => '/not_a_number'] => sub {
                        return {
                                req_str => 42,
                                opt_num => 'this got mixed up',
                        };
                },
                response => \'test_response',
        );
        $self->add_endpoint(
                [GET => '/not_a_bool'] => sub {
                        return {
                                req_str => 42,
                                opt_bool => 'for sure not boolean',
                        };
                },
                response => \'test_response',
        );
        $self->add_endpoint(
                [GET => '/error_object'] => sub {
                        Whelk::Exception->throw(
                                403,
                                body => {
                                        msg => 'wrong password',
                                }
                        );
                },
        );
        $self->add_endpoint(
                [GET => '/invalid_planned_error'] => sub {
                        my ($self) = @_;
                        $self->res->code(505);
                        return {
                                reason => 'not supported'
                        };
                },
        );
}
1;