subtest 'AuthenticatePatron Secure Password test' => sub {

    plan tests => 10;

    $schema->storage->txn_begin;

    my $plain_password = 'tomasito';

    $builder->build({

        source => 'Borrower',

        value => {

            cardnumber => undef,

        }

    });

    my $borrower = $builder->build({

        source => 'Borrower',

        value  => {

            cardnumber => undef,

            password => Koha::AuthUtils::hash_password( $plain_password )

        }

    });

    my $query = new CGI;

    $query->param( 'username', $borrower->{userid});

    $query->param( 'password', $plain_password);

    my $reply = C4::ILSDI::Services::AuthenticatePatron( $query );

    is( $reply->{id}, $borrower->{borrowernumber}, "userid and password - Patron authenticated" );

    is( $reply->{code}, undef, "Error code undef");

    t::lib::Mocks::mock_preference( 'minPasswordLength', 10 );

    $reply = C4::ILSDI::Services::AuthenticatePatron( $query );

    is( $reply->{id}, $borrower->{borrowernumber}, "existing user");

    is( $reply->{code}, 'PatronPasswordNotSecure', "PasswordNotSecure" );

    is( $reply->{securePasswordLabel}, 'too_short', "PasswordTooShort" );

    is( $reply->{securePasswordPattern}, '.{10}', "Password must be at least 10 char" );

    t::lib::Mocks::mock_preference( 'RequireStrongPassword', 1 );

    t::lib::Mocks::mock_preference( 'minPasswordLength', 5 );

    $reply = C4::ILSDI::Services::AuthenticatePatron( $query );

    is( $reply->{id}, $borrower->{borrowernumber}, "existing user");

    is( $reply->{code}, 'PatronPasswordNotSecure', "PasswordNotSecure" );

    is( $reply->{securePasswordLabel}, 'too_weak', "PasswordTooWeak" );

    is( $reply->{securePasswordPattern}, '(?=.*\d)(?=.*[a-z])(?=.*[A-Z]).{5}', "Password must be strong (pattern match)" );

    $schema->storage->txn_rollback;

};