use Modern::Perl;
+use Carp qw( croak );
+use JSON qw( from_json );
+
use C4::Context;
use base qw(Class::Accessor);
-__PACKAGE__->mk_accessors(qw(login password base_url selenium_addr selenium_port driver));
+__PACKAGE__->mk_accessors(qw(login password base_url opac_base_url selenium_addr selenium_port driver));
+
+sub capture {
+ my ( $class, $driver ) = @_;
+
+ my $lutim_server = q|https://framapic.org|; # Thanks Framasoft!
+ $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 ) = @_;
$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},
);
- return bless $self, $class;
+ 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 {
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,
};
$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 ) {
}
}
+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
The goal of this module is to group the different actions we need
when we use automation test using Selenium
+
=head1 METHODS
=head2 new
The keys must be element ids (input and select are supported so far)
The values must a string.
-=head1 AUTHOR
+=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