From c466779d7ec62063d6202ea2689f0d631d7cc87c Mon Sep 17 00:00:00 2001
From: Nick Clemens <nick@bywatersolutions.com>
Date: Thu, 19 Dec 2019 17:37:23 +0000
Subject: [PATCH] Bug 24267: Unit tests
Content-Type: text/plain; charset=utf-8

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
---
 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