From f4b7bfc708fc55a55659156ff84eb4ab0e320eff Mon Sep 17 00:00:00 2001 From: Arthur Suzuki 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