|
Lines 286-292
$prepared_letter = GetPreparedLetter(
Link Here
|
| 286 |
is( $prepared_letter->{content}, $modification->id(), 'Patron modification object used correctly' ); |
286 |
is( $prepared_letter->{content}, $modification->id(), 'Patron modification object used correctly' ); |
| 287 |
|
287 |
|
| 288 |
subtest 'regression tests' => sub { |
288 |
subtest 'regression tests' => sub { |
| 289 |
plan tests => 3; |
289 |
plan tests => 4; |
| 290 |
|
290 |
|
| 291 |
my $library = $builder->build( { source => 'Branch' } ); |
291 |
my $library = $builder->build( { source => 'Branch' } ); |
| 292 |
my $patron = $builder->build( { source => 'Borrower' } ); |
292 |
my $patron = $builder->build( { source => 'Borrower' } ); |
|
Lines 504-509
subtest 'loops' => sub {
Link Here
|
| 504 |
my $expected_letter = join '', ( $checkout_1->{issue_id}, $checkout_2->{issue_id} ); |
504 |
my $expected_letter = join '', ( $checkout_1->{issue_id}, $checkout_2->{issue_id} ); |
| 505 |
is( $letter->{content}, $expected_letter, ); |
505 |
is( $letter->{content}, $expected_letter, ); |
| 506 |
}; |
506 |
}; |
|
|
507 |
|
| 508 |
subtest 'DUEDGST|count' => sub { |
| 509 |
plan tests => 1; |
| 510 |
|
| 511 |
my $code = 'DUEDGST'; |
| 512 |
|
| 513 |
my $dbh = C4::Context->dbh; |
| 514 |
# Enable notification for DUEDGST - Things are hardcoded here but should work with default data |
| 515 |
$dbh->do(q|INSERT INTO borrower_message_preferences( borrowernumber, message_attribute_id ) VALUES ( ?, ? )|, undef, $patron->{borrowernumber}, 1 ); |
| 516 |
my $borrower_message_preference_id = $dbh->last_insert_id(undef, undef, "borrower_message_preferences", undef); |
| 517 |
$dbh->do(q|INSERT INTO borrower_message_transport_preferences( borrower_message_preference_id, message_transport_type) VALUES ( ?, ? )|, undef, $borrower_message_preference_id, 'email' ); |
| 518 |
|
| 519 |
my $params = { |
| 520 |
code => $code, |
| 521 |
substitute => { count => 42 }, |
| 522 |
}; |
| 523 |
|
| 524 |
my $template = q| |
| 525 |
You have <<count>> items due |
| 526 |
|; |
| 527 |
my $letter = process_letter( { template => $template, %$params }); |
| 528 |
|
| 529 |
my $tt_template = q| |
| 530 |
You have [% count %] items due |
| 531 |
|; |
| 532 |
my $tt_letter = process_letter( { template => $tt_template, %$params }); |
| 533 |
is( $tt_letter->{content}, $letter->{content}, ); |
| 534 |
}; |
| 535 |
|
| 507 |
}; |
536 |
}; |
| 508 |
|
537 |
|
| 509 |
sub reset_template { |
538 |
sub reset_template { |
| 510 |
- |
|
|