use Test::More tests => 5;
package MyVal;
use Validation::Class;
package main;
my $r = MyVal->new(
fields => {
status => {
options => 'Active, Inactive'
}
},
params => {
status => 'Active'
}
);
ok $r->validate(), 'status is valid';
$r->params->{status} = 'active';
ok ! $r->validate(), 'status case doesnt match';
ok 'status must be Active or Inactive' eq $r->errors_to_string(),
'displays proper error message';
$r->params->{status} = 'inactive';
ok ! $r->validate(), 'status case doesnt match alt';
$r->params->{status} = 'Inactive';
ok $r->validate(), 'alternate status value validates';
#warn $r->errors_to_string();