projekt kivitendo

Directory for automated test scripts.

Lx-Office Testumgebung

Mit der hier beschriebenen Testumgebung ist es m?glich, Lx Office 

automatisiert zu testen. Automatische Tests haben den gro?en 

Vorteil, das verschiedene Standardtests nicht immer wieder von 

Hand durchgespielt werden m?ssen, sondern einmal in einem Skript 

verschriftet immer wieder verwendet werden k?nnen.

Weitere Informationen k?nnen im Wiki nachgelesen und erg?nzt werden:

http://wiki.lx-system.de/index.php/Automatisiertes_Testen_von_Modulen

Aufbau der Testumgebung

Im Verzeichnis t/ finden sich alle testrelevanten Skripte.Der 

Aufruf der Tests folgt ?ber 

#perl t/lx-office.t

lx-office.t ruft alle Einzeltests der Reihe nach auf und fasst sie

?bersichtlich zusammen. Die Einzeltests befinden sich in einem 

Unterordner von t/. Jeder Unterorder enth?lt eine Datei AllTests.t, 

die wiederrum alle einzelnen Tests des Unterordners aufruft.

t/lxtest.conf t/lxtest.conf.default

F?r die einzelnen Tests werden verschiedene Packetvariablen (globals) 

zur Verf?gung gestellt, um die Testskripte einfach auf 

unterschiedliche Installationen anpassen zu k?nnen und um sich auf 

die selbe Test-Datenbank und denselben Test-Benutzer beziehen zu k?nnen.

Die Datei t/lxtest.conf.default muss zun?chst nach t/lxtest.conf 

kopiert werden. Dann ist die Datei t/lxtest.conf auf die lokalen

Gegebenheiten anzupassen. Besnders die f?r Selenium n?tigen 

Einstellungen bed?rfen einer ?berarbeitung.

Definiert werden die Variablen in der Datei t/lxtest.conf.

Aufgerufen werden die Variablen $lxtest->{VARIABLE}.

Es ist ratsam, die vorhandenen Tests zu untersuchen, um sich ein Bild 

von den M?glichkeiten zu machen.

Selenium

Selenium ist eine Testsuite, mit der man Browserinteraktionen 

simulieren und die Ergebnisse auswerten kann. Der unschlagbare 

Vorteil von Selenium f?r das Testen von Lx ist es, dass es 

m?glich wird, eine Test-Datenbank in einfachen Schritten 

erstellen zu k?nnen. Um Seleniumtests durchf?hren zu k?nnen, 

ist es n?tig, das Packet Selenium Remote Control (Selenium RC) 

lokal zu installieren (Java Runtime ebenfalls erforderlich). 

Selenium RC gibt es unter:

http://www.openqa.org/selenium-rc/

F?r den Betrieb von Selenium ist eine lokale Workstation mit 

Browserumgebung n?tig.

Der Aufruf von selenium erfolgt unter Windows bspw. so:

C:\java -jar "C:\selenium-remote-control-0.9.0

\server\selenium-server.jar"

Unter Linux bspw. so:

<FIXME>

Die lokalen Einstellungen sind unbedingt in der 

t/lxtest.conf nachzutragen! Weitere Infos unter

http://www.openqa.org/selenium-rc/

Dann reicht ein Start von 

#perl t/lx-office.t

um dem Testskript bei der Arbeit zuzuschauen.

Leider ist es n?tig, auf dem Seleniumserver nach jedem Aufruf

des Testskripts das Sicherheitszertifikat von LINET Services zu 

akzeptieren, was etwas nervig ist.

t/selenium/

Der Ordner selenium beinhaltet alle einzelnen selenium Testskripte.

Aufgerufen werden die Skripte ?ber t/selenium/AllTests.t .

Neue Tests m?ssen in dieser Datei angemeldet werden.

Ziel ist es eine Demodatenbank von Lx mit Daten zu f?llen und die 

Abh?ngigkeiten untereinander zu pr?fen. Dazu sind die 

individuellen Testskripte nummeriert (001NAME.t bis 999NAME.t) um 

sie der Reihe nach abzuarbeiten.

Die folgenden Skripte sind bereits installiert:

001CreateTestDatabase.t  Erzeugt eine neue Testdatenbank

002CreateTestUser.t      Erzeugt einen neuen Testbenutzer

...

...

998DeleteTestUser.t      L?scht den Testbenutzer

999DeleteTestDatabase.t  L?scht die Testdatenbank

Dazwischen befinden sich die Skripte, um eine Demodatenbank 

aufzubauen und zu pr?fen.

t/backend/

In diesem Ordner befinden sich Backend Testskripte.

t/frontend/

In diesem Ordner befinden sich Frontend Testskripte, die nicht 

unter selenium getestet werden.

Was wenn ein Test fehlschl?gt?

Das Fehlschlagen von Tests kann verschiedene Gr?nde haben.

1. Der Test selbst ist fehlerhaft.

2. Es haben sich Lx Screens ver?ndert, so das der Test von 

   falschen Voraussetzungen ausgeht

3. Die zu testende Funktion ist fehlerhaft

Nachdem 1. und 2.  ausgeschlossen wurden, sollte zu 3. ein Bugreport 

angelegt werden. 

Bugreports unter https://lx-office.linet-services.de/bugzilla/

anlegen.

Eigene Tests

Eigene testskripte k?nnen einfach in die Testumgebung eingebunden 

werden. Die vorhandenen Skripte k?nnen als Anleitung dienen. 

Bei Selenium Tests ist es am leichtesten, mit Firefox und der 

Selenium IDE Extension Testpfade einfach aufzuzeichnen.

