Browse Source

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>
21.11/bug30761
Nick Clemens 2 years ago
committed by Jonathan Druart
parent
commit
80f393cc3e
  1. 37
      t/db_dependent/Breeding.t

37
t/db_dependent/Breeding.t

@ -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;
#-------------------------------------------------------------------------------

Loading…
Cancel
Save