X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fuuid.t;h=e4029e6e23fb4b0f756d553764b4511fc9181898;hb=7c374301bb0b8e051d2417eb78dff4c9ce44afd7;hp=9a58c15e4678827fe0ae5a2b3bb99856ab575cdf;hpb=7edcccc1b8f7253f2c2ebce838dcdc20ea8246db;p=dbsrgits%2FDBIx-Class-UUIDColumns.git

diff --git a/t/uuid.t b/t/uuid.t
index 9a58c15..e4029e6 100644
--- a/t/uuid.t
+++ b/t/uuid.t
@@ -5,7 +5,7 @@ use warnings;
 
 BEGIN {
     use lib 't/lib';
-    use DBIC::Test tests => 13;
+    use DBIC::Test tests => 14;
 };
 
 my $schema = DBIC::Test->init_schema;
@@ -85,6 +85,15 @@ SKIP: {
     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');
 };