view release on metacpan or  search on metacpan

t/checks/07-is_in.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More tests => 6;
use Validate::Tiny ':all';

my $r = { fields => [qw/a b/] };

$r->{checks} = [ a => is_in([1,2,3]) ];
ok validate({a => ''}, $r)->{success};
ok !validate({a => '0'}, $r)->{success};
ok validate({a => '0'}, $r)->{error}->{a};
ok validate({a => '3'}, $r)->{success};

$r->{checks} = [ a => is_in([1,2,3], 'NO') ];
is validate({a => '0'}, $r)->{error}->{a}, 'NO';

{
    local $@;
    eval { is_in('boobs') };
    ok $@;
}