1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
use strict;
use Test::More tests => 13;
BEGIN{ use_ok("FormValidator::Simple::Result") }
my $r1 = FormValidator::Simple::Result->new('id1');
is( $r1->name, 'id1' );
ok( !$r1->is_blank );
$r1->set('ASCII', 1 );
ok( $r1->is_valid );
ok( !$r1->is_invalid );
$r1->set('INT', undef );
$r1->set('LENGTH', undef );
ok( !$r1->is_valid );
ok( $r1->is_invalid );
ok( $r1->is_valid_for('ASCII') );
ok( !$r1->is_valid_for('INT') );
ok( !$r1->is_valid_for('LENGTH') );
ok( !$r1->is_invalid_for('ASCII') );
ok( $r1->is_invalid_for('INT') );
ok( $r1->is_invalid_for('LENGTH') );
|
