From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

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;