Commit | Line | Data |
---|---|---|
7da9cd47 | 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; |