Bug 27589: Unit test

Previous tests only covered CHECKIN, this adds a test for ITEM_INFORMATION

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

t/db_dependent/SIP/Message.t

@@ -199,7 +199,7 @@ subtest "Test build_additional_item_fields_string" => sub {
 };
 
 subtest "Test cr_item_field" => sub {
-    plan tests => 1;
+    plan tests => 2;
 
     my $builder = t::lib::TestBuilder->new();
     my $branchcode  = $builder->build({ source => 'Branch' })->{branchcode};
@@ -253,6 +253,24 @@ subtest "Test cr_item_field" => sub {
 
     my $id = $item_object->id;
     ok( $response =~ m/CR$id/, "Found correct CR field in response");
+
+    $siprequest = ITEM_INFORMATION . 'YYYYMMDDZZZZHHMMSS' .
+        FID_INST_ID . $branchcode . '|'.
+        FID_ITEM_ID . $item_object->barcode . '|' .
+        FID_TERMINAL_PWD . 'ignored' . '|';
+    undef $response;
+    $msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 );
+
+    $mockILS->mock( 'find_item', sub {
+        return C4::SIP::ILS::Item->new( $item_object->barcode );
+    });
+
+    $server->{account}->{cr_item_field} = 'itype';
+
+    $msg->handle_item_information( $server );
+
+    my $itype = $item_object->itype;
+    ok( $response =~ m/CR$itype/, "Found correct CR field in response");
 };
 
 subtest 'Patron info summary > 5 should not crash server' => sub {