Koha/t/db_dependent/selenium/administration_tasks.t
Jonathan Druart bad8c7089a
Bug 24801: (follow-up) Display all the libraries - Selenium fix
We have it failing now for the delete link..
14:26:50 selenium_1   | 05:26:50.451 WARN - Exception: Unable to locate element: {"method":"xpath","selector":"//*[@id=\"delete_library_UT_BC\"]"}

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
2020-04-08 08:16:13 +01:00

224 lines
9.3 KiB
Perl

#!/usr/bin/perl
# 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>.
#This selenium test tests the Koha Administration module functionality including adding circ rules, item types and modifying frameworks
#Note: If you are testing this on kohadevbox with selenium installed in kohadevbox then you need to set the staffClientBaseURL to localhost:8080 and the OPACBaseURL to http://localhost:80
use Modern::Perl;
use C4::Context;
use Test::More tests => 3;
use t::lib::Selenium;
use t::lib::TestBuilder;
my $builder = t::lib::TestBuilder->new;
my $login = $ENV{KOHA_USER} || 'koha';
my $itemtype = 'UT_DVD';
my $frameworkcode = 'UTFW'; # frameworkcode is only 4 characters max!
my $branchcode = 'UT_BC';
my $av_category = 'AV_CAT_TEST';
my $category_code = 'PATRON_CAT';
our ($cleanup_needed);
SKIP: {
eval { require Selenium::Remote::Driver; };
skip "Selenium::Remote::Driver is needed for selenium tests.", 1 if $@;
$cleanup_needed = 1;
my $s = t::lib::Selenium->new;
my $driver = $s->driver;
my $mainpage = $s->base_url . q|mainpage.pl|;
$driver->get($mainpage);
like( $driver->get_title(), qr(Log in to Koha), );
$s->auth;
{ # Item types
# Navigate to the Administration area and create an item type
$s->click( { href => '/admin/admin-home.pl', main => 'container-main' } )
; # Koha administration
$s->click( { href => '/admin/itemtypes.pl', main_class => 'main container-fluid' } ); # Item Types
$s->click( { href => '/admin/itemtypes.pl?op=add_form', main_class => 'main container-fluid' } )
; # New item type
$s->fill_form(
{ itemtype => $itemtype, description => "Digital Optical Disc" } );
$s->submit_form;
$s->click(
{
href => '/admin/itemtypes.pl?op=add_form&itemtype=' . $itemtype,
main_class => 'main container-fluid'
}
); # New item type
};
{ # Circulation/fine rules
my $itype = $builder->build_object({ class => "Koha::ItemTypes" });
$driver->get($mainpage);
$s->click( { href => '/admin/admin-home.pl', main => 'container-main' } )
; # Koha administration
$s->click( { href => '/admin/smart-rules.pl', main_class => 'main container-fluid' } )
; # Circulation and fines rules
my $elt = $driver->find_element('//tr[@id="edit_row"]/td/select[@id="matrixitemtype"]/option[@value="'.$itype->itemtype.'"]');
is( $elt->get_text(),$itype->description,"Our new itemtype is in the list");
$elt->click();
$elt = $driver->find_element('//tr[@id="edit_row"]/td[@class="actions"]/button[@type="submit"]');
$elt->click();
$elt = $driver->find_elements('//table[@id="default-circulation-rules"]/tbody/tr/td[contains(text(),"'.$itype->description.'")]/following-sibling::td/span[text() = "Unlimited"]');
is( @$elt, 5, "We have unlimited checkouts and holds" );
#Clean up
Koha::CirculationRules->search( { itemtype => $itype->itemtype } )->delete;
$itype->delete;
# TODO Create more smart rules navigation here
};
{ # Biblio frameworks
$driver->get($mainpage);
$s->click( { href => '/admin/admin-home.pl', main => 'container-main' } )
; # Koha administration
$s->click( { href => '/admin/biblio_framework.pl', main_class => 'main container-fluid' } )
; # MARC bibliographic framework
$s->click(
{ href => '/admin/biblio_framework.pl?op=add_form', main_class => 'main container-fluid' } )
; # New framework
$s->fill_form(
{
frameworkcode => $frameworkcode,
description => 'just a description'
}
);
$s->submit_form;
$s->click( { id => 'frameworkactions' . $frameworkcode } );
$s->click(
{
href => 'marctagstructure.pl?frameworkcode=' . $frameworkcode,
main_class => 'main container-fluid'
}
); # MARC structure # FIXME '/admin/' is missing in the url
# TODO Click on OK to create the MARC structure
};
{ #Libraries
$driver->get($mainpage);
$s->click( { href => '/admin/admin-home.pl', main => 'container-main' } )
; # Koha administration
$s->click( { href => '/admin/branches.pl', main_class => 'main container-fluid' } )
; # Libraries and groups
$s->click( { href => '/admin/branches.pl?op=add_form', main_class => 'main container-fluid' } )
; # New library
$s->fill_form( { branchcode => $branchcode, branchname => 'my library' } );
$s->submit_form;
# Select "Show all" in the datatable "Show x entries" dropdown list to make sure our library is not hidden
$driver->find_element('//select[@name="libraries_length"]/option[@value="-1"]')->click;
$s->click(
{
href => '/admin/branches.pl?op=add_form&branchcode=' . $branchcode,
main_class => 'main container-fluid'
}
); # Edit
$s->fill_form( { branchname => 'another branchname' } );
$s->submit_form;
# Select "Show all" in the datatable "Show x entries" dropdown list to make sure our library is not hidden
$driver->find_element('//select[@name="libraries_length"]/option[@value="-1"]')->click;
$s->click(
{
id => 'delete_library_'.$branchcode,
}
); # Delete
};
{ #Authorized values
$driver->get($mainpage);
$s->click( { href => '/admin/admin-home.pl', main => 'container-main' } ); #Koha administration
$s->click( { href => '/admin/authorised_values.pl', main_class => 'main container-fluid' } ); #Authorized values
$s->click( { href => { 'ends-with' => '/admin/authorised_values.pl?op=add_form' }, main_class => 'main container-fluid' } ); # New category
$s->fill_form( { category => $av_category } );
$s->submit_form;
$s->click(
{
href => '/admin/authorised_values.pl?op=add_form&category=' . $av_category,
main_class => 'main container-fluid'
}
); # New authorised value for ...
$s->fill_form(
{
authorised_value => "$av_category" . "_xxx",
lib => "This is a description for staff",
lib_opac => "This is a description for OPAC"
}
);
$s->submit_form;
my $dbh = C4::Context->dbh;
my ( $av_id ) = $dbh->selectrow_array(q|
SELECT id FROM authorised_values WHERE category=?|, undef, $av_category );
$s->click(
{
href => '/admin/authorised_values.pl?op=delete&searchfield=' . $av_category . '&id=' . $av_id,
main_class => 'main container-fluid'
}
);
$s->driver->accept_alert; # Accept the modal "Are you sure you want to delete this authorized value?"
};
{ # Patron categories
$driver->get($mainpage);
$s->click( { href => '/admin/admin-home.pl', main => 'container-main' } ); # Koha administration
$s->click( { href => '/admin/categories.pl', main_class => 'main container-fluid' } ); # Patron categories
$s->click( { href => '/admin/categories.pl?op=add_form', main_class => 'main container-fluid' } ); # New patron category
$s->fill_form( { categorycode => $category_code, description => 'Test category', enrolmentperiod => 12, category_type => 'A' } );
$s->submit_form;
# Select "Show all" in the datatable "Show x entries" dropdown list to make sure our category is not hidden
$driver->find_element('//select[@name="patron_categories_length"]/option[@value="-1"]')->click;
$s->click(
{
href => '/admin/categories.pl?op=delete_confirm&categorycode=' . $category_code,
main_class => 'main container-fluid'
}
); # Delete button
$s->submit_form; # Delete this category
# TODO Make sure the category has been deleted
};
$driver->quit();
}
END {
cleanup() if $cleanup_needed;
};
sub cleanup {
my $dbh = C4::Context->dbh;
$dbh->do(q|DELETE FROM itemtypes WHERE itemtype=?|, undef, $itemtype);
$dbh->do(q|DELETE FROM biblio_framework WHERE frameworkcode=?|, undef, $frameworkcode);
$dbh->do(q|DELETE FROM branches WHERE branchcode=?|, undef, $branchcode);
$dbh->do(q|DELETE FROM authorised_value_categories WHERE category_name=?|, undef, $av_category);
$dbh->do(q|DELETE FROM categories WHERE categorycode=?|, undef, $category_code);
}