Koha/t/lib/Selenium.pm
Jonathan Druart 67f6ceecd3 Bug 25811: (follow-up) Debug - Paste the source of the page
Wide character in syswrite at /usr/share/perl5/File/Slurp.pm line 506.

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
2020-07-31 12:56:47 +02:00

303 lines
10 KiB
Perl

package t::lib::Selenium;
# This file is part of Koha.
#
# Koha 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 3 of the License, or
# (at your option) any later version.
#
# Koha 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 Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
use Carp qw( croak );
use JSON qw( from_json );
use File::Slurp qw( write_file );
use C4::Context;
use base qw(Class::Accessor);
__PACKAGE__->mk_accessors(qw(login password base_url opac_base_url selenium_addr selenium_port driver));
sub capture {
my ( $class, $driver ) = @_;
$driver->get_page_source;
write_file('/tmp/page_source_from_selenium', {binmode => ':utf8'}, $driver->get_page_source );
my $gdf3_url = qx(cat /tmp/page_source_from_selenium | curl --data-binary \@- https://gdf3.com);
print STDERR "\nPage source pasted at $gdf3_url";
my $lutim_server = q|https://pic.infini.fr/|; # Thanks Infini!
$driver->capture_screenshot('selenium_failure.png');
my $from_json = from_json qx{curl -s -F "format=json" -F "file=\@selenium_failure.png" -F "delete-day=1" $lutim_server};
if ( $from_json ) {
print STDERR "\nSCREENSHOT: $lutim_server/" . $from_json->{msg}->{short} . "\n";
}
}
sub new {
my ( $class, $params ) = @_;
my $self = {};
my $config = $class->config;
$self->{login} = $params->{login} || $config->{login};
$self->{password} = $params->{password} || $config->{password};
$self->{base_url} = $params->{base_url} || $config->{base_url};
$self->{opac_base_url} = $params->{opac_base_url} || $config->{opac_base_url};
$self->{selenium_addr} = $params->{selenium_addr} || $config->{selenium_addr};
$self->{selenium_port} = $params->{selenium_port} || $config->{selenium_port};
$self->{driver} = Selenium::Remote::Driver->new(
port => $self->{selenium_port},
remote_server_addr => $self->{selenium_addr},
);
bless $self, $class;
$self->add_error_handler;
return $self;
}
sub add_error_handler {
my ( $self ) = @_;
$self->{driver}->error_handler(
sub {
my ( $driver, $selenium_error ) = @_;
print STDERR "\nSTRACE:";
my $i = 1;
while ( (my @call_details = (caller($i++))) ){
print STDERR "\t" . $call_details[1]. ":" . $call_details[2] . " in " . $call_details[3]."\n";
}
print STDERR "\n";
$self->capture( $driver );
croak $selenium_error;
}
);
}
sub remove_error_handler {
my ( $self ) = @_;
$self->{driver}->error_handler( sub {} );
}
sub config {
return {
login => $ENV{KOHA_USER} || 'koha',
password => $ENV{KOHA_PASS} || 'koha',
base_url => ( $ENV{KOHA_INTRANET_URL} || C4::Context->preference("staffClientBaseURL") ) . "/cgi-bin/koha/",
opac_base_url => ( $ENV{KOHA_OPAC_URL} || C4::Context->preference("OPACBaseURL") ) . "/cgi-bin/koha/",
selenium_addr => $ENV{SELENIUM_ADDR} || 'localhost',
selenium_port => $ENV{SELENIUM_PORT} || 4444,
};
}
sub auth {
my ( $self, $login, $password ) = @_;
$login ||= $self->login;
$password ||= $self->password;
my $mainpage = $self->base_url . 'mainpage.pl';
$self->driver->get($mainpage);
$self->fill_form( { userid => $login, password => $password } );
my $login_button = $self->driver->find_element('//input[@id="submit"]');
$login_button->submit();
}
sub opac_auth {
my ( $self, $login, $password ) = @_;
$login ||= $self->login;
$password ||= $self->password;
my $mainpage = $self->opac_base_url . 'opac-main.pl';
$self->driver->get($mainpage . q|?logout.x=1|); # Logout before, to make sure we will see the login form
$self->driver->get($mainpage);
$self->fill_form( { userid => $login, password => $password } );
$self->submit_form;
}
sub fill_form {
my ( $self, $values ) = @_;
while ( my ( $id, $value ) = each %$values ) {
my $element = $self->driver->find_element('//*[@id="'.$id.'"]');
my $tag = $element->get_tag_name();
if ( $tag eq 'input' ) {
$self->driver->find_element('//input[@id="'.$id.'"]')->send_keys($value);
} elsif ( $tag eq 'select' ) {
$self->driver->find_element('//select[@id="'.$id.'"]/option[@value="'.$value.'"]')->click;
}
}
}
sub submit_form {
my ( $self ) = @_;
my $default_submit_selector = '//fieldset[@class="action"]/input[@type="submit"]';
$self->click_when_visible( $default_submit_selector );
}
sub click {
my ( $self, $params ) = @_;
my $xpath_selector;
if ( exists $params->{main} ) {
$xpath_selector = '//div[@id="'.$params->{main}.'"]';
} elsif ( exists $params->{main_class} ) {
$xpath_selector = '//div[@class="'.$params->{main_class}.'"]';
}
if ( exists $params->{href} ) {
if ( ref( $params->{href} ) ) {
for my $k ( keys %{ $params->{href} } ) {
if ( $k eq 'ends-with' ) {
# ends-with version for xpath version 1
my $ends_with = $params->{href}{"ends-with"};
$xpath_selector .= '//a[substring(@href, string-length(@href) - string-length("'.$ends_with.'") + 1 ) = "'.$ends_with.'"]';
# ends-with version for xpath version 2
#$xpath_selector .= '//a[ends-with(@href, "'.$ends_with.'") ]';
} else {
die "Only ends-with is supported so far ($k)";
}
}
} else {
$xpath_selector .= '//a[contains(@href, "'.$params->{href}.'")]';
}
}
if ( exists $params->{id} ) {
$xpath_selector .= '//*[@id="'.$params->{id}.'"]';
}
$self->click_when_visible( $xpath_selector );
}
sub click_when_visible {
my ( $self, $xpath_selector ) = @_;
$self->driver->set_implicit_wait_timeout(20000);
my ($visible, $elt);
while ( not $visible ) {
$elt = $self->driver->find_element($xpath_selector);
$visible = $elt->is_displayed;
$self->driver->pause(1000) unless $visible;
}
$elt->click;
}
=head1 NAME
t::lib::Selenium - Selenium helper module
=head1 SYNOPSIS
my $s = t::lib::Selenium->new;
my $driver = $s->driver;
my $base_url = $s->base_url;
$s->auth;
$driver->get($s->base_url . 'mainpage.pl');
$s->fill_form({ input_id => 'value' });
=head1 DESCRIPTION
The goal of this module is to group the different actions we need
when we use automation test using Selenium
=head1 METHODS
=head2 new
my $s = t::lib::Selenium->new;
Constructor - Returns the object Selenium
You can pass login, password, base_url, selenium_addr, selenium_port
If not passed, the environment variables will be used
KOHA_USER, KOHA_PASS, KOHA_INTRANET_URL, SELENIUM_ADDR SELENIUM_PORT
Or koha, koha, syspref staffClientBaseURL, localhost, 4444
=head2 auth
$s->auth;
Will login into Koha.
=head2 fill_form
$driver->get($url)
$s->fill_form({
input_id => 'value',
element_id => 'other_value',
});
Will fill the different elements of a form.
The keys must be element ids (input and select are supported so far)
The values must a string.
=head2 submit_form
$s->submit_form;
It will submit the form using the submit button present in in the fieldset with a clas="action".
It should be the default way. If it does not work you should certainly fix the Koha interface.
=head2 click
$s->click
This is a bit dirty for now but will evolve depending on the needs
3 parameters possible but only the following 2 forms are used:
$s->click({ href => '/module/script.pl?foo=bar', main => 'doc3' }); # Sometimes we have doc or doc3. To make sure we are not going to hit a link in the header
$s->click({ id => 'element_id });
=head2 click_when_visible
$c->click_when_visible
Should always be called to avoid the "An element could not be located on the page" error
=head2 capture
$c->capture
Capture a screenshot and upload it using the excellent lut.im service provided by framasoft
The url of the image will be printed on STDERR (it should be better to return it instead)
=head2 add_error_handler
$c->add_error_handler
Add our specific error handler to the driver.
It will displayed a trace as well as capture a screenshot of the current screen.
So only case you should need it is after you called remove_error_handler
=head2 remove_error_handler
$c->remove_error_handler
Do *not* call this method if you are not aware of what it will do!
It will remove any kinds of error raised by the driver.
It can be useful in some cases, for instance if you want to make sure something will not happen and that could make the driver exploses otherwise.
You certainly should call it for only one statement then must call add_error_handler right after.
=head1 AUTHORS
Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Alex Buckley <alexbuckley@catalyst.net.nz>
Koha Development Team
=head1 COPYRIGHT
Copyright 2017 - Koha Development Team
=head1 LICENSE
This file is part of Koha.
Koha 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 3 of the License, or (at your option) any later version.
Koha 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 Koha; if not, see <http://www.gnu.org/licenses>.
=cut
1;