use Test::More tests => 4; package MyVal; use Validation::Class; package main; my $r = MyVal->new( fields => { one => { label => 'Object', min_symbols => 2 } } ); $r->params->{one} = '@@#'; ok $r->validate('one'), 'validation ok'; $r->params->{one} = '@@'; ok $r->validate('one'), 'validation ok'; $r->params->{one} = '!'; ok ! $r->validate('one'), 'validation failed'; $r->params->{one} = '$$D'; ok $r->validate('one'), 'validation ok';