Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: ec3a3d2b90
Fetching contributors…

Cannot retrieve contributors at this time

26 lines (21 sloc) 0.499 kb
#!perl -T
use Spark::Form;
use Test::More tests => 3;
use lib 't/lib';
use SX::Test::Field::Regex;
my $f = Spark::Form->new();
my $test = SX::Test::Field::Regex->new(
form => $f,
name => 'test',
regex => qr/^[A-Z][0-9]$/,
is(scalar $f->errors,1,"One error, unset");
$f->data({test => 'AB'});
is(scalar $f->errors,1,"One error, no match");
$f->data({test => 'A1'});
is(scalar $f->errors,0,"No error, match");
Jump to Line
Something went wrong with that request. Please try again.