X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=t%2Ftest.pl;h=dcc738b8b0ee33f74a98952fad6ff9fc5287732b;hb=a7a1c5178d3219abff3a85d94504ef01e536d101;hp=d9fdaf495ea12898e3eb1519f0f3aa83462e6554;hpb=742f62b93b94208e8cbb306706b1a277ea000d64;p=kivitendo-erp.git

diff --git a/t/test.pl b/t/test.pl
index d9fdaf495..dcc738b8b 100755
--- a/t/test.pl
+++ b/t/test.pl
@@ -8,9 +8,15 @@ use Test::Harness qw(runtests execute_tests);
 use Getopt::Long;
 
 BEGIN {
-   $ENV{HARNESS_OPTIONS} = '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.
+  push   (@INC, $FindBin::Bin . '/../modules/fallback'); # Only use our own versions of modules if there's no system version.
+
+  $ENV{HARNESS_OPTIONS} = 'c';
+
+  chdir($FindBin::Bin . '/..');
 }
 
 my @exclude_for_fast = (