Bug 17600: Standardize our EXPORT_OK

[srvgit] / t / db_dependent / MarcModificationTemplates.t

diff --git a/t/db_dependent/MarcModificationTemplates.t b/t/db_dependent/MarcModificationTemplates.t
old mode 100644 (file)
new mode 100755 (executable)
index aee89f6..82d8a29
--- a/t/db_dependent/MarcModificationTemplates.t
+++ b/t/db_dependent/MarcModificationTemplates.t
@@ -9,7 +9,7 @@ use t::lib::Mocks;
 
 use_ok("MARC::Field");
 use_ok("MARC::Record");
-use_ok("C4::MarcModificationTemplates");
+use_ok('C4::MarcModificationTemplates', qw( AddModificationTemplate AddModificationTemplateAction GetModificationTemplateAction GetModificationTemplateActions ModModificationTemplateAction MoveModificationTemplateAction DelModificationTemplate DelModificationTemplateAction ModifyRecordWithTemplate GetModificationTemplates ));
 
 my $schema = Koha::Database->new->schema;
 $schema->storage->txn_begin;
@@ -701,6 +701,11 @@ sub expected_record_0 {
     $record->leader('03174nam a2200445 a 4500');
     my @fields = (
         MARC::Field->new(
+            100, '1', ' ',
+            a => 'Knuth, Donald Ervin',
+            d => '1938',
+        ),
+        MARC::Field->new(
             245, '1', '4',
             0 => '12345',
             a => 'The art of computer programming',
@@ -717,14 +722,20 @@ sub expected_record_0 {
             0 => 'TestUpdated',
         ),
         MARC::Field->new(
+            600, ' ', ' ',
+            0 => 'TestUpdated',
+        ),
+        MARC::Field->new(
             100, ' ', ' ',
             0 => 'TestUpdated',
         ),
         MARC::Field->new(
-            700, '1', '4',
+            100, ' ', ' ',
+            0 => 'TestUpdated',
+        ),
+        MARC::Field->new(
+            700, ' ', ' ',
             0 => '12345',
-            a => 'The art of computer programming',
-            c => 'Donald E. Knuth.',
         ),
     );
     $record->append_fields(@fields);