use Test::More tests => 3; package MyVal; use Validation::Class; package main; my $r = MyVal->new( fields => { foobar => { between => '2-5' } }, params => { foobar => 'apple' } ); ok $r->validate(), 'foobar validates'; $r->params->{foobar} = '#'; ok ! $r->validate(), 'foobar doesnt validate'; ok 'foobar must contain between 2-5 characters' eq $r->errors_to_string(), 'displays proper error message'; #warn $r->errors_to_string();