From 80115b3f968e29502ef72b91b8024cafdb95f509 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 (rebased)

Signed-off-by: Kelly <kelly@bywatersolutions.com>
---
 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 aee89f6198..b2f37c36c4 100755
--- a/t/db_dependent/MarcModificationTemplates.t
+++ b/t/db_dependent/MarcModificationTemplates.t
@@ -464,6 +464,9 @@ sub new_record {
     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',
@@ -515,36 +518,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);
@@ -575,18 +575,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.26.1