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

[patch] Bug 24267: Unit tests

Bug-24267-Unit-tests.patch (text/plain), 2.03 KB, created by Jonathan Druart on 2020-01-02 13:06:09 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jonathan Druart

Created: 2020-01-02 13:06:09 UTC

Size: 2.03 KB

patch

obsolete

>From e1663b9747b6606e17f494700f5f617c7c61b53e 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
>
>Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
>
>Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
>---
> 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