View | Details | Raw Unified | Return to bug 21334
Collapse All | Expand All

(-)a/t/db_dependent/Koha/REST/V1.t (-1 / +44 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
3
# This file is part of Koha.
4
#
5
# Koha is free software; you can redistribute it and/or modify it
6
# under the terms of the GNU General Public License as published by
7
# the Free Software Foundation; either version 3 of the License, or
8
# (at your option) any later version.
9
#
10
# Koha is distributed in the hope that it will be useful, but
11
# WITHOUT ANY WARRANTY; without even the implied warranty of
12
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13
# GNU General Public License for more details.
14
#
15
# You should have received a copy of the GNU General Public License
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
18
use Modern::Perl;
19
20
use Test::More tests => 1;
21
use Test::Mojo;
22
use Test::Warn;
23
24
use JSON::Validator::OpenAPI::Mojolicious;
25
26
subtest 'Type definition tests' => sub {
27
28
    plan tests => 4;
29
30
    # initialize Koha::REST::V1 after mocking
31
    my $remote_address = '127.0.0.1';
32
    my $t;
33
34
    $t = Test::Mojo->new('Koha::REST::V1');
35
    my $types = $t->app->types;
36
37
    is( $types->type('json'),
38
        'application/json; charset=utf8',
39
        'application/json gets charset added'
40
    );
41
    is( $types->type('marcxml'), 'application/marcxml+xml', 'application/marcxml+xml is defined' );
42
    is( $types->type('mij'),  'application/marc-in-json', 'application/marc-in-json is defined' );
43
    is( $types->type('marc'), 'application/marc',         'application/marc is defined' );
44
};

Return to bug 21334