gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 29437: Unit tests 

Signed-off-by: David Nind <david@davidnind.com>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
This commit is contained in:
Nick Clemens 2021-11-10 13:33:41 +00:00 committed by Kyle Hall
parent b03d09bb32
commit 4c2fc8eac5
1 changed files with 36 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
t/db_dependent/Breeding.t
View File

@ -26,10 +26,11 @@
use Modern::Perl;
use File::Temp qw/tempfile/;
use Test::More tests => 5;
use Test::More tests => 6;
use Test::Warn;
use t::lib::Mocks qw( mock_preference );
use t::lib::TestBuilder;
use C4::Context;
use C4::Breeding;
@ -37,6 +38,7 @@ use Koha::Database;
use Koha::XSLT::Base;
my $schema = Koha::Database->new->schema;
my $builder = t::lib::TestBuilder->new;
$schema->storage->txn_begin;
#Group 1: testing _build_query and _translate_query (part of Z3950Search)
@ -84,6 +86,39 @@ subtest ImportBreedingAuth => sub {
isnt( $breedingid, $breedingid_2, "For a new record, we get a new id");
};
subtest BreedingSearch => sub {
plan tests => 5;
my $import_biblio_1 = $builder->build({ source => 'ImportBiblio', value => {
title => 'Unique title the first adventure',
author => 'Firstnamey Surnamey',
isbn => '1407239961'
}
});
my $import_biblio_2 = $builder->build({ source => 'ImportBiblio', value => {
title => 'Unique title the adventure continues',
author => 'Firstnamey Surnamey',
isbn => '9798200834976'
}
});
my ($count, @results) = C4::Breeding::BreedingSearch("Firstnamey Surnamey");
is( $count, 2, "Author search returns two results");
($count, @results) = C4::Breeding::BreedingSearch("first adventure");
is( $count, 1, "Title search returns one result");
($count, @results) = C4::Breeding::BreedingSearch("adventure continues");
is( $count, 1, "Title search returns one result");
($count, @results) = C4::Breeding::BreedingSearch("9781407239965");
is( $count, 1, "ISBN search matches normalized DB value");
($count, @results) = C4::Breeding::BreedingSearch("9798200834976");
is( $count, 1, "ISBN search for 13 digit ISBN matches 13 digit ISBN in database");
# FIXME - Import doesn't currently store these, but this proves the search works
};
$schema->storage->txn_rollback;
#-------------------------------------------------------------------------------