[Bast-commits] r4157 - DBIx-Class/0.08/trunk/t

[marcus at dev.catalyst.perl.org]

Author: marcus
Date: 2008-03-10 09:50:47 +0000 (Mon, 10 Mar 2008)
New Revision: 4157

Modified:
   DBIx-Class/0.08/trunk/t/93storage_replication.t
Log:
proper skip

Modified: DBIx-Class/0.08/trunk/t/93storage_replication.t
===================================================================
--- DBIx-Class/0.08/trunk/t/93storage_replication.t	2008-03-08 01:17:31 UTC (rev 4156)
+++ DBIx-Class/0.08/trunk/t/93storage_replication.t	2008-03-10 09:50:47 UTC (rev 4157)
@@ -7,10 +7,13 @@
 use DBICTest;
 
 use Test::More;
-eval {use DBD::Multi};
-plan skip_all => 'No DBD::Multi' if ($@);
 
-plan tests => 3;
+BEGIN {
+    eval "use DBD::Multi";
+    plan $@
+        ? ( skip_all => 'needs DBD::Multi for testing' )
+        : ( tests => 3 );
+}
 
 my $schema = DBICTest->init_schema();