X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F05uuid.t;h=a4e243cfabcac8be1794ef13b91eab00afe66eb4;hb=aaeaf963adf6f25d0b94f91141b93b4260f5bd47;hp=024bacf4b7d21df1b766fbc6335a48ba3744be2f;hpb=ebb2fe4f2972890b1eea3c5fdbfaa51653848e33;p=dbsrgits%2FDBIx-Class-UUIDColumns.git

diff --git a/t/05uuid.t b/t/05uuid.t
index 024bacf..a4e243c 100644
--- 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;