From 5ffdf45ad2ac31302cf3c4b3d6ecb27f4ffffe32 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Sun, 16 Dec 2007 15:27:43 +0000
Subject: * completed regression tests for vendor-OSes * added regression tests
 for exports, systems and clients * fixed several bugs found by these tests *
 cosmetical cleanups in ConfigDB.pm

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1431 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 config-db/t/run-all-tests.pl | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'config-db/t/run-all-tests.pl')

diff --git a/config-db/t/run-all-tests.pl b/config-db/t/run-all-tests.pl
index 6cebdac1..c082052d 100755
--- a/config-db/t/run-all-tests.pl
+++ b/config-db/t/run-all-tests.pl
@@ -10,6 +10,8 @@ use FindBin;
 use lib "$FindBin::RealBin/../";
 use lib "$FindBin::RealBin/../../lib";
 
+chdir "$FindBin::RealBin" or die "unable to chdir to $FindBin::RealBin! ($!)\n";
+
 use OpenSLX::Basics;
 
 use OpenSLX::MetaDB::SQLite;
@@ -21,6 +23,8 @@ $cmdlineConfig{'db-type'}      = $ENV{SLX_DB_TYPE}      = 'SQLite';
 
 openslxInit();
 
+$Test::Harness::Verbose = 1 if $openslxConfig{'verbose-level'};
+
 # remove the test-db if it already exists 
 my $metaDB = OpenSLX::MetaDB::SQLite->new();
 if ($metaDB->databaseExists()) {
-- 
cgit v1.2.3-55-g7522