Attachment 97945 Details for Bug 24480 – Bug 24480: Unit test

[patch] Bug 24480: Unit test

Bug-24480-Unit-test.patch (text/plain), 2.79 KB, created by Arthur Suzuki on 2020-01-25 22:37:02 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Arthur Suzuki

Created: 2020-01-25 22:37:02 UTC

Size: 2.79 KB

patch

obsolete

>From f4b7bfc708fc55a55659156ff84eb4ab0e320eff Mon Sep 17 00:00:00 2001
>From: Arthur Suzuki <arthur.suzuki@biblibre.com>
>Date: Sat, 25 Jan 2020 23:19:52 +0100
>Subject: [PATCH] Bug 24480: Unit test
>
>---
> t/db_dependent/MarcModificationTemplates.t | 40 +++++++++++-----------
> 1 file changed, 20 insertions(+), 20 deletions(-)
>
>diff --git a/t/db_dependent/MarcModificationTemplates.t b/t/db_dependent/MarcModificationTemplates.t
>index f9628d7f2b..212a768f69 100644
>--- a/t/db_dependent/MarcModificationTemplates.t
>+++ b/t/db_dependent/MarcModificationTemplates.t
>@@ -460,6 +460,9 @@ sub expected_record_1 {
>     my $record = MARC::Record->new;
>     $record->leader('03174nam a2200445 a 4500');
>     my @fields = (
>+        MARC::Field->new(
>+           '007', 'vxcdq',
>+        ),
>         MARC::Field->new(
>             100, '1', ' ',
>             a => 'Knuth, Donald Ervin',
>@@ -470,36 +473,33 @@ sub expected_record_1 {
>             a => 'The art of computer programming',
>             c => 'Donald E. Knuth.',
>         ),
>-        MARC::Field->new(
>-            650, ' ', '0',
>-            9 => '462',
>-        ),
>-        MARC::Field->new(
>-            952, ' ', ' ',
>-            p => '3010023917_updated',
>-            y => 'BK',
>-            c => 'GEN',
>-            e => '2001-06-25',
>-        ),
>         MARC::Field->new(
>             246, '', ' ',
>             a => 'The art of computer programming',
>         ),
>+        MARC::Field->new(
>+            650, ' ', '0',
>+            9 => '462',
>+        ),
>         MARC::Field->new(
>             651, ' ', '0',
>             a => 'Computer algorithms.',
>             9 => '499',
>         ),
>         MARC::Field->new(
>-            999, ' ', ' ',
>-            a => 'existent - updated.',
>+            952, ' ', ' ',
>+            p => '3010023917_updated',
>+            y => 'BK',
>+            c => 'GEN',
>+            e => '2001-06-25',
>         ),
>         MARC::Field->new(
>             999, ' ', ' ',
>             a => 'additional existent.',
>         ),
>         MARC::Field->new(
>-           '007', 'vxcdq',
>+            999, ' ', ' ',
>+            a => 'existent - updated.',
>         ),
>     );
>     $record->append_fields(@fields);
>@@ -530,18 +530,18 @@ sub expected_record_2 {
>             a => 'Computer programming.',
>             9 => '499',
>         ),
>+        MARC::Field->new(
>+            651, ' ', '0',
>+            a => 'Computer programming.',
>+            9 => '462',
>+        ),
>         MARC::Field->new(
>             952, ' ', ' ',
>             p => '3010023917',
>             y => 'BK',
>             c => 'GEN',
>             d => '2001-06-25',
>-        ),
>-        MARC::Field->new(
>-            651, ' ', '0',
>-            a => 'Computer programming.',
>-            9 => '462',
>-        ),
>+        )
>     );
>     $record->append_fields(@fields);
>     return $record;
>-- 
>2.20.1

Actions: View | Diff | Splinter Review

Attachments on bug 24480: 97695 | 97944 | 97945 | 98975 | 98976 | 106621 | 112311 | 112312 | 150665 | 150666 | 155714 | 155715 | 155716 | 155717 | 155721 | 155722 | 155723 | 155724 | 158130 | 158131 | 158132 | 158133