|
Lines 34-40
my $module = Test::MockModule->new('Mail::Sendmail');
Link Here
|
| 34 |
$module->mock( |
34 |
$module->mock( |
| 35 |
'sendmail', |
35 |
'sendmail', |
| 36 |
sub { |
36 |
sub { |
| 37 |
carp 'Fake sendmail!'; |
37 |
carp 'Fake sendmail'; |
| 38 |
%mail = @_; |
38 |
%mail = @_; |
| 39 |
} |
39 |
} |
| 40 |
); |
40 |
); |
|
Lines 195-203
ok( Koha::Patron::Password::Recovery::DeleteExpiredPasswordRecovery($borrowernum
Link Here
|
| 195 |
|
195 |
|
| 196 |
my $borrower = Koha::Patrons->search( { userid => $userid1 } )->next; |
196 |
my $borrower = Koha::Patrons->search( { userid => $userid1 } )->next; |
| 197 |
my $success; |
197 |
my $success; |
| 198 |
warning_like { |
198 |
warning_is { |
| 199 |
$success = Koha::Patron::Password::Recovery::SendPasswordRecoveryEmail($borrower, $email1, 0); } |
199 |
$success = Koha::Patron::Password::Recovery::SendPasswordRecoveryEmail($borrower, $email1, 0); } |
| 200 |
qr/Fake sendmail!/, |
200 |
"Fake sendmail", |
| 201 |
'[SendPasswordRecoveryEmail] expecting fake sendmail'; |
201 |
'[SendPasswordRecoveryEmail] expecting fake sendmail'; |
| 202 |
ok( $success == 1, '[SendPasswordRecoveryEmail] Returns 1 on success'); |
202 |
ok( $success == 1, '[SendPasswordRecoveryEmail] Returns 1 on success'); |
| 203 |
|
203 |
|
|
Lines 207-215
ok( scalar @$letters == 1, "[SendPasswordRecoveryEmail] There is a letter in the
Link Here
|
| 207 |
my $bpr = $schema->resultset('BorrowerPasswordRecovery')->search( { borrowernumber => $borrowernumber1 } ); |
207 |
my $bpr = $schema->resultset('BorrowerPasswordRecovery')->search( { borrowernumber => $borrowernumber1 } ); |
| 208 |
my $tempuuid1 = $bpr->next->uuid; |
208 |
my $tempuuid1 = $bpr->next->uuid; |
| 209 |
|
209 |
|
| 210 |
warning_like { |
210 |
warning_is { |
| 211 |
Koha::Patron::Password::Recovery::SendPasswordRecoveryEmail($borrower, $email1, 1); } |
211 |
Koha::Patron::Password::Recovery::SendPasswordRecoveryEmail($borrower, $email1, 1); } |
| 212 |
qr/Fake sendmail!/, |
212 |
"Fake sendmail", |
| 213 |
'[SendPasswordRecoveryEmail] expecting fake sendmail'; |
213 |
'[SendPasswordRecoveryEmail] expecting fake sendmail'; |
| 214 |
|
214 |
|
| 215 |
$bpr = $schema->resultset('BorrowerPasswordRecovery')->search( { borrowernumber => $borrowernumber1 } ); |
215 |
$bpr = $schema->resultset('BorrowerPasswordRecovery')->search( { borrowernumber => $borrowernumber1 } ); |
| 216 |
- |
|
|