t/old/selenium/cleanup.pl

   1 #=====================================================================
   2 # LX-Office ERP
   3 # Copyright (C) 2006
   4 # Web http://www.lx-office.org
   5 #
   6 #=====================================================================
   7 #
   8 #  Author: Udo Spallek
   9 #   Email: udono@gmx.net
  10 #
  11 # This program is free software; you can redistribute it and/or modify
  12 # it under the terms of the GNU General Public License as published by
  13 # the Free Software Foundation; either version 2 of the License, or
  14 # (at your option) any later version.
  15 #
  16 # This program is distributed in the hope that it will be useful,
  17 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 # GNU General Public License for more details.
  20 # You should have received a copy of the GNU General Public License
  21 # along with this program; if not, write to the Free Software
  22 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  23 #======================================================================
  24 #
  25 # Selenium Cleanup Script
  26 # To clean up all the messy databases and users while debugging testcases
  27 #
  28 #######################################################################
  29   no strict;
  30   push @INC, ['/t/selenium'];
  31   use vars qw( $lxdebug $lxtest $sel );
  32   use strict;
  33   use Carp;
  34
  35   use WWW::Selenium;
  36   use IO::Socket;
  37
  38   my $cleanedupdb = '';
  39   my $cleanedupusers = '';
  40
  41   eval { require('t/lxtest.conf'); };
  42   if ($@) {
  43     print "No test configuration found in t/lxtest.conf.\n
  44     Maybe you forget to copy t/lxtest.conf.default to t/lxtest.conf. Exit test...\n";
  45   exit 0;
  46   };
  47
  48   sub server_is_running {
  49     return IO::Socket::INET->new(PeerAddr => $ENV{SRC_HOST} || $lxtest->{seleniumhost},
  50                                  PeerPort => $ENV{SRC_PORT} || $lxtest->{seleniumport},
  51                                 );
  52   }
  53   if (server_is_running) {
  54   }
  55   else {
  56     exit 0;
  57   }
  58
  59   $lxtest->{testuserlogin}   = $lxtest->{testlogin};
  60   $lxtest->{db}              = $lxtest->{db};
  61
  62   $lxtest->{lxadmin} = $lxtest->{lxbaseurl} . "admin.pl?rpw=$lxtest->{rpw}&nextsub=list_users&action=Weiter";
  63
  64   eval { $sel = WWW::Selenium->new(
  65     host => $lxtest->{seleniumhost},
  66     port => $lxtest->{seleniumport},
  67     browser => $lxtest->{seleniumbrowser},
  68     browser_url => $lxtest->{lxadmin},
  69     auto_stop => '0',
  70     );
  71   };
  72   if ($@) {
  73     print "No Selenium Server running, or wrong preferences\n\n";
  74     exit 0;
  75   }
  76
  77
  78   print "\nStarting Testdebugging Cleanup...\n";
  79
  80
  81 ### Delete user
  82
  83 $sel->start;
  84 print "Cleanup all users '$lxtest->{testuserlogin}*'\n";
  85 $sel->open($lxtest->{lxadmin});
  86
  87 my @links= $sel->get_all_links();
  88 my $testuserlogin = $lxtest->{testuserlogin};
  89
  90 foreach my $link (@links) {
  91
  92   if ($link =~ /$testuserlogin\d\d\d\d\d\d\d\d\d\d/){
  93     $sel->click("link=$lxtest->{testuserlogin}11*");
  94     $sel->wait_for_page_to_load($lxtest->{timeout});
  95     $sel->click("//input[(\@name=\"action\") and (\@value=\"Löschen\")]");
  96     $sel->wait_for_page_to_load($lxtest->{timeout});
  97     $cleanedupusers .= "     $link\n";
  98   }
  99 }
 100
 101 print "Lock the system\n";
 102 $sel->click("//input[(\@name=\"action\") and (\@value=\"System sperren\")]");
 103 $sel->wait_for_page_to_load($lxtest->{timeout});
 104
 105 print "Cleanup all test databasees: '$lxtest->{db}*'\n";
 106
 107   $sel->click("//input[(\@name=\"action\") and (\@value=\"Datenbankadministration\")]");
 108   $sel->wait_for_page_to_load($lxtest->{timeout});
 109   $sel->type("dbhost", $lxtest->{dbhost});
 110   $sel->type("dbport", $lxtest->{dbport});
 111   $sel->type("dbuser", $lxtest->{dbuser});
 112   $sel->type("dbpasswd", $lxtest->{dbpasswd});
 113
 114   $sel->click("//input[(\@name=\"action\") and (\@value=\"Datenbank löschen\")]");
 115   $sel->wait_for_page_to_load($lxtest->{timeoutlong});
 116
 117   my $field = $sel->get_body_text();
 118   my $database= $lxtest->{db};
 119   my @fields = split('  ', $field);
 120
 121
 122   foreach my $field (@fields) {
 123
 124     if ($field =~ /$database\d\d\d\d\d\d\d\d\d\d/){
 125       $sel->open($lxtest->{lxadmin});
 126       $sel->click("//input[(\@name=\"action\") and (\@value=\"Datenbankadministration\")]");
 127       $sel->wait_for_page_to_load($lxtest->{timeout});
 128       $sel->type("dbhost", $lxtest->{dbhost});
 129       $sel->type("dbport", $lxtest->{dbport});
 130       $sel->type("dbuser", $lxtest->{dbuser});
 131       $sel->type("dbpasswd", $lxtest->{dbpasswd});
 132
 133       $sel->click("//input[(\@name=\"action\") and (\@value=\"Datenbank löschen\")]");
 134       $sel->wait_for_page_to_load($lxtest->{timeoutlong});
 135       $sel->check("name=db value=$field");
 136       $sel->click("//input[(\@name=\"action\") and (\@value=\"Weiter\")]");
 137       $cleanedupdb .= "     $field\n";
 138
 139     }
 140   }
 141
 142 $sel->open($lxtest->{lxadmin});
 143 print "Unlock the system\n";
 144
 145 $sel->click("//input[(\@name=\"action\") and (\@value=\"System entsperren\")]");
 146 $sel->wait_for_page_to_load($lxtest->{timeout});
 147
 148 $cleanedupdb = "none.\n" if ($cleanedupdb eq '');
 149 $cleanedupusers = "none.\n" if ($cleanedupusers eq '');
 150
 151 print "Ready. \nReport:\n--- Cleaned up Users:\n$cleanedupusers---Cleaned up Databases:\n$cleanedupdb";
 152
 153 $sel->stop;
 154
 155 exit 1;
 156
 157