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

Bug 34101: Unit Tests

Browse source 
prove t/db_dependent/SIP/Message.t

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
(cherry picked from commit 5d9bc07316)
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Sam Lau 2023-06-27 22:54:54 +00:00 committed by Martin Renvoize
parent fdcb386548
commit bc22bc611d
Signed by: martin.renvoize
GPG key ID: 422B469130441A0F
1 changed files with 19 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -71,7 +71,7 @@ subtest 'Testing Patron Info Request V2' => sub {
subtest 'Checkout V2' => sub {
my $schema = Koha::Database->new->schema;
$schema->storage->txn_begin;
plan tests => 5;
plan tests => 8;
$C4::SIP::Sip::protocol_version = 2;
test_checkout_v2();
$schema->storage->txn_rollback;
@ -824,6 +824,24 @@ sub test_checkout_v2 {
$msg->handle_checkout( $server );
ok( $response =~ m/AH\d{4}-\d{2}-\d{2}/, "Found AH field as SQL date in response");
#returning item and now testing for blocked_item_types
t::lib::Mocks::mock_preference( 'CheckPrevCheckout', 'hardno' );
AddReturn($item_object->barcode, $branchcode);
$msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 );
$server->{account}->{blocked_item_types} = "CR|".$item_object->itype;
$msg->handle_checkout( $server );
$respcode = substr( $response, 0, 2 );
check_field( $respcode, $response, FID_SCREEN_MSG, 'Item type cannot be checked out at this checkout location', 'Check screen msg', 'equals' );
is( Koha::Checkouts->search({ itemnumber => $item_object->id })->count, 0, "Item was not checked out (item type matched blocked_item_types)");
$msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 );
$server->{account}->{blocked_item_types} = "";
$msg->handle_checkout( $server );
$respcode = substr( $response, 0, 2 );
is( Koha::Checkouts->search({ itemnumber => $item_object->id })->count, 1, "Item was checked out successfully");
}
sub test_checkin_v2 {