1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
use strict;
use Test::More tests => 5;
BEGIN{ use_ok("FormValidator::Simple") }
use CGI;
my $q = CGI->new;
$q->param( num1 => '123.456' );
$q->param( num2 => '123' );
$q->param( num3 => '1234' );
$q->param( num4 => '123.4567' );
my $r = FormValidator::Simple->check( $q => [
num1 => [ [qw/DECIMAL 3 3/] ],
num2 => [ [qw/DECIMAL 3 3/] ],
num3 => [ [qw/DECIMAL 3 3/] ],
num4 => [ [qw/DECIMAL 3 3/] ],
] );
ok(!$r->invalid('num1'));
ok(!$r->invalid('num2'));
ok($r->invalid('num3'));
ok($r->invalid('num4'));
|
