Automatisierte Syntaxtests, Framework für spätere Modultests.

[mfinanz.git] / t / selenium / cleanup.pl

diff --git a/t/selenium/cleanup.pl b/t/selenium/cleanup.pl
deleted file mode 100644 (file)
index 7e6bf6d..0000000
--- a/t/selenium/cleanup.pl
+++ /dev/null
@@ -1,157 +0,0 @@
-#=====================================================================
-# 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;
-
-