Koha-community/Koha
15
7
Fork 0
Code Issues Releases Wiki Activity

Bug 36431: Unit tests

Browse source 
Test plan:
Run t/db_dependent/SIP/Message.t

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Marcel de Rooy 2024-04-22 09:59:21 +00:00 committed by Katrin Fischer
parent 9b927e7923
commit 0cbbad38cb
Signed by: kfischer
GPG key ID: 0EF6E2C03357A834
1 changed files with 23 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
t/db_dependent/SIP/Message.t
View file

@ -108,7 +108,7 @@ subtest 'Test renew desensitize' => sub {
subtest 'Checkin V2' => sub {
my $schema = Koha::Database->new->schema;
$schema->storage->txn_begin;
plan tests => 40;
plan tests => 46;
$C4::SIP::Sip::protocol_version = 2;
test_checkin_v2();
$schema->storage->txn_rollback;
@ -1461,6 +1461,28 @@ sub test_checkin_v2 {
$item_object->holdingbranch($branchcode)->store();
t::lib::Mocks::mock_preference( ' AllowReturnToBranch ', 'anywhere' );
# Change homebranch to trigger NeedsTransfer response (with and without automatic item return)
t::lib::Mocks::mock_preference( 'AutomaticItemReturn', 0 );
$item_object->homebranch($branchcode2)->store();
undef $response;
$msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 );
$msg->handle_checkin($server);
check_field( $respcode, $response, FID_ALERT_TYPE, '04', 'Got CV 04' );
check_field(
$respcode, $response, FID_SCREEN_MSG, 'This item must still be transferred', 'Check screen msg',
'regex'
);
is( $item_object->transfer, undef, 'No transfer was started' );
t::lib::Mocks::mock_preference( 'AutomaticItemReturn', 1 );
undef $response;
$msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 );
$msg->handle_checkin($server);
check_field( $respcode, $response, FID_ALERT_TYPE, '04', 'Got CV 04' );
check_field( $respcode, $response, FID_SCREEN_MSG, undef, 'No screen msg' );
isnt( $item_object->transfer, undef, 'A transfer was started' );
$item_object->transfer->delete;
$item_object->homebranch($branchcode)->store();
$server->{account}->{cv_send_00_on_success} = 0;
undef $response;
$msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 );