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; | |
2d679367 | 7 | DBICTest::Schema::Artist->load_components('UUIDColumns'); |
8 | DBICTest::Schema::Artist->uuid_columns('name'); | |
9 | Class::C3->reinitialize(); | |
7da9cd47 | 10 | |
3712e4f4 | 11 | my $artist = DBICTest->class("Artist")->create( { artistid => 100 } ); |
7da9cd47 | 12 | like $artist->name, qr/[\w-]{36}/, 'got something like uuid'; |
13 | ||
14 | } | |
15 | ||
16 | 1; |