Lines 67-73
subtest 'Testing Patron Info Request V2' => sub {
Link Here
|
67 |
subtest 'Checkin V2' => sub { |
67 |
subtest 'Checkin V2' => sub { |
68 |
my $schema = Koha::Database->new->schema; |
68 |
my $schema = Koha::Database->new->schema; |
69 |
$schema->storage->txn_begin; |
69 |
$schema->storage->txn_begin; |
70 |
plan tests => 25; |
70 |
plan tests => 27; |
71 |
$C4::SIP::Sip::protocol_version = 2; |
71 |
$C4::SIP::Sip::protocol_version = 2; |
72 |
test_checkin_v2(); |
72 |
test_checkin_v2(); |
73 |
$schema->storage->txn_rollback; |
73 |
$schema->storage->txn_rollback; |
Lines 378-383
sub test_checkin_v2 {
Link Here
|
378 |
$server->{account}->{checked_in_ok} = 0; |
378 |
$server->{account}->{checked_in_ok} = 0; |
379 |
$server->{account}->{cv_send_00_on_success} = 0; |
379 |
$server->{account}->{cv_send_00_on_success} = 0; |
380 |
|
380 |
|
|
|
381 |
t::lib::Mocks::mock_preference( 'RecordLocalUseOnReturn', '1' ); |
382 |
$server->{account}->{checked_in_ok} = 1; |
383 |
$server->{account}->{cv_triggers_alert} = 0; |
384 |
undef $response; |
385 |
$msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 ); |
386 |
$msg->handle_checkin( $server ); |
387 |
$respcode = substr( $response, 0, 2 ); |
388 |
is( substr( $response, 5, 1 ), 'Y', 'Checkin without CV triggers alert flag when cv_triggers_alert is off' ); |
389 |
t::lib::Mocks::mock_preference( 'RecordLocalUseOnReturn', '0' ); |
390 |
$server->{account}->{cv_triggers_alert} = 1; |
391 |
undef $response; |
392 |
$msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 ); |
393 |
$msg->handle_checkin( $server ); |
394 |
$respcode = substr( $response, 0, 2 ); |
395 |
is( substr( $response, 5, 1 ), 'N', 'Checkin without CV does not trigger alert flag when cv_triggers_alert is on' ); |
396 |
$server->{account}->{checked_in_ok} = 0; |
397 |
$server->{account}->{cv_triggers_alert} = 0; |
398 |
t::lib::Mocks::mock_preference( 'RecordLocalUseOnReturn', '1' ); |
399 |
|
381 |
$server->{account}->{checked_in_ok} = 1; |
400 |
$server->{account}->{checked_in_ok} = 1; |
382 |
$server->{account}->{ct_always_send} = 0; |
401 |
$server->{account}->{ct_always_send} = 0; |
383 |
undef $response; |
402 |
undef $response; |
384 |
- |
|
|