6 plan skip_all => 'needs Data::UUID for testing'
8 eval 'require Data::UUID' ||
9 eval 'require APR::UUID' ||
10 eval 'require UUID' ||
11 eval 'require Win32::Guidgen' ||
12 eval 'require Win32API::GUID';
14 plan skip_all => 'needs SQL::Translator for testing'
15 unless eval 'require SQL::Translator';
25 my $schema = UUIDTest->schema;
29 $row = $schema->resultset('Test')->create({ });
30 ok UUIDTest::is_uuid( $row->id ), 'got something that loks like a UUID from Auto';
32 UUIDTest::Schema::Test->uuid_class('CustomUUIDMaker');
33 Class::C3->reinitialize();
34 $row = $schema->resultset('Test')->create({ });
35 ok UUIDTest::is_uuid( $row->id ), 'got something that loks like a UUID from CustomUUIDMaker';
37 UUIDTest::Schema::Test->uuid_class('::Data::UUID');
38 Class::C3->reinitialize();
39 $row = $schema->resultset('Test')->create({ });
40 ok UUIDTest::is_uuid( $row->id ), 'got something that loks like a UUID from Data::UUID';