Merge 'trunk' into 'DBIx-Class-current'
[dbsrgits/DBIx-Class-Historic.git] / t / run / 19uuid.tl
CommitLineData
7da9cd47 1sub run_tests {
1edaf6fe 2my $schema = shift;
7da9cd47 3
4eval 'use Data::UUID ; 1'
5 or plan skip_all, 'Install Data::UUID run this test';
6
7plan tests => 1;
2d679367 8DBICTest::Schema::Artist->load_components('UUIDColumns');
9DBICTest::Schema::Artist->uuid_columns('name');
10Class::C3->reinitialize();
7da9cd47 11
f9db5527 12my $artist = $schema->resultset("Artist")->create( { artistid => 100 } );
7da9cd47 13like $artist->name, qr/[\w-]{36}/, 'got something like uuid';
14
15}
16
171;