Bug 20474: Mimick Letters.t

Please improve if needed the 2 occurrences on a separate bug reports.

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Jonathan Druart 2018-03-27 12:21:41 -03:00
parent 62f7930147
commit f3f8c66914

View file

@ -34,7 +34,7 @@ my $module = Test::MockModule->new('Mail::Sendmail');
$module->mock(
'sendmail',
sub {
carp 'Fake sendmail!';
carp 'Fake sendmail';
%mail = @_;
}
);
@ -195,9 +195,9 @@ ok( Koha::Patron::Password::Recovery::DeleteExpiredPasswordRecovery($borrowernum
my $borrower = Koha::Patrons->search( { userid => $userid1 } )->next;
my $success;
warning_like {
warning_is {
$success = Koha::Patron::Password::Recovery::SendPasswordRecoveryEmail($borrower, $email1, 0); }
qr/Fake sendmail!/,
"Fake sendmail",
'[SendPasswordRecoveryEmail] expecting fake sendmail';
ok( $success == 1, '[SendPasswordRecoveryEmail] Returns 1 on success');
@ -207,9 +207,9 @@ ok( scalar @$letters == 1, "[SendPasswordRecoveryEmail] There is a letter in the
my $bpr = $schema->resultset('BorrowerPasswordRecovery')->search( { borrowernumber => $borrowernumber1 } );
my $tempuuid1 = $bpr->next->uuid;
warning_like {
warning_is {
Koha::Patron::Password::Recovery::SendPasswordRecoveryEmail($borrower, $email1, 1); }
qr/Fake sendmail!/,
"Fake sendmail",
'[SendPasswordRecoveryEmail] expecting fake sendmail';
$bpr = $schema->resultset('BorrowerPasswordRecovery')->search( { borrowernumber => $borrowernumber1 } );