#!/usr/bin/env perl
use strict;
use warnings;
use Test::More 'no_plan';
use Data::FormValidator;
use Data::FormValidator::ConstraintsFactory 'make_length_constraint';
{
my $results = Data::FormValidator->check( {
short_enough => 'doh',
too_long => "So long she's happy",
},
{
required => [qw/too_long short_enough/],
constraints => {
too_long => make_length_constraint(5),
short_enough => make_length_constraint(5),
} } );
ok( $results->valid('short_enough'),
'positive test for make_length_constraint()' );
ok( !$results->valid('too_long'),
'negative test for make_length_constraint()' );
}