Lines 135-143
is( $messages->[0]->{status}, 'pending', 'EnqueueLetter stores the status pendin
Link Here
|
135 |
isnt( $messages->[0]->{time_queued}, undef, 'Time queued inserted by default in message_queue table' ); |
135 |
isnt( $messages->[0]->{time_queued}, undef, 'Time queued inserted by default in message_queue table' ); |
136 |
is( $messages->[0]->{updated_on}, $messages->[0]->{time_queued}, 'Time status changed equals time queued when created in message_queue table' ); |
136 |
is( $messages->[0]->{updated_on}, $messages->[0]->{time_queued}, 'Time status changed equals time queued when created in message_queue table' ); |
137 |
|
137 |
|
138 |
my $message_time_queued = $messages->[0]->{time_queued}; |
138 |
# Setting time_queued to something else than now |
|
|
139 |
my $yesterday = dt_from_string->subtract( days => 1 ); |
140 |
Koha::Notice::Messages->find($messages->[0]->{message_id})->time_queued($yesterday)->store; |
139 |
|
141 |
|
140 |
sleep 1; |
|
|
141 |
# SendQueuedMessages |
142 |
# SendQueuedMessages |
142 |
my $messages_processed = C4::Letters::SendQueuedMessages( { type => 'email' }); |
143 |
my $messages_processed = C4::Letters::SendQueuedMessages( { type => 'email' }); |
143 |
is($messages_processed, 0, 'No queued messages processed if type limit passed with unused type'); |
144 |
is($messages_processed, 0, 'No queued messages processed if type limit passed with unused type'); |
Lines 150-156
is(
Link Here
|
150 |
'message marked failed if tried to send SMS message for borrower with no smsalertnumber set (bug 11208)' |
151 |
'message marked failed if tried to send SMS message for borrower with no smsalertnumber set (bug 11208)' |
151 |
); |
152 |
); |
152 |
isnt($messages->[0]->{updated_on}, $messages->[0]->{time_queued}, 'Time status changed differs from time queued when status changes' ); |
153 |
isnt($messages->[0]->{updated_on}, $messages->[0]->{time_queued}, 'Time status changed differs from time queued when status changes' ); |
153 |
is($messages->[0]->{time_queued}, $message_time_queued, 'Time queued remaines inmutable' ); |
154 |
is(dt_from_string($messages->[0]->{time_queued}), $yesterday, 'Time queued remaines inmutable' ); |
154 |
|
155 |
|
155 |
# ResendMessage |
156 |
# ResendMessage |
156 |
my $resent = C4::Letters::ResendMessage($messages->[0]->{message_id}); |
157 |
my $resent = C4::Letters::ResendMessage($messages->[0]->{message_id}); |
157 |
- |
|
|