Bug 17600: Standardize our EXPORT_OK

[srvgit] / t / db_dependent / Koha / Z3950Responder / Session2.t

diff --git a/t/db_dependent/Koha/Z3950Responder/Session2.t b/t/db_dependent/Koha/Z3950Responder/Session2.t
old mode 100644 (file)
new mode 100755 (executable)
index ec1e00b..71ba26e
--- a/t/db_dependent/Koha/Z3950Responder/Session2.t
+++ b/t/db_dependent/Koha/Z3950Responder/Session2.t
@@ -3,7 +3,7 @@
 use Modern::Perl;
 use Test::More tests => 3;
 use t::lib::TestBuilder;
-use C4::Items;
+use C4::Items qw( GetMarcItem );
 
 use Koha::Caches;
 
@@ -56,7 +56,16 @@ subtest 'add_item_status' => sub {
     my $item_marc_1 = C4::Items::GetMarcItem( $item_1->biblionumber, $item_1->itemnumber );
     my $item_field_1 = scalar $item_marc_1->field('952');
     $builder->build({ source => 'Reserve', value=> { itemnumber => $item_1->itemnumber } });
-    $builder->build({ source => 'Branchtransfer', value=> { itemnumber => $item_1->itemnumber, datearrived => undef } });
+    $builder->build(
+        {
+            source => 'Branchtransfer',
+            value  => {
+                itemnumber    => $item_1->itemnumber,
+                datearrived   => undef,
+                datecancelled => undef
+            }
+        }
+    );
     ## END FIRST ITEM ##
 
     ## SECOND ITEM HAS NO STATUSES ##