View | Details | Raw Unified | Return to bug 21997
Collapse All | Expand All

(-)a/t/db_dependent/SIP/Message.t (-2 / +10 lines)
Lines 58-64 subtest 'Testing Patron Status Request V2' => sub { Link Here
58
subtest 'Testing Patron Info Request V2' => sub {
58
subtest 'Testing Patron Info Request V2' => sub {
59
    my $schema = Koha::Database->new->schema;
59
    my $schema = Koha::Database->new->schema;
60
    $schema->storage->txn_begin;
60
    $schema->storage->txn_begin;
61
    plan tests => 18;
61
    plan tests => 20;
62
    $C4::SIP::Sip::protocol_version = 2;
62
    $C4::SIP::Sip::protocol_version = 2;
63
    test_request_patron_info_v2();
63
    test_request_patron_info_v2();
64
    $schema->storage->txn_rollback;
64
    $schema->storage->txn_rollback;
Lines 263-268 sub test_request_patron_info_v2 { Link Here
263
    $respcode = substr( $response, 0, 2 );
263
    $respcode = substr( $response, 0, 2 );
264
    check_field( $respcode, $response, FID_VALID_PATRON_PWD, 'N', 'code CQ should be N for empty AD' );
264
    check_field( $respcode, $response, FID_VALID_PATRON_PWD, 'N', 'code CQ should be N for empty AD' );
265
    # Test empty password is OK if account configured to allow
265
    # Test empty password is OK if account configured to allow
266
    t::lib::Mocks::mock_preference( 'FailedLoginAttempts', '1' );
266
    $server->{account}->{allow_empty_passwords} = 1;
267
    $server->{account}->{allow_empty_passwords} = 1;
267
    $msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 );
268
    $msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 );
268
    undef $response;
269
    undef $response;
Lines 270-275 sub test_request_patron_info_v2 { Link Here
270
    $respcode = substr( $response, 0, 2 );
271
    $respcode = substr( $response, 0, 2 );
271
    check_field( $respcode, $response, FID_VALID_PATRON_PWD, 'Y', 'code CQ should be Y if empty AD allowed' );
272
    check_field( $respcode, $response, FID_VALID_PATRON_PWD, 'Y', 'code CQ should be Y if empty AD allowed' );
272
273
274
    t::lib::Mocks::mock_preference( 'FailedLoginAttempts', '1' );
275
    my $patron = Koha::Patrons->find({ cardnumber => $card });
276
    $patron->update({ login_attempts => 0 });
277
    is( $patron->account_locked, 0, "Patron account not locked already" );
278
    $msg->handle_patron_info( $server );
279
    $patron = Koha::Patrons->find({ cardnumber => $card });
280
    is( $patron->account_locked, 0, "Patron account is not locked by patron info messages with empty password" );
281
273
    # Finally, we send a wrong card number
282
    # Finally, we send a wrong card number
274
    Koha::Patrons->search({ cardnumber => $card })->delete;
283
    Koha::Patrons->search({ cardnumber => $card })->delete;
275
    undef $findpatron;
284
    undef $findpatron;
276
- 

Return to bug 21997