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