[Bast-commits] r5999 - SQL-Abstract/1.x/trunk/t

ribasushi at dev.catalyst.perl.org ribasushi at dev.catalyst.perl.org
Tue Apr 28 13:36:56 GMT 2009


Author: ribasushi
Date: 2009-04-28 14:36:56 +0100 (Tue, 28 Apr 2009)
New Revision: 5999

Modified:
   SQL-Abstract/1.x/trunk/t/10test.t
Log:
Disable t/10test.t for ordinary users (suggested by ldami)

Modified: SQL-Abstract/1.x/trunk/t/10test.t
===================================================================
--- SQL-Abstract/1.x/trunk/t/10test.t	2009-04-28 13:29:52 UTC (rev 5998)
+++ SQL-Abstract/1.x/trunk/t/10test.t	2009-04-28 13:36:56 UTC (rev 5999)
@@ -6,7 +6,18 @@
 
 use Test::More;
 
+# equivalent to $Module::Install::AUTHOR
+my $author = (
+  ( not -d './inc' )
+    or
+  ( -e ($^O eq 'VMS' ? './inc/_author' : './inc/.author') )
+);
 
+if (not $author and not $ENV{SQLATEST_TESTER} and not $ENV{AUTOMATED_TESTING}) {
+  plan skip_all => 'Skipping resource intensive self-tests, use SQLATEST_TESTER=1 to run';
+}
+
+
 my @sql_tests = (
       # WHERE condition - equal
       {




More information about the Bast-commits mailing list