#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;
use Test::Exception;

my $pkg;

BEGIN {
    $pkg = 'Catmandu::Validator::Simple';
    use_ok $pkg;
}

require_ok $pkg;

my $v = Catmandu::Validator::Simple->new(
    handler => sub {
        $_[0]->{field} eq '1' ? undef : 'Not 1';
    }
);

can_ok $v, 'validate_data';

throws_ok {$v->new(handler => 1)} qr/handler should be a CODE reference/;

my $rec = {field => 1};

is $v->validate($rec), $rec, 'validate - success';

is $v->validate({field => 3}), undef, 'validate - fails';

is_deeply $v->last_errors, ['Not 1'], 'last_errors returns error message';

done_testing 7;