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