Help language development. Donate to The Perl Foundation

Cro::OpenAPI::RoutesFromDefinition cpan:JNTHN last updated on 2018-12-05

t/routes.t
use Cro::HTTP::Client;
use Cro::HTTP::Router;
use Cro::HTTP::Server;
use Cro::OpenAPI::RoutesFromDefinition;
use Test;

my constant TEST_PORT = 30001;

my $api-doc = q:to/OPENAPI/;
    {
        "openapi": "3.0.0",
        "info": {
            "version": "1.0.0",
            "title": "Cro Test Case"
        },
        "paths": {
            "/some/literals/{value}/more/literals/{value2}/final": {
                "get": {
                    "summary": "Template with mixed values and literal segments",
                    "operationId": "complexTemplate"
                }
            },
            "/valtest/{value1}/and/{value2}": {
                "get": {
                    "summary": "Template with validation of route values",
                    "operationId": "routeValidation",
                    "parameters": [
                        {
                            "name": "value1",
                            "in": "path",
                            "required": true,
                            "schema": {
                                "type": "integer"
                            }
                        },
                        {
                            "name": "value2",
                            "in": "path",
                            "required": true,
                            "schema": {
                                "type": "string",
                                "enum": ["dog", "cat", "parrot"]
                            }
                        }
                    ]
                }
            }
        }
    }
    OPENAPI

my $application = openapi $api-doc, {
    operation 'complexTemplate', -> $value1, $value2 {
        content 'text/plain', "Value 1: $value1, Value 2: $value2";
    }
    operation 'routeValidation', -> $value1, $value2 {
        content 'text/plain', "Val 1: $value1, Val 2: $value2";
    }
}

my $server = Cro::HTTP::Server.new: :host<0.0.0.0>, :port(TEST_PORT), :$application;
$server.start;
my $uri = "http://127.0.0.1:{TEST_PORT}";

{
    my $resp = await Cro::HTTP::Client.get: "$uri/some/literals/16/more/literals/25/final";
    is $resp.status, 200, 'Valid 200 response returned for complex template';
    is await($resp.body-text), 'Value 1: 16, Value 2: 25',
        'Got route parameters as expected';
}

{
    my $resp = await Cro::HTTP::Client.get: "$uri/valtest/42/and/cat";
    is $resp.status, 200, 'Valid 200 response returned if route parameters meet validation needs';
    is await($resp.body-text), 'Val 1: 42, Val 2: cat',
            'Got route parameters as expected';
}

throws-like
    {
        await Cro::HTTP::Client.get: "$uri/valtest/lol/and/cat"
    },
    X::Cro::HTTP::Error,
    response => { .status == 404 },
    'When route segment fails validation, 404 error (1)';

throws-like
    {
        await Cro::HTTP::Client.get: "$uri/valtest/42/and/monkey"
    },
    X::Cro::HTTP::Error,
    response => { .status == 404 },
    'When route segment fails validation, 404 error (2)';

done-testing;