Lines 87-92
is_deeply( $mtts, ['email', 'phone', 'print', 'sms'], 'GetMessageTransportTypes
Link Here
|
87 |
# EnqueueLetter |
87 |
# EnqueueLetter |
88 |
is( C4::Letters::EnqueueLetter(), undef, 'EnqueueLetter without argument returns undef' ); |
88 |
is( C4::Letters::EnqueueLetter(), undef, 'EnqueueLetter without argument returns undef' ); |
89 |
|
89 |
|
|
|
90 |
# used to trigger _send_message_by_sms in C4::Letter |
90 |
my $my_message = { |
91 |
my $my_message = { |
91 |
borrowernumber => $borrowernumber, |
92 |
borrowernumber => $borrowernumber, |
92 |
message_transport_type => 'sms', |
93 |
message_transport_type => 'sms', |
Lines 111-123
$my_message->{message_transport_type} = 'sms';
Link Here
|
111 |
$message_id = C4::Letters::EnqueueLetter($my_message); |
112 |
$message_id = C4::Letters::EnqueueLetter($my_message); |
112 |
ok(defined $message_id && $message_id > 0, 'new message successfully queued'); |
113 |
ok(defined $message_id && $message_id > 0, 'new message successfully queued'); |
113 |
|
114 |
|
|
|
115 |
# used to trigger _send_message_by_email in C4::Letter |
116 |
my $message_id2 = C4::Letters::EnqueueLetter({ |
117 |
borrowernumber => $borrowernumber, |
118 |
message_transport_type => 'email', |
119 |
to_address => 'to@example.com', |
120 |
from_address => 'from@example.com', |
121 |
letter => { |
122 |
content => 'a message', |
123 |
title => 'message title', |
124 |
metadata => 'metadata', |
125 |
code => 'TEST_MESSAGE', |
126 |
content_type => 'text/plain', |
127 |
}, |
128 |
}); |
129 |
|
130 |
ok(defined $message_id2 && $message_id2 > 0, 'new message successfully queued'); |
131 |
|
114 |
|
132 |
|
115 |
# GetQueuedMessages |
133 |
# GetQueuedMessages |
116 |
my $messages = C4::Letters::GetQueuedMessages(); |
134 |
my $messages = C4::Letters::GetQueuedMessages(); |
117 |
is( @$messages, 1, 'GetQueuedMessages without argument returns all the entries' ); |
135 |
is( @$messages, 2, 'GetQueuedMessages without argument returns all the entries' ); |
118 |
|
136 |
|
119 |
$messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber }); |
137 |
$messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber }); |
120 |
is( @$messages, 1, 'one message stored for the borrower' ); |
138 |
is( @$messages, 2, 'two messages stored for the borrower' ); |
121 |
is( $messages->[0]->{message_id}, $message_id, 'EnqueueLetter returns the message id correctly' ); |
139 |
is( $messages->[0]->{message_id}, $message_id, 'EnqueueLetter returns the message id correctly' ); |
122 |
is( $messages->[0]->{borrowernumber}, $borrowernumber, 'EnqueueLetter stores the borrower number correctly' ); |
140 |
is( $messages->[0]->{borrowernumber}, $borrowernumber, 'EnqueueLetter stores the borrower number correctly' ); |
123 |
is( $messages->[0]->{subject}, $my_message->{letter}->{title}, 'EnqueueLetter stores the subject correctly' ); |
141 |
is( $messages->[0]->{subject}, $my_message->{letter}->{title}, 'EnqueueLetter stores the subject correctly' ); |
Lines 128-136
is( $messages->[0]->{status}, 'pending', 'EnqueueLetter stores the status pendin
Link Here
|
128 |
|
146 |
|
129 |
# SendQueuedMessages |
147 |
# SendQueuedMessages |
130 |
my $messages_processed = C4::Letters::SendQueuedMessages(); |
148 |
my $messages_processed = C4::Letters::SendQueuedMessages(); |
131 |
is($messages_processed, 1, 'all queued messages processed'); |
149 |
is($messages_processed, 2, 'all queued messages processed'); |
132 |
|
150 |
|
133 |
$messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber }); |
151 |
$messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber }); |
|
|
152 |
is(scalar(@$messages), 2, 'two messages stored for the borrower'); |
153 |
|
134 |
is( |
154 |
is( |
135 |
$messages->[0]->{status}, |
155 |
$messages->[0]->{status}, |
136 |
'failed', |
156 |
'failed', |
137 |
- |
|
|