Bug 22043: (QA follow-up) Add parameter to control behavior

[koha.git] / t / db_dependent / SIP / Message.t

diff --git a/t/db_dependent/SIP/Message.t b/t/db_dependent/SIP/Message.t
index 7bf745a..dbab48e 100755 (executable)
--- a/t/db_dependent/SIP/Message.t
+++ b/t/db_dependent/SIP/Message.t
@@ -67,7 +67,7 @@ subtest 'Testing Patron Info Request V2' => sub {
 subtest 'Checkin V2' => sub {
     my $schema = Koha::Database->new->schema;
     $schema->storage->txn_begin;
-    plan tests => 25;
+    plan tests => 27;
     $C4::SIP::Sip::protocol_version = 2;
     test_checkin_v2();
     $schema->storage->txn_rollback;
@@ -378,6 +378,25 @@ sub test_checkin_v2 {
     $server->{account}->{checked_in_ok} = 0;
     $server->{account}->{cv_send_00_on_success} = 0;
 
+    t::lib::Mocks::mock_preference( 'RecordLocalUseOnReturn', '1' );
+    $server->{account}->{checked_in_ok} = 1;
+    $server->{account}->{cv_triggers_alert} = 0;
+    undef $response;
+    $msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 );
+    $msg->handle_checkin( $server );
+    $respcode = substr( $response, 0, 2 );
+    is( substr( $response, 5, 1 ), 'Y', 'Checkin without CV triggers alert flag when cv_triggers_alert is off' );
+    t::lib::Mocks::mock_preference( 'RecordLocalUseOnReturn', '0' );
+    $server->{account}->{cv_triggers_alert} = 1;
+    undef $response;
+    $msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 );
+    $msg->handle_checkin( $server );
+    $respcode = substr( $response, 0, 2 );
+    is( substr( $response, 5, 1 ), 'N', 'Checkin without CV does not trigger alert flag when cv_triggers_alert is on' );
+    $server->{account}->{checked_in_ok} = 0;
+    $server->{account}->{cv_triggers_alert} = 0;
+    t::lib::Mocks::mock_preference( 'RecordLocalUseOnReturn', '1' );
+
     $server->{account}->{checked_in_ok} = 1;
     $server->{account}->{ct_always_send} = 0;
     undef $response;