#!/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;