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