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