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         {
  54             class => 'Koha::Patron::Categories',
  55             value => { category_type => 'A' }
  56         }
  57     );
  58     my $library = $builder->build_object(
  59         { class => 'Koha::Libraries', value => { branchname => $branchname } }
  60     );
  61     for my $i ( 1 .. 25 ) {
  62         push @patrons,
  63           $builder->build_object(
  64             {
  65                 class => 'Koha::Patrons',
  66                 value => {
  67                     surname       => "test_patron_" . $i++,
  68                     firstname     => $firstname,
  69                     categorycode  => $patron_category->categorycode,
  70                     branchcode    => $library->branchcode,
  71                     borrowernotes => $borrowernotes,
  72                     address       => $address,
  73                     email         => $email,
  74                 }
  75             }
  76           );
  77     }
  78
  79     $s->auth;
  80     $driver->get( $base_url . "/members/members-home.pl" );
  81     $s->fill_form( { searchmember_filter => 'test_patron' } );
  82     $s->submit_form;
  83     my $first_patron = $patrons[0];
  84
  85     my @td = $driver->find_elements('//table[@id="memberresultst"]/tbody/tr/td');
  86     like ($td[2]->get_text, qr[\Q$firstname\E],
  87         'Column "Name" should be the 3rd and contain the firstname correctly filtered'
  88     );
  89     like ($td[2]->get_text, qr[\Q$address\E],
  90         'Column "Name" should be the 3rd and contain the address correctly filtered'
  91     );
  92     like ($td[2]->get_text, qr[\Q$email\E],
  93         'Column "Name" should be the 3rd and contain the email address correctly filtered'
  94     );
  95     is( $td[5]->get_text, $branchname,
  96         'Column "Library" should be the 6th and contain the html tags - they have been html filtered'
  97     );
  98     is( $td[9]->get_text, $borrowernotes_displayed,
  99         'Column "Circ note" should be the 10th and not contain the html tags - they have not been html filtered'
 100     );
 101
 102     $driver->find_element(
 103             '//a[@href="/cgi-bin/koha/members/memberentry.pl?op=modify&destination=circ&borrowernumber='
 104           . $first_patron->borrowernumber
 105           . '"]' )->click;
 106     is(
 107         $driver->get_title,
 108         sprintf(
 109             "Koha › Patrons › Modify patron %s %s (%s)",
 110             $first_patron->firstname, $first_patron->surname,
 111             $first_patron->category->description,
 112         )
 113     );
 114     push @cleanup, $_ for @patrons;
 115     push @cleanup, $library;
 116     push @cleanup, $patron_category;
 117 };
 118
 119 END {
 120     $_->delete for @cleanup;
 121 }