Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 29690: Add selenium test

Browse source 
Run prove t/db_dependent/selenium/regressions.t on KTD with selenium

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
Jonathan Druart 2021-12-15 08:24:16 +01:00 committed by Fridolin Somers
parent d9da01cd9b
commit 78cb924b12
1 changed files with 35 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
t/db_dependent/selenium/regressions.t
View file

@ -20,7 +20,7 @@ use utf8;
use C4::Context;
use Test::More tests => 7;
use Test::More tests => 8;
use Test::MockModule;
use C4::Context;
@ -91,6 +91,40 @@ subtest 'OPAC - Bibliographic record detail page must contain the data-biblionum
push @cleanup, $biblio;
};
subtest 'Bibliographic record detail page must not explode even with invalid metadata' => sub {
plan tests => 2;
my $builder = t::lib::TestBuilder->new;
my $patron = $builder->build_object({ class => 'Koha::Patrons', value => { flags => 0 }});
my $mainpage = $s->base_url . q|mainpage.pl|;
$driver->get($mainpage . q|?logout.x=1|);
like( $driver->get_title(), qr(Log in to Koha), );
$s->auth;
my ( $biblionumber, $biblioitemnumber ) = add_biblio();
my $biblio = Koha::Biblios->find($biblionumber);
# Note that there are several "non xml chars" in the control fields
my $invalid_data = qq{<?xml version="1.0" encoding="UTF-8"?>
<record
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd"
xmlns="http://www.loc.gov/MARC21/slim">
<leader>00772nam0a2200277 4500</leader>
<controlfield tag="001">00aD000015937</controlfield>
<controlfield tag="004">00satmrnu0</controlfield>
<controlfield tag="008">00ar19881981bdkldan</controlfield>
</record>};
$biblio->metadata->metadata($invalid_data)->store();
$driver->get( $base_url . "/catalogue/detail.pl?biblionumber=$biblionumber" );
my $biberror = $driver->find_element('//span[@class="biberror"]')->get_text();
is( $biberror, "There is an error with this bibliographic record, the view may be degraded.");
push @cleanup, $biblio;
};
subtest 'Play sound on the circulation page' => sub {
plan tests => 1;