view release on metacpan or  search on metacpan

t/Tests/Data/TreeValidator/Constraints.t  view on Meta::CPAN

use warnings;
use Test::More;
use Test::Fatal;
use Test::Routine;
use Test::Routine::Util;
use MooseX::Types::Moose qw/Num HashRef/;

use Data::TreeValidator::Constraints qw( required length options type );

test '"required" constraint' => sub {
    my $constraint = required;
    ok(!exception { $constraint->('Some input') },
        'non-empty string passes required constraint');

    ok(exception { $constraint->(undef) },
        'constraint does not allow undef input');

    ok(exception { $constraint->('') },
        'constraint does not allow empty string input');

    ok(!exception { $constraint->('0') },