( http://www.openqa.org/selenium-ide/ )

Dann werden die Selenium IDE Testaufzeichnungen in Perl 

umgewandelt und angepasst. Fertige Skripte werden mit einer 

laufenden Nummer versehen und in den Ordner t/selenium/ kopiert.

Dann wird das Skript in der Datei t/selenium/AllTests.t eingef?gt.

Ein erster Probelauf mit 

#perl t/selenium/AllTests.t sollte den Test absolvieren.

(Dabei kann es n?tig sein, andere Tests auszukommentieren, weil 

selenium Tests mitunter lange Laufzeiten haben k?nnen, oder weil die Demodatenbank 

und der Benutzer am Ende zu Debugging Zwecken nicht gel?scht werden

sollen.)

This folder contais the backend testscrips for Lx.

The Lx backend is the module libery under SL.

Backend tests don't need selenium, and are only able

to test local installations.

#=====================================================================

# LX-Office ERP

# Copyright (C) 2006

# Web http://www.lx-office.org

#

#=====================================================================

#

#  Author: Udo Spallek

#   Email: udono@gmx.net

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

#======================================================================

# 

# Selenium Main Caller

# Call all Selenium scripts from here. To use Selenium tests in 

# Lx-Office you need to Install Selenium Remote Control. Take a look at 

# the README Document for further informatinons on installing Selenium 

# and testing Lx-Office and of course writing your own testcases.

#

#######################################################################

  no strict;

  push @INC, ['/t/selenium'];

  use vars qw( $lxdebug $lxtest $sel );

  use strict;

  use Carp;

  use Test::WWW::Selenium;

  use Test::More;

  use IO::Socket;

  eval { require('t/lxtest.conf'); };

  if ($@) {

    diag("No test configuration found in t/lxtest.conf.\n

    Maybe you forget to copy t/lxtest.conf.default to t/lxtest.conf. Exit test...\n");

  exit 0;

  };

  sub server_is_running {

    return IO::Socket::INET->new(PeerAddr => $ENV{SRC_HOST} || $lxtest->{seleniumhost},

                                 PeerPort => $ENV{SRC_PORT} || $lxtest->{seleniumport},

                                );

  }

  if (server_is_running) {

    plan tests => 204; # Need to be cutomized

  }

  else {

    plan skip_all => "No selenium server found! "

                    ."Maybe you forgot to start it or "

                    ."the preferences in t/lxtest.conf doesen't fit to your system";

#    exit 0;

  }

  diag('Pretests and initialisation');

  $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};

  ok(defined $lxtest->{rpw}, "Get root password");

  ok(defined $lxtest->{dbhost}, "found dbhost in config");

  ok(defined $lxtest->{dbport}, "found dbport in config");

  ok(defined $lxtest->{dbuser}, "found dbuser in config");

  ok(defined $lxtest->{dbpasswd}, "found dbpasswd in config");

  $lxtest->{lxadmin} = $lxtest->{lxbaseurl} . "admin.pl?rpw=$lxtest->{rpw}&nextsub=list_users&action=Weiter";

  eval { $sel = Test::WWW::Selenium->new(

    host => $lxtest->{seleniumhost},

    port => $lxtest->{seleniumport},

    browser => $lxtest->{seleniumbrowser},

    browser_url => $lxtest->{lxadmin},

    auto_stop => '0',

    );

  };

  if ($@) {

    diag("No Selenium Server running, or wrong preferences\n\n");

    exit 0;

  }

  ok(defined $sel, 'Creating Selenium Object');

  diag('Starting Selenium tests...');

  opendir(SCRIPTS, 't/selenium/testscripts');

  my @testscripts = sort readdir(SCRIPTS);

  foreach my $script (@testscripts){

    my $file = "t/selenium/testscripts/" . $script;

    require_ok($file) if ( $script =~ /^\d\d\d.*\.t$/ );

  }

  exit 1;

  $sel=''; # Destroy selenium object

  exit 1;

This directory contains all selenium testscripts for lx-office.

Selenium testscrips are the prefered way to test the higher lx 

functionalities. For the selenium tests you need to install and

run a local selenium server on a machine whitch is able to start 

a browser session. See README for more informations.

#=====================================================================

# LX-Office ERP

# Copyright (C) 2006

# Web http://www.lx-office.org

#

#=====================================================================

#

#  Author: Udo Spallek

#   Email: udono@gmx.net

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

#======================================================================

# 

# Selenium Cleanup Script

# To clean up all the messy databases and users while debugging testcases

# 

#######################################################################

  no strict;

  push @INC, ['/t/selenium'];

  use vars qw( $lxdebug $lxtest $sel );

  use strict;

  use Carp;

  use WWW::Selenium;

  use IO::Socket;

  my $cleanedupdb = '';

  my $cleanedupusers = '';

  eval { require('t/lxtest.conf'); };

  if ($@) {

    print "No test configuration found in t/lxtest.conf.\n

    Maybe you forget to copy t/lxtest.conf.default to t/lxtest.conf. Exit test...\n";

  exit 0;

  };

  sub server_is_running {

    return IO::Socket::INET->new(PeerAddr => $ENV{SRC_HOST} || $lxtest->{seleniumhost},

                                 PeerPort => $ENV{SRC_PORT} || $lxtest->{seleniumport},

                                );

  }

  if (server_is_running) {

  }

  else {

    exit 0;

  }

  $lxtest->{testuserlogin}   = $lxtest->{testlogin};

  $lxtest->{db}              = $lxtest->{db};

  $lxtest->{lxadmin} = $lxtest->{lxbaseurl} . "admin.pl?rpw=$lxtest->{rpw}&nextsub=list_users&action=Weiter";

  eval { $sel = WWW::Selenium->new(

    host => $lxtest->{seleniumhost},

    port => $lxtest->{seleniumport},

    browser => $lxtest->{seleniumbrowser},

    browser_url => $lxtest->{lxadmin},

    auto_stop => '0',

    );

  };

  if ($@) {

    print "No Selenium Server running, or wrong preferences\n\n";

    exit 0;

  }

  print "\nStarting Testdebugging Cleanup...\n";

### Delete user

$sel->start;

print "Cleanup all users '$lxtest->{testuserlogin}*'\n";

$sel->open($lxtest->{lxadmin});

my @links= $sel->get_all_links();

my $testuserlogin = $lxtest->{testuserlogin};

foreach my $link (@links) {

  if ($link =~ /$testuserlogin\d\d\d\d\d\d\d\d\d\d/){

    $sel->click("link=$lxtest->{testuserlogin}11*");

    $sel->wait_for_page_to_load($lxtest->{timeout});

    $sel->click("//input[(\@name=\"action\") and (\@value=\"L?schen\")]");

    $sel->wait_for_page_to_load($lxtest->{timeout});

    $cleanedupusers .= "     $link\n";

  }

}

print "Lock the system\n";

$sel->click("//input[(\@name=\"action\") and (\@value=\"System sperren\")]");

$sel->wait_for_page_to_load($lxtest->{timeout});

print "Cleanup all test databasees: '$lxtest->{db}*'\n";

  $sel->click("//input[(\@name=\"action\") and (\@value=\"Datenbankadministration\")]");

  $sel->wait_for_page_to_load($lxtest->{timeout});

  $sel->type("dbhost", $lxtest->{dbhost});

  $sel->type("dbport", $lxtest->{dbport});

  $sel->type("dbuser", $lxtest->{dbuser});

  $sel->type("dbpasswd", $lxtest->{dbpasswd});

  $sel->click("//input[(\@name=\"action\") and (\@value=\"Datenbank l?schen\")]");

  $sel->wait_for_page_to_load($lxtest->{timeoutlong});

  my $field = $sel->get_body_text();

  my $database= $lxtest->{db};

  my @fields = split('  ', $field);

  foreach my $field (@fields) {

    if ($field =~ /$database\d\d\d\d\d\d\d\d\d\d/){

      $sel->open($lxtest->{lxadmin});

      $sel->click("//input[(\@name=\"action\") and (\@value=\"Datenbankadministration\")]");

      $sel->wait_for_page_to_load($lxtest->{timeout});

      $sel->type("dbhost", $lxtest->{dbhost});

      $sel->type("dbport", $lxtest->{dbport});

      $sel->type("dbuser", $lxtest->{dbuser});

      $sel->type("dbpasswd", $lxtest->{dbpasswd});

      $sel->click("//input[(\@name=\"action\") and (\@value=\"Datenbank l?schen\")]");

      $sel->wait_for_page_to_load($lxtest->{timeoutlong});

      $sel->check("name=db value=$field"); 

      $sel->click("//input[(\@name=\"action\") and (\@value=\"Weiter\")]");

      $cleanedupdb .= "     $field\n";

    }

  }

$sel->open($lxtest->{lxadmin});

print "Unlock the system\n";

$sel->click("//input[(\@name=\"action\") and (\@value=\"System entsperren\")]");

$sel->wait_for_page_to_load($lxtest->{timeout});

$cleanedupdb = "none.\n" if ($cleanedupdb eq '');

$cleanedupusers = "none.\n" if ($cleanedupusers eq '');

print "Ready. \nReport:\n--- Cleaned up Users:\n$cleanedupusers---Cleaned up Databases:\n$cleanedupdb";

$sel->stop;

exit 1;

### Create Database

$sel->open_ok($lxtest->{lxadmin});

$sel->title_is("Lx-Office ERP Administration -");

diag('Lock the system');

$sel->click_ok("//input[(\@name=\"action\") and (\@value=\"System sperren\")]");

$sel->wait_for_page_to_load_ok($lxtest->{timeout});

diag("Create test database '$lxtest->{db}'");

$sel->title_is("Lx-Office ERP Administration -");

$sel->click_ok("//input[(\@name=\"action\") and (\@value=\"Datenbankadministration\")]");

$sel->wait_for_page_to_load_ok($lxtest->{timeout});

$sel->title_is("Lx-Office ERP / Datenbankadministration -");

$sel->type_ok("dbuser", $lxtest->{dbuser});

$sel->type_ok("dbpasswd", $lxtest->{dbpasswd});

$sel->type_ok("dbuser", $lxtest->{dbuser});

$sel->type_ok("dbhost", $lxtest->{dbhost});

$sel->type_ok("dbport", $lxtest->{dbport});

$sel->type_ok("dbdefault", $lxtest->{dbdefault});

$sel->click_ok("//input[(\@name=\"action\") and (\@value=\"Datenbank anlegen\")]");

$sel->wait_for_page_to_load_ok($lxtest->{timeout});

$sel->title_is("Lx-Office ERP Datenbankadministration / Datenbank anlegen -");

$sel->type_ok("db", $lxtest->{db});

$sel->select_ok("encoding", "label=ISO 8859-1");

$sel->click_ok("//input[(\@name=\"chart\") and (\@value=\"Germany-DATEV-SKR03EU\")]");

$sel->click_ok("//input[(\@name=\"action\") and (\@value=\"Weiter\")]");

$sel->wait_for_page_to_load_ok($lxtest->{timeoutlong});

$sel->title_is("Lx-Office ERP Datenbankadministration / Datenbank anlegen -");

$sel->click_ok("//input[(\@name=\"action\") and (\@value=\"Weiter\")]");

$sel->wait_for_page_to_load_ok($lxtest->{timeout});

$sel->title_is("Lx-Office ERP Administration -");

diag('Unlock the system');

$sel->click_ok("//input[(\@name=\"action\") and (\@value=\"System entsperren\")]");

$sel->wait_for_page_to_load_ok($lxtest->{timeout});

$sel->title_is("Lx-Office ERP Administration -");

### Create new user

diag("Create test user '$lxtest->{testuserlogin}'");

$sel->open_ok($lxtest->{lxadmin});

$sel->title_is("Lx-Office ERP Administration -");

$sel->click_ok("action");

$sel->wait_for_page_to_load_ok($lxtest->{timeout});

$sel->title_is("Lx-Office ERP Administration / Benutzer erfassen -");

$sel->type_ok("login", $lxtest->{testuserlogin});

$sel->type_ok("password", $lxtest->{testuserpasswd});

$sel->type_ok("name", "Selenium");

$sel->type_ok("email", "selenium\@lx-office.org");

$sel->type_ok("signature", "Selenium Testuser");

$sel->type_ok("tel", "0000");

$sel->type_ok("fax", "1111");

$sel->type_ok("company", "Sel-enium");

$sel->type_ok("signature", "Selenium Testuser\nTestfirma");

$sel->type_ok("address", "Testfirma");

$sel->type_ok("steuernummer", "111-222-333-444");

$sel->type_ok("co_ustid", "1234567");

$sel->type_ok("duns", "0987654321");

$sel->click_ok("dbdriver");

$sel->type_ok("newtemplates", "seleniumtestuser");

$sel->click_ok("menustyle");

$sel->type_ok("Pg_dbhost", $lxtest->{dbhost});

$sel->type_ok("Pg_dbname", $lxtest->{db});

$sel->type_ok("Pg_dbport", $lxtest->{dbport});

$sel->type_ok("Pg_dbuser", $lxtest->{dbuser});

$sel->type_ok("Pg_dbpasswd", $lxtest->{dbpasswd});

$sel->click_ok("action");

$sel->wait_for_page_to_load_ok($lxtest->{timeout});

$sel->title_is("Lx-Office ERP Administration -");

### Update Database

# NOTEST: some preruns for initializing missing parameters

$sel->open($lxtest->{lxadmin});

$sel->click("//input[(\@name=\"action\") and (\@value=\"Datenbankadministration\")]");

$sel->wait_for_page_to_load($lxtest->{timeout});

$sel->type("dbuser", $lxtest->{dbuser});

$sel->type("dbpasswd", $lxtest->{dbpasswd});

$sel->type("dbuser", $lxtest->{dbuser});

$sel->type("dbhost", $lxtest->{dbhost});

$sel->type("dbport", $lxtest->{dbport});

$sel->type("dbdefault", $lxtest->{dbdefault});

$sel->click("//input[(\@name=\"action\") and (\@value=\"Datenbank aktualisieren\")]");

$sel->wait_for_page_to_load($lxtest->{timeoutlong});

$sel->title_is("Lx-Office ERP Datenbankadministration / Datenbank aktualisieren -");

my $count =0;

while (){ # count the number of radiobuttons

  eval {  $sel->is_checked("//input[(\@id=\"$count\")]"); };

    if ( $@ ) { $count--; last; }; 

  $count++;

}

#TEST: Now run the Tests

$sel->open_ok($lxtest->{lxadmin});

$sel->title_is("Lx-Office ERP Administration -");

#diag('Lock the system');

#$sel->click_ok("//input[(\@name=\"action\") and (\@value=\"System sperren\")]");

#$sel->wait_for_page_to_load_ok($lxtest->{timeout});

diag('Update the database');

$sel->click_ok("//input[(\@name=\"action\") and (\@value=\"Datenbankadministration\")]");

$sel->wait_for_page_to_load_ok($lxtest->{timeout});

$sel->title_is("Lx-Office ERP / Datenbankadministration -");

$sel->type_ok("dbuser", $lxtest->{dbuser});

$sel->type_ok("dbpasswd", $lxtest->{dbpasswd});

$sel->type_ok("dbuser", $lxtest->{dbuser});

$sel->type_ok("dbhost", $lxtest->{dbhost});

$sel->type_ok("dbport", $lxtest->{dbport});

$sel->type_ok("dbdefault", $lxtest->{dbdefault});

$sel->click_ok("//input[(\@name=\"action\") and (\@value=\"Datenbank aktualisieren\")]");

$sel->wait_for_page_to_load_ok($lxtest->{timeoutlong});

$sel->title_is("Lx-Office ERP Datenbankadministration / Datenbank aktualisieren -");

for (my $i=0; $i <= $count; $i++){

  $sel->uncheck_ok("//input[(\@id=\"$i\")]");

}

#$sel->click_ok("//input[\@value=\"$lxtest->{db}\"]");

$sel->check_ok("//input[\@name=\"db$lxtest->{db}\"]");

$sel->click_ok("//input[(\@name=\"action\") and (\@value=\"Weiter\")]");

$sel->title_like( qr/Lx-Office ERP Datenbankadministration/ );

#diag('Unlock the system');

#$sel->click_ok("//input[(\@name=\"action\") and (\@value=\"System entsperren\")]");

#$sel->wait_for_page_to_load_ok($lxtest->{timeout});

#$sel->title_is("Lx-Office ERP Administration -");

### Delete user

diag("Delete test user '$lxtest->{testuserlogin}'");

$sel->open_ok($lxtest->{lxadmin});

$sel->title_is("Lx-Office ERP Administration -");

$sel->click_ok("link=$lxtest->{testuserlogin}");

$sel->wait_for_page_to_load_ok($lxtest->{timeout});

$sel->title_is("Lx-Office ERP Administration / Benutzerdaten bearbeiten -");

$sel->click_ok("//input[(\@name=\"action\") and (\@value=\"L?schen\")]");

$sel->wait_for_page_to_load_ok($lxtest->{timeout});

#### Delete database

$sel->open_ok($lxtest->{lxadmin});

$sel->title_is("Lx-Office ERP Administration -");

diag('Lock the system');

$sel->click_ok("//input[(\@name=\"action\") and (\@value=\"System sperren\")]");

$sel->wait_for_page_to_load_ok($lxtest->{timeout});

diag("Delete test database '$lxtest->{db}'");

$sel->click_ok("//input[(\@name=\"action\") and (\@value=\"Datenbankadministration\")]");

$sel->wait_for_page_to_load_ok($lxtest->{timeout});

$sel->title_is("Lx-Office ERP / Datenbankadministration -");

$sel->type_ok("dbhost", $lxtest->{dbhost});

$sel->type_ok("dbport", $lxtest->{dbport});

$sel->type_ok("dbuser", $lxtest->{dbuser});

$sel->type_ok("dbpasswd", $lxtest->{dbpasswd});

$sel->click_ok("//input[(\@name=\"action\") and (\@value=\"Datenbank l?schen\")]");

$sel->wait_for_page_to_load_ok($lxtest->{timeoutlong});

$sel->title_is("Lx-Office ERP Datenbankadministration / Datenbank l?schen -");

$sel->click_ok("//input[\@value=\"$lxtest->{db}\"]");

$sel->click_ok("//input[(\@name=\"action\") and (\@value=\"Weiter\")]");

$sel->wait_for_page_to_load_ok($lxtest->{timeout});

$sel->body_text_is("Lx-Office ERP Datenbankadministration / Datenbank l?schen $lxtest->{db} wurde erfolgreich gel?scht");

$sel->click_ok("//input[(\@name=\"action\") and (\@value=\"Weiter\")]");

$sel->wait_for_page_to_load_ok($lxtest->{timeout});

$sel->title_is("Lx-Office ERP Administration -");

diag('Unlock the system');

$sel->click_ok("//input[(\@name=\"action\") and (\@value=\"System entsperren\")]");

$sel->wait_for_page_to_load_ok($lxtest->{timeout});

$sel->title_is("Lx-Office ERP Administration -");

All Selenium testscripts can be found here. The tests will be included

sequential from 001 to 999.

This folder contais the frontend testscrips for Lx.

The Lx frontend are all perl scripts under bin/* .

The frontend tests don't need selenium! They should 

use the commandline API of Lx. Frontend tests in this 

directory are only for testing local Lx installations.

If you like to test the HTML screens in different 

Browsers, it would be better to use the selenium 

environment under t/selenium.

#=====================================================================

# LX-Office ERP

# Copyright (C) 2006/2007

# Web http://www.lx-office.org

#

#=====================================================================

#

#  Author: Udo Spallek, Thomas Kasulke

#   Email: udono@gmx.net, tkasulke@linet-services.de

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

#======================================================================

#

# Main Test Module: 

# For collecting all the tests in nice Test::Harness environment.

# Study the README for Selenium Installation and testing process 

# and enjoy starting

# #perl t/lx-office.t

# against the unstable release

#======================================================================

  use warnings FATAL => 'all';

  use diagnostics;

  use Carp;

  use Test::Harness;

  my %tests = ("all" => 't/selenium/TestAllTests.t',

               "system" => 't/selenium/TestSystem.t',

               "selling" => 't/selenium/TestSelling.t',

               "masterdata" => 't/selenium/TestMasterData.t',

               "testbed" => 't/selenium/TestCreateTestbed.t',

               "admin" => 't/selenium/TestAdmin.t',

               "accounting" => 't/selenium/TestAccounting.t',

               "payments" => 't/selenium/TestPayments.t',

               "printing" => 't/selenium/TestPrinting.t',

               "programm" => 't/selenium/TestProgramm.t',

               "reports" => 't/selenium/TestReports.t' );

  my $showtests = 0;

  my $singletest = 0;

  my $nodb = 0;

  my @totest;

  eval { require('t/lxtest.conf'); };

  my %lxtest = %{ $lxtest } if ($lxtest);

  sub usage

  {

    print "\n$0 --- creates testscenarios while using Selenium testcases for Lx-Office\n";

    printf "\t\tusage: perl [PERLOPTIONS] $0 [--help] [OPTIONS] [ARGUMENTS]\n\t\t%s\n", "\xAF" x 6;

    print "\t\t --help\t\tshow this usage\n\n";

    printf "\t\toptions:\n\t\t%s\n", "\xAF" x 8;

    print "\t\t  -masterdata\tonly runs testscripts for \"masterdata\"\n";

    print "\t\t  -accounting\tonly runs testscripts for \"accounting\"\n";

    print "\t\t  -system\tonly runs testscripts for \"system\"\n";

    print "\t\t  -payments\tonly runs testscripts for \"payments\"\n";

    print "\t\t  -programm\tonly runs testscripts for \"programm\"\n";

    print "\t\t  -printing\tonly runs testscripts for \"printing\"\n";

    print "\t\t  -reports\tonly runs testscripts for \"reports\"\n";

    print "\t\t  -selling\tonly runs testscripts for \"selling\"\n";

    print "\t\t  -purchase\tonly runs testscripts for \"purchase\"\n";

    print "\t\t  -admin\tonly runs testscripts for \"administration\"\n";

    print "\t\t  -testbed\tcreates a standardized test database\n";

    print "\t\t  -nodb\t\tdoesn't create a db! Only use with \n\t\t\t\t--username, --userpasswd, --dbname, --dbport, --dbhost, --dbuser, --dbpasswd, --rootpasswd arguments!\n";

    print "\t\t  -showtests\tfinally shows all tests available only\n";

    print "\t\t  -singletest\toption flag for using single tests shown in \"-showtests\"\n";

    printf "\n\t\targuments:\n\t\t%s\n","\xAF" x 10;

    print "\t\t  --test=\tname of Test shown in showtests seperated by , (Only joined by -singletest)\n";

    print "\t\t  --username=\tuser login name\n";

    print "\t\t  --userpasswd=\tuser login password\n";

    print "\t\t  --dbname=\tname of used db (leave empty whether dbname is seleniumtestdatabase)\n";

    print "\t\t  --dbport=\tport of used db (leave empty whether port is 5432)\n";

    print "\t\t  --dbhost=\thost of used db (leave empty whether host is localhost [127.0.0.1])\n";

    print "\t\t  --dbuser=\tdb username (leave empty whether name is postgres)\n";

    print "\t\t  --dbpasswd=\tthe password for used db (leave empty while none)\n";

    print "\t\t  --rootpasswd=\troot password for admin.pl login\n";

    printf "\t\t  NOTE: Configuration in lxtest.conf will be temporaly overwritten by using this arguments!\n\t\t %s\n", "\xAF" x 6;

    exit;

  }

  while ( $#ARGV>=0 )

  {

    $_ = $ARGV[0];

    if ( /^--help$/ ) { usage; last }

    elsif ( /^-showtests$/) { $showtests = 1; shift; next }

    elsif ( /^-nodb$/ ) { $nodb = 1; shift; next }

    elsif ( /^-(masterdata)$/ ) { push @totest, $1; shift; next }

    elsif ( /^-(system)$/ ) { push @totest, $1; shift; next }

    elsif ( /^-(selling)$/ ) { push @totest, $1; shift; next }

    elsif ( /^-(purchase)$/ ) { push @totest, $1; shift; next }

    elsif ( /^-(testbed)$/ ) { push @totest, $1; shift; next }

    elsif ( /^-(payments)$/ ) { push @totest, $1; shift; next }

    elsif ( /^-(admin)$/ ) { push @totest, $1; shift; next }

    elsif ( /^-(printing)$/ ) { push @totest, $1; shift; next }

    elsif ( /^-(reports)$/ ) { push @totest, $1; shift; next }

    elsif ( /^-(accounting)$/ ) { push @totest, $1; shift; next }

    elsif ( /^-(purchase)$/ ) { push @totest, $1; shift; next }

    elsif ( /^-(programm)$/ ) { push @totest, $1; shift; next }

    elsif ( /^-singletest$/ ) { $singletest = 1; shift; next }

    elsif ( /^--username=(.*)$/ ) { $lxtest{testuserlogin} = $1; shift; next }

    elsif ( /^--userpasswd=(.*)$/ ) { $lxtest{testuserpasswd} = $1; shift; next }

    elsif ( /^--dbname=(.*)$/ ) { $lxtest{db} = $1; shift; next }

    elsif ( /^--dbport=(.*)$/ ) { $lxtest{dbport} = $1; shift; next }

    elsif ( /^--dbhost=(.*)$/ ) { $lxtest{dbhost} = $1; shift; next }

    elsif ( /^--dbuser=(.*)$/ ) { $lxtest{dbuser} = $1; shift; next }

    elsif ( /^--dbpasswd=(.*)$/ ) { $lxtest{dbpasswd} = $1; shift; next }

    elsif ( /^--rootpasswd=(.*)$/ ) { $lxtest{rpw} = $1; shift; next }

    elsif ( /^--test=(.*)$/ ) { foreach (split(/\,/, $1)) { push @totest, $_; } shift; next }

    elsif ( /^([A-Z].*)$/ ) { push @totest, shift; next }

    else {

        print STDERR "$0: ERROR: unrecognized option '$_' ?\n";

        usage;

    }

    last;

  }

  unlink("/tmp/lxtest-temp.conf") if (-f "/tmp/lxtest-temp.conf");

  open TEMPCONF, "+>/tmp/lxtest-temp.conf";

  print TEMPCONF '$lxtest = {'."\n";

  foreach (keys(%lxtest)) {

    print TEMPCONF '"' . $_ . '" => "' . $lxtest{$_} . "\",\n";

  }

  print TEMPCONF '};';

  close TEMPCONF;

  if($singletest || $showtests) {

    my $testscriptdir = 't/selenium/testscripts/';

    opendir(ROOT, $testscriptdir);

    foreach my $dir ( readdir( ROOT ) ) {

      if(-d $testscriptdir . $dir && $dir ne "begin" && $dir ne "end" && $dir ne "..") {

        opendir(DIR, $testscriptdir . $dir . "/begin");

        foreach ( readdir(DIR) ) {

          $tests{ substr ( substr( $_, 4 ), 0, -2 ) } = $testscriptdir . ($dir eq "." ? "" : $dir . "/") . "begin/" . $_ if ( $_ =~ /^\w\d\d\d.*\.t$/ );

        }

        closedir(DIR);

        opendir(DIR, $testscriptdir . $dir . "/end");

        foreach (readdir(DIR)) {

          $tests{ substr ( substr( $_, 4 ), 0, -2 ) } = $testscriptdir . ($dir eq "." ? "" : $dir . "/") . "end/" . $_ if ( $_ =~ /^\w\d\d\d.*\.t$/ );

        }

        closedir(DIR);

      }

    }

    closedir(ROOT);

  }

  push @totest, "all" if(!$totest[0]);

## Backendtests:

#  &runtests(

#  );  

## Frontendtests:

  if (!$showtests) {

    foreach (@totest) {

      &runtests(

        $tests{$_},

     );

    }

  }

  elsif($showtests) {

    printf "\tFollowing testscripts are present:\n\t%s\n","\xAF" x 34;;

    foreach (sort(keys(%tests))) {

      print "\t\t" . $_ ."\n" if( /^[A-Z].*$/ );

    }

    printf "\n\t\%s\n\t%s\n","Be ensure, that usage is promitted by login and db status!","\xAF" x 58;

  }

unlink("/tmp/lxtest-temp.conf");

exit 1;

# This is the main configuration file for testing Lx-Office. 

# The file t/lxtest.conf.default contains the configuration for

# testing the unstable trunk in the internet repository on

# https://lx-office.linet-services.de/svn-installationen/unstable/

# Simply copy the file

# t/lxtest.conf.default to t/lxtest.conf

# If you like to test the unstable trunk of the repository, start 

# perl t/lx-office.t .

# If you like to test your own Lx installation, customize the file

# t/lx-office.t for your own.

# Btw. a running Selenium server is required for testing Lx!

# See README for more informations.

$lxtest = {

    # Lx location and user configuration:

    # Please edit the following lines 

    # for testing a local installation

    lxbaseurl       => 'https://lx-office.linet-services.de/svn-installationen/unstable/',

    rpw             => 'ro26F.eQBldoA', # root passwordhash! is only

                       # neccessary if you test a remote instalation

    testlogin       => 'seleniumtestuser',# will be extended with unix time

    # Testdatabase configuration:

    # Please edit the following lines

    # for testing a local installation

    # ATTENTION: Testdatabase will be deleted after testrun!

    db              => 'seleniumtestdatabase',

    dbhost          => 'localhost',

    dbport          => '5432',

    dbuser          => 'postgres',

    dbpasswd        => '',

    dbdefault       => 'template1',

    # Selenium preferences:

    # Edit the selenium preferences for your system. 

    # A running Selenium server is required for testing Lx! 

    # See README for more informations.

    seleniumhost    => '192.168.1.10', # edit host of running selenium server

    seleniumbrowser => '*chrome C:\Programme\Mozilla Firefox\firefox.exe', # edit the path

    seleniumport    => '4444',

    timeout         => '30000',  #timeout for waiting Page load in ms

    timeoutlong     => '60000',  #timeout for waiting longer Page load in ms....

    #Lx defaults (usualy no need for editing)

    rootlogin       => "root login",

    memberfile      => "users/members",

    # Put your own setting for individual tests after here...

};

#=====================================================================

# LX-Office ERP

# Copyright (C) 2006/2007

# Web http://www.lx-office.org

#

#=====================================================================

#

#  Author: Udo Spallek, Thomas Kasulke

#   Email: udono@gmx.net, tkasulke@linet-services.de

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

#======================================================================

# 

# Selenium Main Caller

# Call all Selenium scripts from here. To use Selenium tests in 

# Lx-Office you need to Install Selenium Remote Control. Take a look at 

# the README Document for further informatinons on installing Selenium 

# and testing Lx-Office and of course writing your own testcases.

#

#######################################################################

  no strict;

  push @INC, ['/t/selenium', \&init_server];

  use vars qw( $lxdebug $lxtest $sel );

  use strict;

  use Carp;

  use Test::WWW::Selenium;

  use Test::More qw(no_plan);

  use IO::Socket;

  if(-f "/tmp/lxtest-temp.conf") {

    eval { require('/tmp/lxtest-temp.conf'); };

  }

  else {

    eval { require('t/lxtest.conf'); };

  }

  if ($@) {

    diag("No test configuration found in t/lxtest.conf.\n

    Maybe you forget to copy t/lxtest.conf.default to t/lxtest.conf. Exit test...\n");

  exit 0;

  }

  sub server_is_running {

    return IO::Socket::INET->new(PeerAddr => $ENV{SRC_HOST} || $lxtest->{seleniumhost},

                                 PeerPort => $ENV{SRC_PORT} || $lxtest->{seleniumport},

                                );

  }

#   if (server_is_running) {

#     plan tests => 200; # Need to be cutomized

#   }

  sub init_server {

    my $singlefileonly = 0;

    if ($_[0] eq "singlefileonly") {  

      $singlefileonly = 1;

      shift;

    }

    if(!server_is_running) {

      print "No selenium server found! "

           ."Maybe you forgot to start it or "

           ."the preferences in t/lxtest.conf doesen't fit to your system";

      exit 0;

    }

    diag('Pretests and initialisation');

    $lxtest->{test_id} = time; # create individual ids by unixtime

    $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");

    ok(defined $lxtest->{dbhost}, "found dbhost in config");

    ok(defined $lxtest->{dbport}, "found dbport in config");

    ok(defined $lxtest->{dbuser}, "found dbuser in config");

    ok(defined $lxtest->{dbpasswd}, "found dbpasswd in config");

    $lxtest->{lxadmin_url} = $lxtest->{lxbaseurl} . "admin.pl";

    $lxtest->{lxadmin_with_get} = $lxtest->{lxadmin_url} . "?rpw=$lxtest->{rpw}&nextsub=list_users&action=Weiter";

    $lxtest->{lxadmin} = $lxtest->{lxadmin_url} . "?rpw=$lxtest->{rpw}&nextsub=list_users&action=Weiter";

    eval { $sel = Test::WWW::Selenium->new(

      host => $lxtest->{seleniumhost},

      port => $lxtest->{seleniumport},

      browser => $lxtest->{seleniumbrowser},

      browser_url => $lxtest->{lxadmin},

      auto_stop => '0',

      );

    };

    if ($@) {

      diag("No Selenium Server running, or wrong preferences\n\n");

      exit 0;

    }

    ok(defined $sel, 'Creating Selenium Object');

    diag('Starting Selenium tests...');

    if(!$singlefileonly) {

      foreach my $scriptdir (@_) {

        opendir(SCRIPTS, 't/selenium/testscripts/' . $scriptdir) or die "Can't open directory!" . $!;

        foreach (sort readdir(SCRIPTS)) {

          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 (@_) { 

        if ( $_ =~ /^.*\/\w\d\d\d.*\.t$|^.*\/\d\d\d.*\.t$/  && !$sel->{ran_tests}{$_}) {

          require_ok($_); 

          $sel->{ran_tests}{$_} = 1;

        }

      }

    }

    if($!) {

      @! = ("Test fehlgeschlagen!");

    }

    $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;

This directory contains all selenium testscripts for lx-office.

Selenium testscrips are the prefered way to test the higher lx 

functionalities. For the selenium tests you need to install and

run a local selenium server on a machine whitch is able to start 

a browser session. See README for more informations.

require "t/selenium/AllTests.t";

init_server("accounting/begin", "accounting/end");

1;

require "t/selenium/AllTests.t";

init_server("administration/begin", "administration/end");

1;

require "t/selenium/AllTests.t";

init_server("administration/begin", "system/begin", "masterdata/begin", "selling/begin", "purchase/begin", 

            "accounting/begin", "payments/begin", "reports/begin", "programm/begin", 

            "programm/end", "reports/end", "payments/end", "accounting/end", "purchase/end", "selling/end",

            "masterdata/end", "system/end", "administration/end");

1;

require "t/selenium/AllTests.t";

init_server("administration/begin", "system/begin", "masterdata/begin");

diag("\n\nUsername: " .  $lxtest->{testuserlogin} . "\n" . "Password: " .  $lxtest->{testuserpasswd} . "\n\n");

1;

require "t/selenium/AllTests.t";

init_server("masterdata/begin", "masterdata/end");

1;

require "t/selenium/AllTests.t";

init_server("payments/begin", "payments/end");

1;

require "t/selenium/AllTests.t";

init_server("printing/begin", "printing/end");

1;

require "t/selenium/AllTests.t";

init_server("programm/begin", "programm/end");

1;

require "t/selenium/AllTests.t";

init_server("purchase/begin", "purchase/end");

1;

require "t/selenium/AllTests.t";

init_server("reports/begin", "reports/end");

1;

require "t/selenium/AllTests.t";

init_server("selling/begin", "selling/end");

1;

require "t/selenium/AllTests.t";

init_server("system/begin", "system/end");

1;

#=====================================================================

# LX-Office ERP

# Copyright (C) 2006

# Web http://www.lx-office.org

#

#=====================================================================

#

#  Author: Udo Spallek

#   Email: udono@gmx.net

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

#======================================================================

# 

# Selenium Cleanup Script

# To clean up all the messy databases and users while debugging testcases

# 

#######################################################################

  no strict;

  push @INC, ['/t/selenium'];

  use vars qw( $lxdebug $lxtest $sel );

  use strict;

  use Carp;

  use WWW::Selenium;

  use IO::Socket;

  my $cleanedupdb = '';

  my $cleanedupusers = '';

  eval { require('t/lxtest.conf'); };

  if ($@) {

    print "No test configuration found in t/lxtest.conf.\n

    Maybe you forget to copy t/lxtest.conf.default to t/lxtest.conf. Exit test...\n";

  exit 0;

  };

  sub server_is_running {

    return IO::Socket::INET->new(PeerAddr => $ENV{SRC_HOST} || $lxtest->{seleniumhost},

                                 PeerPort => $ENV{SRC_PORT} || $lxtest->{seleniumport},

                                );

  }

  if (server_is_running) {

  }

  else {

    exit 0;

  }

  $lxtest->{testuserlogin}   = $lxtest->{testlogin};

  $lxtest->{db}              = $lxtest->{db};

  $lxtest->{lxadmin} = $lxtest->{lxbaseurl} . "admin.pl?rpw=$lxtest->{rpw}&nextsub=list_users&action=Weiter";

  eval { $sel = WWW::Selenium->new(

    host => $lxtest->{seleniumhost},

    port => $lxtest->{seleniumport},

    browser => $lxtest->{seleniumbrowser},

    browser_url => $lxtest->{lxadmin},

    auto_stop => '0',

    );

  };

  if ($@) {

    print "No Selenium Server running, or wrong preferences\n\n";

    exit 0;

  }

  print "\nStarting Testdebugging Cleanup...\n";

### Delete user

$sel->start;

print "Cleanup all users '$lxtest->{testuserlogin}*'\n";

$sel->open($lxtest->{lxadmin});

my @links= $sel->get_all_links();

my $testuserlogin = $lxtest->{testuserlogin};

foreach my $link (@links) {

  if ($link =~ /$testuserlogin\d\d\d\d\d\d\d\d\d\d/){

    $sel->click("link=$lxtest->{testuserlogin}11*");

    $sel->wait_for_page_to_load($lxtest->{timeout});

    $sel->click("//input[(\@name=\"action\") and (\@value=\"L?schen\")]");

    $sel->wait_for_page_to_load($lxtest->{timeout});

    $cleanedupusers .= "     $link\n";

  }

}

print "Lock the system\n";

$sel->click("//input[(\@name=\"action\") and (\@value=\"System sperren\")]");

$sel->wait_for_page_to_load($lxtest->{timeout});

print "Cleanup all test databasees: '$lxtest->{db}*'\n";

  $sel->click("//input[(\@name=\"action\") and (\@value=\"Datenbankadministration\")]");

  $sel->wait_for_page_to_load($lxtest->{timeout});

  $sel->type("dbhost", $lxtest->{dbhost});

  $sel->type("dbport", $lxtest->{dbport});

  $sel->type("dbuser", $lxtest->{dbuser});

  $sel->type("dbpasswd", $lxtest->{dbpasswd});

  $sel->click("//input[(\@name=\"action\") and (\@value=\"Datenbank l?schen\")]");

  $sel->wait_for_page_to_load($lxtest->{timeoutlong});

  my $field = $sel->get_body_text();

  my $database= $lxtest->{db};

  my @fields = split('  ', $field);

  foreach my $field (@fields) {

    if ($field =~ /$database\d\d\d\d\d\d\d\d\d\d/){

      $sel->open($lxtest->{lxadmin});

      $sel->click("//input[(\@name=\"action\") and (\@value=\"Datenbankadministration\")]");

      $sel->wait_for_page_to_load($lxtest->{timeout});

      $sel->type("dbhost", $lxtest->{dbhost});

      $sel->type("dbport", $lxtest->{dbport});

      $sel->type("dbuser", $lxtest->{dbuser});

      $sel->type("dbpasswd", $lxtest->{dbpasswd});

      $sel->click("//input[(\@name=\"action\") and (\@value=\"Datenbank l?schen\")]");

      $sel->wait_for_page_to_load($lxtest->{timeoutlong});

      $sel->check("name=db value=$field"); 

      $sel->click("//input[(\@name=\"action\") and (\@value=\"Weiter\")]");

      $cleanedupdb .= "     $field\n";

    }

  }

$sel->open($lxtest->{lxadmin});

print "Unlock the system\n";

$sel->click("//input[(\@name=\"action\") and (\@value=\"System entsperren\")]");

$sel->wait_for_page_to_load($lxtest->{timeout});

$cleanedupdb = "none.\n" if ($cleanedupdb eq '');

$cleanedupusers = "none.\n" if ($cleanedupusers eq '');

print "Ready. \nReport:\n--- Cleaned up Users:\n$cleanedupusers---Cleaned up Databases:\n$cleanedupdb";

$sel->stop;

exit 1;

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">

<title>ustva-Inland-linet</title>

</head>

<body>

<table cellpadding="1" cellspacing="1" border="1">

<thead>

<tr><td rowspan="1" colspan="3">ustva-Inland-linet</td></tr>

</thead><tbody>

<!--######################-->

<!--# Start Testskript-->

<!--# USTVA 2006/2007-->

<!--######################-->

<!--######################-->

<!--#  Datenbank & Benutzer-->

<!--#  Umgebung-->

<!--######################-->

<tr>

	<td>break</td>

	<td></td>

	<td></td>

</tr>

<tr>

	<td>setTimeout</td>

	<td>120000</td>

	<td></td>

</tr>

<!--Create new database-->

<tr>

	<td>selectFrame</td>

	<td>relative=top</td>

	<td></td>

</tr>

<tr>

	<td>open</td>

	<td>https://lx-office.linet-services.de/svn-installationen/unstable/admin.pl?path=bin/mozilla/&rpw=roXyrPyqv9wE2&nextsub=list_users&action=Weiter</td>

	<td></td>

</tr>

<tr>

	<td>assertTitle</td>

	<td>Lx-Office ERP Administration -</td>

	<td></td>

</tr>

<tr>

	<td>clickAndWait</td>

	<td>document.forms[0].action[2]</td>

	<td></td>

</tr>

<tr>

	<td>assertTitle</td>

	<td>Lx-Office ERP / Datenbankadministration -</td>

	<td></td>

</tr>

<tr>

	<td>selectWindow</td>

	<td>null</td>

	<td></td>

</tr>

<tr>

	<td>clickAndWait</td>

	<td>action</td>

	<td></td>