https://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=23538 Marcel de Rooy <m.de.rooy@rijksmuseum.nl> changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |m.de.rooy@rijksmuseum.nl --- Comment #36 from Marcel de Rooy <m.de.rooy@rijksmuseum.nl> --- + t::lib::Mocks::mock_preference( 'KohaAdminEmailAddress', 'root@localhost' ); + t::lib::Mocks::mock_preference( 'EmailAddressForPatronRegistrations', 'library@localhost' ); + + # Test when EmailPatronRegistrations equals BranchEmailAddress + t::lib::Mocks::mock_preference( 'EmailPatronRegistrations', 'BranchEmailAddress' ); + is( $patron->notify_library_of_registration(C4::Context->preference('EmailPatronRegistrations')), 1, 'OPAC_REG email is queued if EmailPatronRegistration syspref equals BranchEmailAddress'); + my $sth = $dbh->prepare("SELECT to_address FROM message_queue where borrowernumber = ?"); + $sth->execute( $patron->borrowernumber ); + my $to_address = $sth->fetchrow_array; + is( $to_address, 'to@mybranch.com', 'OPAC_REG email queued to go to branchreplyto address when EmailPatronRegistration equals BranchEmailAddress' ); + $dbh->do(q|DELETE FROM message_queue|); + + # Test when EmailPatronRegistrations equals EmailAddressForPatronRegistrations + t::lib::Mocks::mock_preference( 'EmailPatronRegistrations', 'EmailAddressForPatronRegistrations' ); + is( $patron->notify_library_of_registration(C4::Context->preference('EmailPatronRegistrations')), 1, 'OPAC_REG email is queued if EmailPatronRegistration syspref equals EmailAddressForPatronRegistrations'); + $sth->execute( $patron->borrowernumber ); + $to_address = $sth->fetchrow_array; + is( $to_address, 'library@localhost', 'OPAC_REG email queued to go to EmailAddressForPatronRegistrations syspref when EmailPatronRegistration equals EmailAddressForPatronRegistrations' ); + $dbh->do(q|DELETE FROM message_queue|); + + # Test when EmailPatronRegistrations equals KohaAdminEmailAddress + t::lib::Mocks::mock_preference( 'EmailPatronRegistrations', 'KohaAdminEmailAddress' ); + is( $patron->notify_library_of_registration(C4::Context->preference('EmailPatronRegistrations')), 1, 'OPAC_REG email is queued if EmailPatronRegistration syspref equals KohaAdminEmailAddress'); + $sth->execute( $patron->borrowernumber ); + $to_address = $sth->fetchrow_array; + is( $to_address, 'root@localhost', 'OPAC_REG email queued to go to KohaAdminEmailAddress syspref when EmailPatronRegistration equals KohaAdminEmailAddress' ); + $dbh->do(q|DELETE FROM message_queue|); This part of the test fails with me: not ok 6 - OPAC_REG email queued to go to KohaAdminEmailAddress syspref when EmailPatronRegistration equals KohaAdminEmailAddress # Failed test 'OPAC_REG email queued to go to KohaAdminEmailAddress syspref when EmailPatronRegistration equals KohaAdminEmailAddress' # at t/db_dependent/Koha/Patron.t line 1347. # got: 'bibliotheek@master.rijkskoha.nl' # expected: 'root@localhost' # Looks like you failed 1 test of 6. Also note that you'd better not use localhost as an email address in your tests. And that you include several SQL statements that should be Koha objects. -- You are receiving this mail because: You are watching all bug changes.