42c91a8f34945e2d0a5f7ee69f53ec3bea8871ff
[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::Artist->load_components('UUIDColumns');
8 DBICTest::Artist->uuid_columns('name');
9
10 my $artist = DBICTest::Artist->create( { artistid => 100 } );
11 like $artist->name, qr/[\w-]{36}/, 'got something like uuid';
12
13 }
14
15 1;