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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-03-09 12:42:12 +0000 (Mon, 09 Mar 2009)
New Revision: 5720

Modified:
   DBIx-Class/0.08/trunk/t/33storage_reconnect.t
Log:
Use homegrown AUTHOR detection

Modified: DBIx-Class/0.08/trunk/t/33storage_reconnect.t
===================================================================
--- DBIx-Class/0.08/trunk/t/33storage_reconnect.t	2009-03-09 12:23:12 UTC (rev 5719)
+++ DBIx-Class/0.08/trunk/t/33storage_reconnect.t	2009-03-09 12:42:12 UTC (rev 5720)
@@ -7,15 +7,18 @@
 use lib qw(t/lib);
 use DBICTest;
 
-{
-  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')
-  ;
-}
+# equivalent of $Module::Install::AUTHOR
+my $author =
+  not  -d './inc'
+    or
+  -e ($^O eq 'VMS' ? './inc/_author' : './inc/.author')
+;
 
+plan $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";