BEGIN {
use lib 't/lib';
- use DBIC::Test tests => 13;
+ use DBIC::Test tests => 14;
};
my $schema = DBIC::Test->init_schema;
ok $row->id, 'got something from Data::Uniqid';
};
+SKIP: {
+ skip 'UUID::Random not installed', 1 unless eval 'require UUID::Random';
+
+ DBIC::Test::Schema::Test->uuid_class('::UUID::Random');
+ Class::C3->reinitialize();
+ $row = $schema->resultset('Test')->create({ });
+ ok $row->id, 'got something from UUID::Random';
+};
+
eval {
DBIC::Test::Schema::Test->uuid_class('::JunkIDMaker');
};