t/db_dependent/selenium/patrons_search.t

   1 #!/usr/bin/perl
   2
   3 # This file is part of Koha.
   4 #
   5 # Koha is free software; you can redistribute it and/or modify it
   6 # under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; either version 3 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # Koha is distributed in the hope that it will be useful, but
  11 # WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  13 # GNU General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  17
  18 use Modern::Perl;
  19
  20 use C4::Context;
  21
  22 use utf8;
  23 use Test::More tests => 1;
  24 use Test::MockModule;
  25
  26 use C4::Context;
  27 use Koha::AuthUtils;
  28 use t::lib::Mocks;
  29 use t::lib::Selenium;
  30 use t::lib::TestBuilder;
  31
  32 eval { require Selenium::Remote::Driver; };
  33 skip "Selenium::Remote::Driver is needed for selenium tests.", 1 if $@;
  34
  35 my $s             = t::lib::Selenium->new;
  36 my $driver        = $s->driver;
  37 my $opac_base_url = $s->opac_base_url;
  38 my $base_url      = $s->base_url;
  39 my $builder       = t::lib::TestBuilder->new;
  40
  41 our @cleanup;
  42 subtest 'Search patrons' => sub {
  43     plan tests => 6;
  44
  45     my @patrons;
  46     my $borrowernotes           = q|<strong>just 'a" note</strong> \123 ❤|;
  47     my $borrowernotes_displayed = q|just 'a" note \123 ❤|;
  48     my $branchname = q|<strong>just 'another" library</strong> \123 ❤|;
  49     my $firstname  = q|<strong>fir's"tname</strong> \123 ❤|;
  50     my $address    = q|<strong>add'res"s</strong> \123 ❤|;
  51     my $email      = q|a<strong>bad_email</strong>@example\123 ❤.com|;
  52     my $patron_category = $builder->build_object(
  53         { class => 'Koha::Patron::Categories', category_type => 'A' } );
  54     my $library = $builder->build_object(
  55         { class => 'Koha::Libraries', value => { branchname => $branchname } }
  56     );
  57     for my $i ( 1 .. 25 ) {
  58         push @patrons,
  59           $builder->build_object(
  60             {
  61                 class => 'Koha::Patrons',
  62                 value => {
  63                     surname       => "test_patron_" . $i++,
  64                     firstname     => $firstname,
  65                     categorycode  => $patron_category->categorycode,
  66                     branchcode    => $library->branchcode,
  67                     borrowernotes => $borrowernotes,
  68                     address       => $address,
  69                     email         => $email,
  70                 }
  71             }
  72           );
  73     }
  74
  75     $s->auth;
  76     $driver->get( $base_url . "/members/members-home.pl" );
  77     $s->fill_form( { searchmember_filter => 'test_patron' } );
  78     $s->submit_form;
  79     my $first_patron = $patrons[0];
  80
  81     my @td = $driver->find_elements('//table[@id="memberresultst"]/tbody/tr/td');
  82     like ($td[2]->get_text, qr[\Q$firstname\E],
  83         'Column "Name" should be the 3rd and contain the firstname correctly filtered'
  84     );
  85     like ($td[2]->get_text, qr[\Q$address\E],
  86         'Column "Name" should be the 3rd and contain the address correctly filtered'
  87     );
  88     like ($td[2]->get_text, qr[\Q$email\E],
  89         'Column "Name" should be the 3rd and contain the email address correctly filtered'
  90     );
  91     is( $td[5]->get_text, $branchname,
  92         'Column "Library" should be the 6th and contain the html tags - they have been html filtered'
  93     );
  94     is( $td[9]->get_text, $borrowernotes_displayed,
  95         'Column "Circ note" should be the 10th and not contain the html tags - they have not been html filtered'
  96     );
  97
  98     $driver->find_element(
  99             '//a[@href="/cgi-bin/koha/members/memberentry.pl?op=modify&destination=circ&borrowernumber='
 100           . $first_patron->borrowernumber
 101           . '"]' )->click;
 102     is(
 103         $driver->get_title,
 104         sprintf(
 105             "Koha › Patrons › Modify patron %s %s (%s)",
 106             $first_patron->firstname, $first_patron->surname,
 107             $first_patron->category->description,
 108         )
 109     );
 110     push @cleanup, $_ for @patrons;
 111     push @cleanup, $library;
 112     push @cleanup, $patron_category;
 113 };
 114
 115 END {
 116     $_->delete for @cleanup;
 117 }