BRTASTIC / Whelk-1.04 / t / request_header.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

              
use Kelp::Base -strict;
use Kelp::Test;
use Test::More;
use Test::Deep;
use HTTP::Request::Common;
use Whelk;
use JSON::PP;
use lib 't/lib';
my $app = Whelk->new(mode => 'requests');
my $t = Kelp::Test->new(app => $app);
################################################################################
# This test checks request headers validation built into Whelk.
################################################################################
$t->request(GET '/header')
        ->code_is(422)
        ->json_cmp({error => re(qr{Header parameters .+->required})});
$t->request(GET '/header', 'X-test1' => 25)
        ->code_is(422)
        ->json_cmp({error => re(qr{Header parameters .+\[X-Test2\]->required})});
$t->request(GET '/header', 'X-test1' => 25.5, 'X-test2' => 0)
        ->code_is(422)
        ->json_cmp({error => re(qr{Header parameters .+\[X-Test1\]->integer})});
$t->request(GET '/header', 'X-test1' => 25, 'X-test2' => 0)
        ->code_is(200)
        ->json_cmp(JSON::PP::false);
$t->request(GET '/header', 'X-test1' => 24, 'X-test2' => 1)
        ->code_is(200)
        ->json_cmp(JSON::PP::false);
$t->request(GET '/header', 'X-test1' => 25, 'X-test2' => 1)
        ->code_is(200)
        ->json_cmp(JSON::PP::true);
done_testing;