use strict;
use Test::More tests => 9;
use CGI;

BEGIN{ use_ok("FormValidator::Simple") }

my $q = CGI->new;

$q->param( age1 => 25 );
$q->param( age2 => 25 );
$q->param( age3 => 25 );
$q->param( age4 => 25 );

my $r = FormValidator::Simple->check( $q => [
    age1 => [ 'INT', [qw/GREATER_THAN 20/] ],
    age2 => [ 'INT', [qw/LESS_THAN 30/] ],
    age3 => [ 'INT', [qw/EQUAL_TO 25/] ],
    age4 => [ 'INT', [qw/BETWEEN 20 30/] ],
] );

ok(!$r->invalid('age1'));
ok(!$r->invalid('age2'));
ok(!$r->invalid('age3'));
ok(!$r->invalid('age4'));

my $r2 = FormValidator::Simple->check( $q => [
    age1 => [ 'INT', [qw/GREATER_THAN 30/] ],
    age2 => [ 'INT', [qw/LESS_THAN 20/] ],
    age3 => [ 'INT', [qw/EQUAL_TO 22/] ],
    age4 => [ 'INT', [qw/BETWEEN 20 22/] ],
] );

ok($r2->invalid('age1'));
ok($r2->invalid('age2'));
ok($r2->invalid('age3'));
ok($r2->invalid('age4'));