X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/004280c137305d00ede218b40930882f5b765886..03ea97647e3fbdea4323f4f2136bdfa87cb15c1b:/t/selenium/AllTests.t

diff --git a/t/selenium/AllTests.t b/t/selenium/AllTests.t
index 8e6ee80f3..c5ebf1d19 100644
--- a/t/selenium/AllTests.t
+++ b/t/selenium/AllTests.t
@@ -115,15 +115,23 @@
     
     if(!$singlefileonly) {
       foreach my $scriptdir (@_) {
-        opendir(SCRIPTS, 't/selenium/testscripts/' . $scriptdir);
+        opendir(SCRIPTS, 't/selenium/testscripts/' . $scriptdir) or die "Can't open directory!" . $!;
         foreach (sort readdir(SCRIPTS)) {
-          require_ok("t/selenium/testscripts/". $scriptdir . "/" . $_) if ( $_ =~ /^\w\d\d\d.*\.t$/);
+          if ( $_ =~ /^\w\d\d\d.*\.t$|^\d\d\d.*\.t$/  && !$sel->{ran_tests}{"t/selenium/testscripts/". $scriptdir . "/" . $_}) {
+            require_ok("t/selenium/testscripts/". $scriptdir . "/" . $_);
+            $sel->{ran_tests}{"t/selenium/testscripts/". $scriptdir . "/" . $_} = 1;
+          }
         }
         closedir(SCRIPTS);
       }
     }
     else {
-      foreach (@_) { require_ok($_); }
+      foreach (@_) { 
+        if ( $_ =~ /^.*\/\w\d\d\d.*\.t$|^.*\/\d\d\d.*\.t$/  && !$sel->{ran_tests}{$_}) {
+          require_ok($_); 
+          $sel->{ran_tests}{$_} = 1;
+        }
+      }
     }
     if($!) {
       @! = ("Test fehlgeschlagen!");
@@ -131,4 +139,15 @@
     $sel->stop();
   }
   
+  sub start_login() {
+    require "t/selenium/testscripts/base/000Login.t" if(!$sel->{_page_opened});
+    skip("Failed page to load pages!",) if(!$sel->{_page_opened});
+
+    if($sel->get_title() ne "Lx-Office Version 2.4.3 - Selenium - " . $lxtest->{db}){
+      require "t/selenium/testscripts/base/000Login.t";
+    }
+
+    $sel->select_frame_ok("relative=up");
+  }
+  
 1;