Attachment 141091 Details for Bug 31644 – Bug 31644: Unit test

[patch] Bug 31644: Unit test

Bug-31644-Unit-test.patch (text/plain), 2.79 KB, created by Nick Clemens (kidclamp) on 2022-09-29 16:20:14 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Nick Clemens (kidclamp)

Created: 2022-09-29 16:20:14 UTC

Size: 2.79 KB

patch

obsolete

>From 3b5342fc3bd0eace5b52b1e9c22d1e34e69c0e07 Mon Sep 17 00:00:00 2001
>From: Nick Clemens <nick@bywatersolutions.com>
>Date: Thu, 29 Sep 2022 12:36:11 +0000
>Subject: [PATCH] Bug 31644: Unit test
>
>---
> t/db_dependent/MarcModificationTemplates.t | 35 ++++++++++++++++------
> 1 file changed, 26 insertions(+), 9 deletions(-)
>
>diff --git a/t/db_dependent/MarcModificationTemplates.t b/t/db_dependent/MarcModificationTemplates.t
>index 82d8a29463..14a1757c8a 100755
>--- a/t/db_dependent/MarcModificationTemplates.t
>+++ b/t/db_dependent/MarcModificationTemplates.t
>@@ -1,6 +1,6 @@
> use Modern::Perl;
> 
>-use Test::More tests => 126;
>+use Test::More tests => 127;
> 
> use Koha::Database;
> use Koha::SimpleMARC;
>@@ -691,6 +691,11 @@ sub new_record_0 {
>             a => 'Computer programming.',
>             9 => '462',
>         ),
>+        MARC::Field->new(
>+            590, ' ', '0',
>+            0 => 'Zeroth',
>+            a => 'Appolo',
>+        ),
>     );
>     $record->append_fields(@fields);
>     return $record;
>@@ -704,6 +709,8 @@ sub expected_record_0 {
>             100, '1', ' ',
>             a => 'Knuth, Donald Ervin',
>             d => '1938',
>+            0 => 'TestUpdated',
>+            0 => 'TestUpdated',
>         ),
>         MARC::Field->new(
>             245, '1', '4',
>@@ -718,25 +725,26 @@ sub expected_record_0 {
>             9 => '462',
>         ),
>         MARC::Field->new(
>-            600, ' ', ' ',
>-            0 => 'TestUpdated',
>+            590, ' ', '0',
>+            0 => 'Zeroth',
>+            a => 'Appolo',
>         ),
>         MARC::Field->new(
>             600, ' ', ' ',
>             0 => 'TestUpdated',
>         ),
>         MARC::Field->new(
>-            100, ' ', ' ',
>-            0 => 'TestUpdated',
>-        ),
>-        MARC::Field->new(
>-            100, ' ', ' ',
>+            600, ' ', ' ',
>             0 => 'TestUpdated',
>         ),
>         MARC::Field->new(
>             700, ' ', ' ',
>             0 => '12345',
>         ),
>+        MARC::Field->new(
>+            690, ' ', ' ',
>+            0 => 'Zeroth',
>+        ),
>     );
>     $record->append_fields(@fields);
>     return $record;
>@@ -802,8 +810,17 @@ is( AddModificationTemplateAction(
>     'Action 6: Copy and replace subfield 245$0 to 700$0'
> ), 1, 'Action 6: Copy and replace subfield 245$0 to 700$0');
> 
>+# Copy subfield 590$0 to 690$0
>+is( AddModificationTemplateAction(
>+    $template_id, 'copy_field', 0,
>+    '590', '0', '', '690', '0',
>+    '', '', '',
>+    '', '', '', '', '', '',
>+    'Action 7: Copy subfield 590$0 to 690$0'
>+), 1, 'Action 7: Copy subfield 590$0 to 690$0');
>+
> my @actions_0 = GetModificationTemplateActions( $template_id );
>-is( @actions_0, 6, "6 actions are inserted");
>+is( @actions_0, 7, "7 actions are inserted");
> 
> ModifyRecordWithTemplate( $template_id, $record );
> my $expected_record_0 = expected_record_0();
>-- 
>2.30.2

Actions: View | Diff | Splinter Review

Attachments on bug 31644: 141066 | 141091 | 141092 | 141093 | 141936 | 141937 | 141938 | 142298 | 142299 | 142300 | 142301