Bug 18925: (QA follow-up) Remove weird 'Null' values for integer column

[koha.git] / t / Koha_Email.t

diff --git a/t/Koha_Email.t b/t/Koha_Email.t
index 764f5c1..93dd55b 100755 (executable)
--- a/t/Koha_Email.t
+++ b/t/Koha_Email.t
@@ -1,10 +1,15 @@
 use Modern::Perl;
 
+use t::lib::Mocks;
 use Test::More tests => 4;                      # last test to print
 
 use_ok('Koha::Email');
 
 my $from = 'chrisc@catalyst.net.nz';
+t::lib::Mocks::mock_preference('ReplytoDefault', $from);
+t::lib::Mocks::mock_preference('ReturnpathDefault', $from);
+
+
 
 ok( my $email = Koha::Email->new(), 'Create a Koha::Email Object');
 ok( my %mail = $email->create_message_headers({from => $from}),'Set headers');