From 633c0d94789b6dc95684e221f13f91c06104bf74 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

---
 t/db_dependent/Breeding.t | 32 +++++++++++++++++++++++++++++++-
 1 file changed, 31 insertions(+), 1 deletion(-)

diff --git a/t/db_dependent/Breeding.t b/t/db_dependent/Breeding.t
index 0aad4e4d02..37825afabd 100755
--- a/t/db_dependent/Breeding.t
+++ b/t/db_dependent/Breeding.t
@@ -20,9 +20,11 @@
 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 );
+use t::lib::TestBuilder;
+
 
 use C4::Context;
 use C4::Breeding;
@@ -57,6 +59,33 @@ subtest '_add_rowdata' => sub {
     test_add_rowdata();
 };
 
+subtest ImportBreedingAuth => sub {
+    plan tests => 4;
+
+    my $builder = t::lib::TestBuilder->new;
+    my $test = $builder->build_sample_biblio();
+    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 $test_1 = $builder->build_sample_biblio();
+    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 {
@@ -237,3 +266,4 @@ sub test_add_rowdata {
    # Test repeatble tags,the trailing whitespace is a normal side-effect of _add_custom_row_data
    is_deeply(\$returned_row->{"035\$a"}, \["First 035 ", "Second 035 "],"_add_rowdata supports repeatable tags");
 }
+
-- 
2.11.0