#!/usr/bin/env perl

use strict;
use warnings;

use Test::More tests => 8;

use Input::Validator;

# Unknown params, but no errors without explicit => 1
my $validator = Input::Validator->new;

ok($validator->validate({firstname => 'bar'}));
ok(!$validator->errors->{firstname});
ok(!$validator->has_errors);
ok($validator->has_unknown_params);

# Unknown params and custom errors with explicit => 1
$validator = Input::Validator->new(
    explicit => 1,
    messages => {NOT_SPECIFIED => 'custom error'}
);

ok(!$validator->validate({firstname => 'bar'}));
is($validator->errors->{firstname}, 'custom error');
ok(!$validator->values->{firstname});
ok($validator->has_unknown_params);