X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/3634aa28790d3a080cf3b7878149c6c5eb62ce16..6c8a96c23a56f8db29948f265d895541369ac36b:/t/selenium/AllTests.t

diff --git a/t/selenium/AllTests.t b/t/selenium/AllTests.t
index c3c5265b7..a6cca0704 100644
--- a/t/selenium/AllTests.t
+++ b/t/selenium/AllTests.t
@@ -39,7 +39,6 @@
   use Test::More qw(no_plan);
   use IO::Socket;
 
-
   if(-f "/tmp/lxtest-temp.conf") {
     eval { require('/tmp/lxtest-temp.conf'); };
   }
@@ -74,9 +73,9 @@
 
 
     $lxtest->{test_id} = time; # create individual ids by unixtime
-    $lxtest->{testuserlogin}   = $lxtest->{testlogin} . $lxtest->{test_id};
-    $lxtest->{testuserpasswd}  = $lxtest->{test_id};
-    $lxtest->{db}              = $lxtest->{db} . $lxtest->{test_id};
+    $lxtest->{testuserlogin}   = $lxtest->{testlogin} . $lxtest->{test_id} if(!$lxtest->{testuserlogin});
+    $lxtest->{testuserpasswd}  = $lxtest->{test_id} if(!$lxtest->{testuserpasswd});
+    $lxtest->{db}              = $lxtest->{db} . $lxtest->{test_id} if(!($lxtest->{db} =~ /^seleniumtestdatabase[0-9]{10}$/));
 
     ok(defined $lxtest->{rpw}, "Get root password");
   
@@ -116,6 +115,9 @@
       }
       closedir(SCRIPTS);
     }
+    if($!) {
+      @! = ("Test fehlgeschlagen!");
+    }
     $sel->stop();
   }