Lines 294-300
subtest '_handle_008_field' => sub {
Link Here
|
294 |
}; |
294 |
}; |
295 |
|
295 |
|
296 |
subtest 'process_invoice' => sub { |
296 |
subtest 'process_invoice' => sub { |
297 |
plan tests => 11; |
297 |
plan tests => 12; |
298 |
|
298 |
|
299 |
$schema->storage->txn_begin; |
299 |
$schema->storage->txn_begin; |
300 |
|
300 |
|
Lines 363-376
subtest 'process_invoice' => sub {
Link Here
|
363 |
$invoice_message->update( { raw_msg => $raw_msg } ); |
363 |
$invoice_message->update( { raw_msg => $raw_msg } ); |
364 |
|
364 |
|
365 |
# Process the test invoice file |
365 |
# Process the test invoice file |
366 |
warnings_exist { process_invoice($invoice_message) } |
366 |
my $error; |
367 |
[ |
367 |
eval { |
368 |
{ carped => qr/Cannot find vendor with ean.*/i }, |
368 |
process_invoice($invoice_message); |
369 |
], |
369 |
1; |
370 |
'Invoice processed, with warnings, without dieing'; |
370 |
} or do { |
371 |
|
371 |
$error = $@; |
372 |
$logger->trace_like( qr/Adding invoice:.*/, "Trace recorded adding invoice" ) |
372 |
}; |
373 |
->trace_like( qr/Added as invoiceno.*/, "Trace recorded invoice added" )->error_is( |
373 |
ok( !$error, 'process_invoice completed without dying' ); |
|
|
374 |
|
375 |
$logger->trace_like( |
376 |
qr/Adding invoice:.*/, |
377 |
"Trace recorded adding invoice" |
378 |
)->trace_like( |
379 |
qr/Added as invoiceno.*/, |
380 |
"Trace recorded invoice added" |
381 |
)->error_is( |
374 |
'Skipping invoice line, no associated ordernumber', |
382 |
'Skipping invoice line, no associated ordernumber', |
375 |
"Received expected log line for missing ordernumber line" |
383 |
"Received expected log line for missing ordernumber line" |
376 |
)->error_like( |
384 |
)->error_like( |
Lines 385-390
subtest 'process_invoice' => sub {
Link Here
|
385 |
)->trace_like( |
393 |
)->trace_like( |
386 |
qr/Updating bib:.*/, |
394 |
qr/Updating bib:.*/, |
387 |
'Trace recorded bib updated' |
395 |
'Trace recorded bib updated' |
|
|
396 |
)->error_like( |
397 |
qr/Cannot find vendor with ean.*/, |
398 |
'Received expected log line for missing ean' |
388 |
)->clear(); |
399 |
)->clear(); |
389 |
|
400 |
|
390 |
my $invoice3 = Koha::Acquisition::Invoices->search( { invoicenumber => 'INV00003' }, { rows => 1 } )->single; |
401 |
my $invoice3 = Koha::Acquisition::Invoices->search( { invoicenumber => 'INV00003' }, { rows => 1 } )->single; |
391 |
- |
|
|