t/selenium/testscripts/base/000Login.t

   1 ### Login
   2
   3 if(!defined $sel) {
   4   require "t/selenium/AllTests.t";
   5   init_server("singlefileonly",$0);
   6   exit(0);
   7 }
   8
   9 diag("Login");
  10
  11 $sel->open_ok($lxtest->{lxbaseurl}."/login.pl");
  12
  13 $sel->wait_for_page_to_load_ok($lxtest->{timeout});
  14 $sel->title_is("Lx-Office Version ".$lxtest->{version});
  15 $sel->type_ok("login", $lxtest->{testuserlogin});
  16 $sel->type_ok("password", $lxtest->{testuserpasswd});
  17 $sel->click_ok("//input[(\@name=\"action\") and (\@value=\"Anmeldung\")]");
  18
  19 $sel->wait_for_page_to_load_ok($lxtest->{timeout});
  20
  21 if($sel->get_text("//td") eq "Ungültiger Benutzername oder falsches Passwort!") {
  22   diag("\n\n\n\nWrong username or password!\n\n\n\n");
  23   $sel->stop;
  24   exit(-1);
  25 }
  26
  27 if($sel->get_title() eq "Datenbankaktualisierung - Lx-Office Version 2.4.3 - -") {
  28   $sel->click_ok("//input[(\@name=\"dummy\") and (\@value=\"Weiter\")]");
  29   $sel->wait_for_page_to_load_ok($lxtest->{timeoutlong});
  30   $sel->click_ok("//input[(\@type=\"submit\") and (\@value=\"Weiter\")]");
  31   $sel->wait_for_page_to_load_ok($lxtest->{timeout});
  32 }
  33
  34 $sel->title_is("Lx-Office Version 2.4.3 - Selenium - " . $lxtest->{db});
  35 $sel->{ran_tests}{"t/selenium/testscripts/base/999Logout.t"} = 0;
  36 1;