[Bast-commits] r9541 - DBIx-Class/0.08/trunk/t/storage

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-06-02 10:53:12 +0100 (Wed, 02 Jun 2010)
New Revision: 9541

Modified:
   DBIx-Class/0.08/trunk/t/storage/deploy.t
Log:
Do not run test without sqlt

Modified: DBIx-Class/0.08/trunk/t/storage/deploy.t
===================================================================
--- DBIx-Class/0.08/trunk/t/storage/deploy.t	2010-06-02 09:44:23 UTC (rev 9540)
+++ DBIx-Class/0.08/trunk/t/storage/deploy.t	2010-06-02 09:53:12 UTC (rev 9541)
@@ -6,10 +6,16 @@
 use lib qw(t/lib);
 use DBICTest;
 
+BEGIN {
+  require DBIx::Class;
+  plan skip_all =>
+      'Test needs ' . DBIx::Class::Optional::Dependencies->req_missing_for ('deploy')
+    unless DBIx::Class::Optional::Dependencies->req_ok_for ('deploy')
+}
+
 use File::Spec;
 use File::Path qw/ mkpath rmtree /;
 
-
 my $schema = DBICTest->init_schema();
 
 my $var = File::Spec->catfile(qw| t var create_ddl_dir |);