View | Details | Raw Unified | Return to bug 8000
Collapse All | Expand All

(-)a/t/db_dependent/Letters.t (-4 / +23 lines)
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
- 

Return to bug 8000