The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# vi:sw=2
use strict;
use warnings FATAL => 'all';

use Test::More;

use_ok 'DBIx::Class::Sims::Types';

my $sub = DBIx::Class::Sims::Types->can('us_county');

my @tests = (
  [ { data_type => 'varchar' }, qr/^[\w\s]+$/ ],
);

foreach my $test ( @tests ) {
  $test->[0]{sim} = { type => 'us_county' };
  like( $sub->($test->[0]), $test->[1] );
}

done_testing;