Attachment 96503 Details for Bug 24267 – Bug 24267: Unit tests

[patch] Bug 24267: Unit tests

Bug-24267-Unit-tests.patch (text/plain), 2.00 KB, created by Marcel de Rooy on 2019-12-20 07:20:26 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Marcel de Rooy

Created: 2019-12-20 07:20:26 UTC

Size: 2.00 KB

patch

obsolete

>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

Actions: View | Diff | Splinter Review

Attachments on bug 24267: 96453 | 96482 | 96496 | 96497 | 96502 | 96503 | 96504 | 96741 | 96742 | 96743