Lines 47-52
use Koha::Acquisition::Order;
Link Here
|
47 |
use Koha::Acquisition::Booksellers; |
47 |
use Koha::Acquisition::Booksellers; |
48 |
use Koha::Acquisition::Bookseller::Contacts; |
48 |
use Koha::Acquisition::Bookseller::Contacts; |
49 |
use Koha::Libraries; |
49 |
use Koha::Libraries; |
|
|
50 |
use Koha::Notice::Templates; |
50 |
my $schema = Koha::Database->schema; |
51 |
my $schema = Koha::Database->schema; |
51 |
$schema->storage->txn_begin(); |
52 |
$schema->storage->txn_begin(); |
52 |
|
53 |
|
Lines 439-444
warning_like {
Link Here
|
439 |
is($err->{'error'}, 'no_letter', "No TESTACQORDER letter was defined."); |
440 |
is($err->{'error'}, 'no_letter', "No TESTACQORDER letter was defined."); |
440 |
} |
441 |
} |
441 |
|
442 |
|
|
|
443 |
subtest 'GetPreparedLetter' => sub { |
444 |
plan tests => 2; |
445 |
|
446 |
Koha::Notice::Template->new( |
447 |
{ |
448 |
module => 'test', |
449 |
code => 'test', |
450 |
branchcode => '', |
451 |
message_transport_type => 'email' |
452 |
} |
453 |
)->store; |
454 |
my $letter; |
455 |
warning_like { |
456 |
$letter = C4::Letters::GetPreparedLetter( |
457 |
module => 'test', |
458 |
letter_code => 'test', |
459 |
); |
460 |
} |
461 |
qr{^ERROR: nothing to substitute}, |
462 |
'GetPreparedLetter should warn if tables, substiture and repeat are not set'; |
463 |
is( $letter, undef, |
464 |
'No letter should be returned by GetPreparedLetter if something went wrong' |
465 |
); |
466 |
|
467 |
warning_like { |
468 |
$letter = C4::Letters::GetPreparedLetter( |
469 |
module => 'test', |
470 |
letter_code => 'test', |
471 |
substitute => {} |
472 |
); |
473 |
} |
474 |
qr{^ERROR: nothing to substitute}, |
475 |
'GetPreparedLetter should warn if tables, substiture and repeat are not set, even if the key is passed'; |
476 |
is( $letter, undef, |
477 |
'No letter should be returned by GetPreparedLetter if something went wrong' |
478 |
); |
479 |
|
480 |
}; |
442 |
|
481 |
|
443 |
{ |
482 |
{ |
444 |
warning_is { |
483 |
warning_is { |
445 |
- |
|
|