Lines 273-310
sub post_n_reportlabyrintti404 {
Link Here
|
273 |
return 1; |
273 |
return 1; |
274 |
} |
274 |
} |
275 |
|
275 |
|
276 |
sub post_n_reportlabyrintti204 { |
276 |
sub post_n_reportlabyrintti200 { |
277 |
my ($class, $restTest, $driver) = @_; |
|
|
278 |
my $testContext = $restTest->get_testContext(); |
279 |
my $activeUser = $restTest->get_activeBorrower(); |
280 |
my $path = $restTest->get_routePath(); |
281 |
|
282 |
#Create the test context. |
283 |
my $messages = t::lib::TestObjects::MessageQueueFactory->createTestGroup( |
284 |
{ |
285 |
subject => "The quick brown fox", |
286 |
content => "Jumps over the lazy dog.", |
287 |
cardnumber => $activeUser->{'_result'}->{'_column_data'}->{cardnumber}, |
288 |
message_transport_type => 'sms', |
289 |
from_address => '11A001@example.com', |
290 |
}, undef, $testContext, undef, undef); |
291 |
|
292 |
my $messagenumber = $messages->{'11A001@example.com'}->{message_id}; |
293 |
$path =~ s/\{messagenumber\}/$messagenumber/; |
294 |
$driver->post_ok( |
295 |
$path => { Accept => 'application/x-www-form-urlencoded'} => |
296 |
form => { |
297 |
status => "OK", |
298 |
message => "Message delivery succesful", |
299 |
} |
300 |
); |
301 |
$driver->status_is(204); |
302 |
|
303 |
t::lib::TestObjects::ObjectFactory->tearDownTestContext($testContext); |
304 |
return 1; |
305 |
} |
306 |
|
307 |
sub post_n_reportlabyrintti201 { |
308 |
my ($class, $restTest, $driver) = @_; |
277 |
my ($class, $restTest, $driver) = @_; |
309 |
my $testContext = $restTest->get_testContext(); |
278 |
my $testContext = $restTest->get_testContext(); |
310 |
my $activeUser = $restTest->get_activeBorrower(); |
279 |
my $activeUser = $restTest->get_activeBorrower(); |
Lines 329-335
sub post_n_reportlabyrintti201 {
Link Here
|
329 |
message => "Test error delivery note", |
298 |
message => "Test error delivery note", |
330 |
} |
299 |
} |
331 |
); |
300 |
); |
332 |
$driver->status_is(201); |
301 |
$driver->status_is(200); |
333 |
my $message = C4::Letters::GetMessage($messagenumber); |
302 |
my $message = C4::Letters::GetMessage($messagenumber); |
334 |
is($message->{delivery_note}, "Test error delivery note", "Delivery note for failed SMS received successfully."); |
303 |
is($message->{delivery_note}, "Test error delivery note", "Delivery note for failed SMS received successfully."); |
335 |
|
304 |
|
336 |
- |
|
|