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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-03-09 12:22:54 +0000 (Mon, 09 Mar 2009)
New Revision: 5718

Modified:
   DBIx-Class/0.08/trunk/t/33storage_reconnect.t
Log:
Disable reconnect test except fpor when AUTHORS is set

Modified: DBIx-Class/0.08/trunk/t/33storage_reconnect.t
===================================================================
--- DBIx-Class/0.08/trunk/t/33storage_reconnect.t	2009-03-09 01:32:08 UTC (rev 5717)
+++ DBIx-Class/0.08/trunk/t/33storage_reconnect.t	2009-03-09 12:22:54 UTC (rev 5718)
@@ -7,7 +7,14 @@
 use lib qw(t/lib);
 use DBICTest;
 
-plan tests => 6;
+{
+  no warnings qw/once/;
+  require inc::Module::Install;
+  plan $Module::Install::AUTHOR 
+    ? (tests => 6) 
+    : (skip_all => 'Test temporarily disabled due to a widespread buggy SQLite version')
+  ;
+}
 
 my $db_orig = "$FindBin::Bin/var/DBIxClass.db";
 my $db_tmp  = "$db_orig.tmp";