Commit | Line | Data |
70350518 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | use lib qw(t/lib); |
6 | use DBICTest; |
7 | |
a47e1233 |
8 | my $schema = DBICTest->init_schema(); |
7da9cd47 |
9 | |
10 | eval 'use Data::UUID ; 1' |
58d387fe |
11 | or plan skip_all => 'Install Data::UUID run this test'; |
7da9cd47 |
12 | |
13 | plan tests => 1; |
2d679367 |
14 | DBICTest::Schema::Artist->load_components('UUIDColumns'); |
15 | DBICTest::Schema::Artist->uuid_columns('name'); |
16 | Class::C3->reinitialize(); |
7da9cd47 |
17 | |
f9db5527 |
18 | my $artist = $schema->resultset("Artist")->create( { artistid => 100 } ); |
7da9cd47 |
19 | like $artist->name, qr/[\w-]{36}/, 'got something like uuid'; |
20 | |