|
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 |
- |
|
|