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
|
use Test::More tests => 18;
BEGIN {
use FindBin;
use lib $FindBin::Bin . "/modules";
}
use_ok 'MyVal::Person';
use_ok 'MyVal::Ticket';
package val::a;
use Validation::Class;
mixin TMP => {
required => 1,
between => '1-255'
};
field name => {
mixin => 'TMP',
label => 'Person\'s name'
};
field email => {
mixin => 'TMP',
label => 'Person\'s email'
};
package val::b;
use Validation::Class;
field description => {
mixin => 'TMP',
label => 'Ticket description'
};
field priority => {
mixin => 'TMP',
label => 'Ticket priority',
options => [qw/Low Normal High Other/]
};
{
package val::test1;
use Test::More;
my $foo = val::a->new(params => {flag => 0});
my $bar = val::b->new(params => {flag => 0});
ok $foo->fields->{name}, 'foo has name';
ok $foo->fields->{email}, 'foo has email';
ok !$foo->fields->{description}, 'foo doesnt have description';
ok !$foo->fields->{priority}, 'foo doesnt have priority';
ok !$bar->fields->{name}, 'bar doesnt have name';
ok !$bar->fields->{email}, 'bar doesnt have email';
ok $bar->fields->{description}, 'bar has description';
ok $bar->fields->{priority}, 'bar has priority';
}
{
package val::test2;
use Test::More;
my $foo = MyVal::Person->new(params => {flag => 1});
my $bar = MyVal::Ticket->new(params => {flag => 1});
ok $foo->fields->{name}, 'foo has name';
ok $foo->fields->{email}, 'foo has email';
ok !$foo->fields->{description}, 'foo doesnt have description';
ok !$foo->fields->{priority}, 'foo doesnt have priority';
ok !$bar->fields->{name}, 'bar doesnt have name';
ok !$bar->fields->{email}, 'bar doesnt have email';
ok $bar->fields->{description}, 'bar has description';
ok $bar->fields->{priority}, 'bar has priority';
}
|
