From: Peter Rabbitson 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