From e1663b9747b6606e17f494700f5f617c7c61b53e Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Thu, 19 Dec 2019 17:37:23 +0000 Subject: [PATCH] Bug 24267: Unit tests Signed-off-by: Marcel de Rooy Signed-off-by: Jonathan Druart --- t/db_dependent/Breeding.t | 26 +++++++++++++++++++++++++- 1 file changed, 25 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Breeding.t b/t/db_dependent/Breeding.t index 0aad4e4d02..4703929f81 100755 --- a/t/db_dependent/Breeding.t +++ b/t/db_dependent/Breeding.t @@ -20,7 +20,7 @@ use Modern::Perl; use FindBin; -use Test::More tests => 4; +use Test::More tests => 5; use Test::Warn; use t::lib::Mocks qw( mock_preference ); @@ -57,6 +57,30 @@ subtest '_add_rowdata' => sub { test_add_rowdata(); }; +subtest ImportBreedingAuth => sub { + plan tests => 4; + + my $record = MARC::Record->new(); + $record->append_fields( + MARC::Field->new('001', '4815162342'), + MARC::Field->new('100', ' ', ' ', a => 'Jansson, Tove'), + ); + + my $breedingid = C4::Breeding::ImportBreedingAuth($record,"kidclamp","UTF8"); + ok( $breedingid, "We got a breeding id back"); + my $breedingid_1 = C4::Breeding::ImportBreedingAuth($record,"kidclamp","UTF8"); + is( $breedingid, $breedingid_1, "For the same record, we get the same id"); + $breedingid_1 = C4::Breeding::ImportBreedingAuth($record,"marcelr","UTF8"); + is( $breedingid, $breedingid_1, "For the same record in a different file, we get a new id"); + my $record_1 = MARC::Record->new(); + $record_1->append_fields( + MARC::Field->new('001', '8675309'), + MARC::Field->new('100', ' ', ' ', a => 'Cooper, Susan'), + ); + my $breedingid_2 = C4::Breeding::ImportBreedingAuth($record_1,"kidclamp","UTF8"); + isnt( $breedingid, $breedingid_2, "For a new record, we get a new id"); +}; + #------------------------------------------------------------------------------- sub test_build_translate_query { -- 2.11.0