The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
sub run_tests {
my $schema = shift;

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

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

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

}

1;