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>
This commit is contained in:
Nick Clemens 2021-02-04 11:59:11 +00:00 committed by Jonathan Druart
parent 48e56b320a
commit 48e306f5d2

View file

@ -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 {