Help language development. Donate to The Perl Foundation

OpenAPI::Schema::Validate cpan:JNTHN last updated on 2019-07-10

t/number-range.t
use OpenAPI::Schema::Validate;
use Test;

throws-like
    { OpenAPI::Schema::Validate.new(schema => { multipleOf => 'string' }) },
    X::OpenAPI::Schema::Validate::BadSchema,
    'Having multipleOf property be a non-integer is refused (Str)';
throws-like
    { OpenAPI::Schema::Validate.new(schema => { multipleOf => 0 }) },
    X::OpenAPI::Schema::Validate::BadSchema,
    'Having multipleOf property be 0 is refused';
throws-like
    { OpenAPI::Schema::Validate.new(schema => { multipleOf => -20 }) },
    X::OpenAPI::Schema::Validate::BadSchema,
    'Having multipleOf property be negative is refused';

throws-like
    { OpenAPI::Schema::Validate.new(schema => { minimum => 'string' }) },
    X::OpenAPI::Schema::Validate::BadSchema,
    'Having minimum property be a non-integer is refused (Str)';
throws-like
    { OpenAPI::Schema::Validate.new(schema => { exclusiveMinimum => 'string' }) },
    X::OpenAPI::Schema::Validate::BadSchema,
    'Having exclusiveMinimum property be an non-Bool is refused (Str)';

throws-like
    { OpenAPI::Schema::Validate.new(schema => { maximum => 'string' }) },
    X::OpenAPI::Schema::Validate::BadSchema,
    'Having maximum property be a non-integer is refused (Str)';
throws-like
    { OpenAPI::Schema::Validate.new(schema => { exclusiveMaximum => 'string' }) },
    X::OpenAPI::Schema::Validate::BadSchema,
    'Having exclusiveMaximum property be an non-Bool is refused (Str)';


{
    my $schema = OpenAPI::Schema::Validate.new(schema => {
        type => 'integer',
        multipleOf => 5
    });
    ok $schema.validate(25), '25 is a multiple of 5';
    nok $schema.validate(6), '6 is not a multiple of 5';
}

{
    my $schema = OpenAPI::Schema::Validate.new(schema => {
        type => 'number',
        maximum => 5
    });
    nok $schema.validate(10), '10 is more than 5';
    ok $schema.validate(5), '5 is accepted as exclusive is set to False by default';
    $schema = OpenAPI::Schema::Validate.new(schema => {
        type => 'number',
        maximum => 5,
        exclusiveMaximum => True
    });
    nok $schema.validate(5), '5 is rejected as exclusiveMaximum is set';
    nok $schema.validate('string'), 'string is rejected';
}

{
    my $schema = OpenAPI::Schema::Validate.new(schema => {
        type => 'number',
        minimum => 5
    });
    nok $schema.validate(1), '1 is less than 5';
    ok $schema.validate(5), '5 is accepted as exclusive is set to False by default';
    $schema = OpenAPI::Schema::Validate.new(schema => {
        type => 'number',
        minimum => 5,
        exclusiveMinimum => True
    });
    nok $schema.validate(5), '5 is rejected as exclusiveMinimum is set';
    nok $schema.validate('string'), 'string is rejected';
}

done-testing;