Lines 24-29
use Test::Warn;
Link Here
|
24 |
|
24 |
|
25 |
use MARC::Record; |
25 |
use MARC::Record; |
26 |
|
26 |
|
|
|
27 |
use utf8; |
28 |
|
27 |
my ( $email_object, $sendmail_params ); |
29 |
my ( $email_object, $sendmail_params ); |
28 |
|
30 |
|
29 |
my $email_sender_module = Test::MockModule->new('Email::Stuffer'); |
31 |
my $email_sender_module = Test::MockModule->new('Email::Stuffer'); |
Lines 31-36
$email_sender_module->mock(
Link Here
|
31 |
'send_or_die', |
33 |
'send_or_die', |
32 |
sub { |
34 |
sub { |
33 |
( $email_object, $sendmail_params ) = @_; |
35 |
( $email_object, $sendmail_params ) = @_; |
|
|
36 |
my $str = $email_object->email->as_string; |
37 |
unlike $str, qr/I =C3=A2=C2=99=C2=A5 Koha=/, "String is not double encoded"; |
34 |
warn "Fake send_or_die"; |
38 |
warn "Fake send_or_die"; |
35 |
} |
39 |
} |
36 |
); |
40 |
); |
Lines 110-117
is( $message_id, undef, 'EnqueueLetter without the letter argument returns undef
Link Here
|
110 |
|
114 |
|
111 |
delete $my_message->{message_transport_type}; |
115 |
delete $my_message->{message_transport_type}; |
112 |
$my_message->{letter} = { |
116 |
$my_message->{letter} = { |
113 |
content => 'a message', |
117 |
content => 'I ♥ Koha', |
114 |
title => 'message title', |
118 |
title => '啤酒 is great', |
115 |
metadata => 'metadata', |
119 |
metadata => 'metadata', |
116 |
code => 'TEST_MESSAGE', |
120 |
code => 'TEST_MESSAGE', |
117 |
content_type => 'text/plain', |
121 |
content_type => 'text/plain', |
118 |
- |
|
|