Renabled pod coverage test and added missing pod

[dbsrgits/DBIx-Class-UUIDColumns.git] / t / 05uuid.t

diff --git a/t/05uuid.t b/t/05uuid.t
index 024bacf..a4e243c 100644 (file)
--- a/t/05uuid.t
+++ b/t/05uuid.t
@@ -3,13 +3,18 @@ use warnings;
 use Test::More;
 
 BEGIN {
-    plan eval "require Data::UUID" ||
-        eval "require APR::UUID" ||
-        eval "require UUID" ||
-        eval "require Win32::Guidgen" ||
-        eval "require Win32API::GUID"
-        ? ( tests => 3 )
-        : ( skip_all => 'needs Data::UUID for testing' );
+    plan skip_all => 'needs Data::UUID for testing'
+        unless
+            eval 'require Data::UUID' ||
+            eval 'require APR::UUID' ||
+            eval 'require UUID' ||
+            eval 'require Win32::Guidgen' ||
+            eval 'require Win32API::GUID';
+
+    plan skip_all => 'needs SQL::Translator for testing'
+        unless eval 'require SQL::Translator';
+
+    plan tests => 3;
 }
 
 use lib qw(t/lib);
@@ -34,4 +39,4 @@ Class::C3->reinitialize();
 $row = $schema->resultset('Test')->create({ });
 ok UUIDTest::is_uuid( $row->id ), 'got something that loks like a UUID from Data::UUID';
 
-1;
\ No newline at end of file
+1;