[Bast-commits] r8483 - DBIx-Class/0.08/trunk/t/cdbi

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-01-31 09:04:43 +0000 (Sun, 31 Jan 2010)
New Revision: 8483

Modified:
   DBIx-Class/0.08/trunk/t/cdbi/22-deflate_order.t
Log:
better skip message

Modified: DBIx-Class/0.08/trunk/t/cdbi/22-deflate_order.t
===================================================================
--- DBIx-Class/0.08/trunk/t/cdbi/22-deflate_order.t	2010-01-31 08:41:45 UTC (rev 8482)
+++ DBIx-Class/0.08/trunk/t/cdbi/22-deflate_order.t	2010-01-31 09:04:43 UTC (rev 8483)
@@ -9,15 +9,17 @@
     next;
 }
 
+plan skip_all => 'Set $ENV{DBICTEST_MYSQL_DSN}, _USER and _PASS to run this test'
+  unless ($ENV{DBICTEST_MYSQL_DSN} && $ENV{DBICTEST_MYSQL_USER});
+
 eval { require Time::Piece::MySQL };
 plan skip_all => "Need Time::Piece::MySQL for this test" if $@;
 
+plan tests => 3;
+
 use lib 't/cdbi/testlib';
-eval { require 't/cdbi/testlib/Log.pm' };
-plan skip_all => "Need MySQL for this test" if $@;
+use_ok ('Log');
 
-plan tests => 2;
-
 package main;
 
 my $log = Log->insert( { message => 'initial message' } );