|
Lines 134-140
ok( Koha::Patron::Password::Recovery::CompletePasswordRecovery($uuid2) == 0, "[C
Link Here
|
| 134 |
# Koha::Patron::Password::Recovery::SendPasswordRecoveryEmail # |
134 |
# Koha::Patron::Password::Recovery::SendPasswordRecoveryEmail # |
| 135 |
############################################################### |
135 |
############################################################### |
| 136 |
|
136 |
|
| 137 |
my $borrower = shift [ Koha::Patrons->search( { userid => $userid1 } ) ]; |
137 |
my $borrower = Koha::Patrons->search( { userid => $userid1 } )->next; |
| 138 |
ok( Koha::Patron::Password::Recovery::SendPasswordRecoveryEmail($borrower, $email1, 0) == 1, "[SendPasswordRecoveryEmail] Returns 1 on success" ); |
138 |
ok( Koha::Patron::Password::Recovery::SendPasswordRecoveryEmail($borrower, $email1, 0) == 1, "[SendPasswordRecoveryEmail] Returns 1 on success" ); |
| 139 |
my $letters = C4::Letters::GetQueuedMessages( { borrowernumber => $borrowernumber1, limit => 99 } ); |
139 |
my $letters = C4::Letters::GetQueuedMessages( { borrowernumber => $borrowernumber1, limit => 99 } ); |
| 140 |
ok( scalar @$letters == 1, "[SendPasswordRecoveryEmail] There is a letter in the queue for our borrower"); |
140 |
ok( scalar @$letters == 1, "[SendPasswordRecoveryEmail] There is a letter in the queue for our borrower"); |
| 141 |
- |
|
|