X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=t%2Ftest.pl;h=ccdab4077abc3f491dd0aabbb616e5ce0c172d8d;hb=feb6f563968f53e59511578429b1dd61fda52008;hp=d20f01da0a905f0e2420461728b403f6a0c15614;hpb=8317b7aa1407238c9fa8d609a1795b4ee20cb2dd;p=kivitendo-erp.git

diff --git a/t/test.pl b/t/test.pl
index d20f01da0..ccdab4077 100755
--- a/t/test.pl
+++ b/t/test.pl
@@ -5,27 +5,42 @@ use strict;
 use Data::Dumper;
 use File::Find ();
 use Test::Harness qw(runtests execute_tests);
+use Getopt::Long;
 
 BEGIN {
-  $ENV{HARNESS_OPTIONS} = 'j:c';
-  unshift @INC, 'modules/override';
-  push    @INC, 'modules/fallback';
+  use FindBin;
+
+  unshift(@INC, $FindBin::Bin . '/../modules/override'); # Use our own versions of various modules (e.g. YAML).
+  push   (@INC, $FindBin::Bin . '/..');                  # '.' will be removed from @INC soon.
+
+  $ENV{HARNESS_OPTIONS} = 'c';
+
+  chdir($FindBin::Bin . '/..');
 }
 
+my @exclude_for_fast = (
+  't/001compile.t',
+  't/003safesys.t',
+);
+
 sub find_files_to_test {
   my @files;
-  File::Find::find(sub { push @files, $File::Find::name if (-f _) && m/\.t$/ }, 't');
+  File::Find::find(sub { push @files, $File::Find::name if (-f $_) && m/\.t$/ }, 't');
   return @files;
 }
 
 my (@tests_to_run, @tests_to_run_first);
 
+GetOptions(
+  'f|fast' => \ my $fast,
+);
+
 if (@ARGV) {
   @tests_to_run       = @ARGV;
 
 } else {
   @tests_to_run_first = qw(t/000setup_database.t);
-  my %exclude         = map  { ($_ => 1)     } @tests_to_run_first;
+  my %exclude         = map  { ($_ => 1)     } @tests_to_run_first, (@exclude_for_fast)x!!$fast;
   @tests_to_run       = grep { !$exclude{$_} } sort(find_files_to_test());
 }