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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
use strict;
use Test::More tests => 42;
BEGIN{ use_ok("FormValidator::Simple::Profile") }
my $rec = FormValidator::Simple::Profile::Record->new;
$rec->set_keys( { id => ['key'] } );
is( $rec->name, 'id' );
is( $rec->keys->[0], 'key' );
$rec->set_keys( { 'id2' => 'key2' } );
is( $rec->name, 'id2' );
is( $rec->keys->[0], 'key2' );
$rec->set_keys( { 'id3' => [qw/key3 key4 key5/] } );
is( $rec->name, 'id3' );
is( $rec->keys->[0], 'key3' );
is( $rec->keys->[1], 'key4' );
is( $rec->keys->[2], 'key5' );
$rec->set_keys( 'id4' );
is( $rec->name, 'id4' );
is( $rec->keys->[0], 'id4' );
isa_ok( $rec->constraints, "FormValidator::Simple::Constraints" );
$rec->set_constraints( ['INT'] );
my $c1 = $rec->constraints->get_record_at(0);
is( $c1->name, 'INT' );
$rec->set_constraints( [qw/ASCII INT/,[qw/LENGTH 4 10/]] );
my $c2 = $rec->constraints->get_record_at(0);
my $c3 = $rec->constraints->get_record_at(1);
my $c4 = $rec->constraints->get_record_at(2);
is( $rec->constraints->records_count, 3 );
ok( !$rec->constraints->needs_blank_check );
is( $c2->name, 'ASCII' );
is( $c3->name, 'INT' );
is( $c4->name, 'LENGTH' );
is( $c4->args->[0], 4 );
is( $c4->args->[1], 10 );
$rec->set_constraints( [qw/NOT_BLANK ASCII INT/] );
my $c5 = $rec->constraints->get_record_at(0);
my $c6 = $rec->constraints->get_record_at(1);
is( $rec->constraints->records_count, 2 );
ok( $rec->constraints->needs_blank_check );
is( $c5->name, 'ASCII' );
is( $c6->name, 'INT' );
$rec->set_constraints('INT');
my $c7 = $rec->constraints->get_record_at(0);
is( $c7->name, 'INT' );
$rec->set_constraints( ['NOT_BLANK'] );
is( $rec->constraints->records_count, 0 );
ok( $rec->constraints->needs_blank_check );
my $prof = FormValidator::Simple::Profile->new( [
id => [qw/NOT_BLANK/],
{ name => [qw/name1 name2/] } => [qw/ANY/],
pass => [qw/NOT_BLANK ASCII/,['LENGTH', 4, 10]]
] );
my $prec1 = $prof->get_record_at(0);
my $prec2 = $prof->get_record_at(1);
my $prec3 = $prof->get_record_at(2);
is( $prof->records_count, 3 );
isa_ok( $prec1, "FormValidator::Simple::Profile::Record" );
isa_ok( $prec2, "FormValidator::Simple::Profile::Record" );
isa_ok( $prec3, "FormValidator::Simple::Profile::Record" );
ok( $prec1->constraints->needs_blank_check );
is( $prec1->constraints->records_count, 0 );
ok( !$prec2->constraints->needs_blank_check );
is( $prec2->constraints->records_count, 1 );
ok( $prec3->constraints->needs_blank_check );
is( $prec3->constraints->records_count, 2 );
my $ite = $prof->iterator;
isa_ok( $ite, "FormValidator::Simple::Profile::Iterator" );
my $prec4 = $ite->next;
my $prec5 = $ite->next;
my $prec6 = $ite->next;
my $prec7 = $ite->next;
is( $prec7, undef );
is( $prec4->name, 'id' );
is( $prec5->name, 'name' );
is( $prec6->name, 'pass' );
|
