From: Peter Rabbitson <ribasushi@cpan.org>
Date: Tue, 28 Apr 2009 13:36:56 +0000 (+0000)
Subject: Disable t/10test.t for ordinary users (suggested by ldami)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7823ae897bb3fbcdc14fdbb72c85052f36f69944;p=scpubgit%2FQ-Branch.git

Disable t/10test.t for ordinary users (suggested by ldami)
---

diff --git a/t/10test.t b/t/10test.t
index 3e43ad3..11c3705 100644
--- a/t/10test.t
+++ b/t/10test.t
@@ -6,6 +6,17 @@ use List::Util qw(sum);
 
 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