Disable t/10test.t for ordinary users (suggested by ldami)
Peter Rabbitson [Tue, 28 Apr 2009 13:36:56 +0000 (13:36 +0000)]
t/10test.t

index 3e43ad3..11c3705 100644 (file)
@@ -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