Bug 12419: (QA followup) regression tests
Changes to searchResults deserve unit tests. Edit: minor tweaks: - Remove warning in line 702 - Modernize - License added - "This file is a stub" removed Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com> Signed-off-by: Galen Charlton <gmc@esilibrary.com>
This commit is contained in:
parent
4dab17e936
commit
fdb55ce2fc
|
|
@ -1,10 +1,22 @@
|
|||
#!/usr/bin/perl
|
||||
#
|
||||
# This Koha test module is a stub!
|
||||
# Add more tests here!!!
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
# 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>.
|
||||
|
||||
use Modern::Perl;
|
||||
|
||||
use utf8;
|
||||
|
||||
use YAML;
|
||||
|
|
@ -675,7 +687,7 @@ if ( $indexing_mode eq 'dom' ) {
|
|||
# make one of the test items appear to be in transit
|
||||
my $circ_module = new Test::MockModule('C4::Circulation');
|
||||
$circ_module->mock('GetTransfers', sub {
|
||||
my $itemnumber = shift;
|
||||
my $itemnumber = shift // -1;
|
||||
if ($itemnumber == 11) {
|
||||
return ('2013-07-19', 'MPL', 'CPL');
|
||||
} else {
|
||||
|
|
@ -833,6 +845,12 @@ if ( $indexing_mode eq 'dom' ) {
|
|||
is($newresults[0]->{biblionumber}, '300', 'Over-large bib record has the correct biblionumber (bug 11096)');
|
||||
like($newresults[0]->{notes}, qr/This is large note #550/, 'Able to render the notes field for over-large bib record (bug 11096)');
|
||||
|
||||
# notforloancount should be returned as part of searchResults output
|
||||
ok( defined $newresults[0]->{notforloancount},
|
||||
'\'notforloancount\' defined in searchResults output (Bug 12419)');
|
||||
is( $newresults[0]->{notforloancount}, 2,
|
||||
'\'notforloancount\' == 2 (Bug 12419)');
|
||||
|
||||
# verify that we don't attempt to sort if no results were returned
|
||||
# because of a query error
|
||||
warning_like {( undef, $results_hashref, $facets_loop ) =
|
||||
|
|
@ -914,12 +932,12 @@ sub run_unimarc_search_tests {
|
|||
}
|
||||
|
||||
subtest 'MARC21 + GRS-1' => sub {
|
||||
plan tests => 104;
|
||||
plan tests => 106;
|
||||
run_marc21_search_tests('grs1');
|
||||
};
|
||||
|
||||
subtest 'MARC21 + DOM' => sub {
|
||||
plan tests => 104;
|
||||
plan tests => 106;
|
||||
run_marc21_search_tests('dom');
|
||||
};
|
||||
|
||||
|
|
|
|||
|
|
@ -1659,6 +1659,18 @@
|
|||
<datafield tag="500" ind1=" " ind2=" ">
|
||||
<subfield code="a">This is a note. This is a large note. This is note that is so large, the margins of this terminal window are not nearly wide enough to contain it. This is large note #550</subfield>
|
||||
</datafield>
|
||||
<datafield tag="952" ind1=" " ind2=" ">
|
||||
<subfield code="p">aaabbb</subfield>
|
||||
<subfield code="7">1</subfield>
|
||||
</datafield>
|
||||
<datafield tag="952" ind1=" " ind2=" ">
|
||||
<subfield code="p">bbbccc</subfield>
|
||||
<subfield code="7">0</subfield>
|
||||
</datafield>
|
||||
<datafield tag="952" ind1=" " ind2=" ">
|
||||
<subfield code="p">cccddd</subfield>
|
||||
<subfield code="7">1</subfield>
|
||||
</datafield>
|
||||
<datafield tag="999" ind1=" " ind2=" ">
|
||||
<subfield code="c">300</subfield>
|
||||
<subfield code="d">300</subfield>
|
||||
|
|
|
|||
|
|
@ -1658,6 +1658,18 @@
|
|||
<datafield tag="500" ind1=" " ind2=" ">
|
||||
<subfield code="a">This is a note. This is a large note. This is note that is so large, the margins of this terminal window are not nearly wide enough to contain it. This is large note #550</subfield>
|
||||
</datafield>
|
||||
<datafield tag="952" ind1=" " ind2=" ">
|
||||
<subfield code="p">aaabbb</subfield>
|
||||
<subfield code="7">1</subfield>
|
||||
</datafield>
|
||||
<datafield tag="952" ind1=" " ind2=" ">
|
||||
<subfield code="p">bbbccc</subfield>
|
||||
<subfield code="7">0</subfield>
|
||||
</datafield>
|
||||
<datafield tag="952" ind1=" " ind2=" ">
|
||||
<subfield code="p">cccddd</subfield>
|
||||
<subfield code="7">1</subfield>
|
||||
</datafield>
|
||||
<datafield tag="999" ind1=" " ind2=" ">
|
||||
<subfield code="c">300</subfield>
|
||||
<subfield code="d">300</subfield>
|
||||
|
|
|
|||
Loading…
Reference in New Issue