The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More;

package main;

use utf8;
use Validation::Class::Simple;

my $r = Validation::Class::Simple->new(fields => {city => {city => 1}});

# failures

$r->params->{city} = 'bumfuck';
ok !$r->validate(), 'bumfuck is invalid';
$r->params->{city} = 'prison';
ok !$r->validate(), 'prison is invalid';
$r->params->{city} = 'st louis';
ok !$r->validate(), 'st louis is invalid';

# successes

$r->params->{city} = 'new york';
ok $r->validate(), 'new york is valid';
$r->params->{city} = 'st. louis';
ok $r->validate(), 'st. louis is valid';
$r->params->{city} = 'atlanta';
ok $r->validate(), 'atlanta is valid';
$r->params->{city} = 'philadelphia';
ok $r->validate(), 'philadelphia is valid';
$r->params->{city} = 'santa monica';
ok $r->validate(), 'santa monica is valid';
$r->params->{city} = 'baltimore';
ok $r->validate(), 'baltimore is valid';
$r->params->{city} = 'santa bárbara';
ok $r->validate(), 'santa bárbara is valid';

done_testing;