The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
sub run_tests {

eval 'use Data::UUID ; 1'
  or plan skip_all, 'Install Data::UUID run this test';

plan tests => 1;
DBICTest::Artist->load_components('UUIDColumns');
DBICTest::Artist->uuid_columns('name');

my $artist = DBICTest::Artist->create( { artistid => 100 } );
like $artist->name, qr/[\w-]{36}/, 'got something like uuid';

}

1;