|
Lines 361-371
count(h.reservedate) AS 'holds'
Link Here
|
| 361 |
|
361 |
|
| 362 |
subtest 'Email report test' => sub { |
362 |
subtest 'Email report test' => sub { |
| 363 |
|
363 |
|
| 364 |
plan tests => 8; |
364 |
plan tests => 9; |
| 365 |
|
365 |
|
| 366 |
my $id1 = $builder->build({ source => 'Borrower',value => { surname => 'mailer', email => 'a@b.com' } })->{ borrowernumber }; |
366 |
my $id1 = $builder->build({ source => 'Borrower',value => { surname => 'mailer', email => 'a@b.com' } })->{ borrowernumber }; |
| 367 |
my $id2 = $builder->build({ source => 'Borrower',value => { surname => 'nomailer', email => undef } })->{ borrowernumber }; |
367 |
my $id2 = $builder->build({ source => 'Borrower',value => { surname => 'nomailer', email => undef } })->{ borrowernumber }; |
| 368 |
my $report1 = $builder->build({ source => 'SavedSql', value => { savedsql => "SELECT surname,borrowernumber,email FROM borrowers WHERE borrowernumber IN ($id1,$id2)" } })->{ id }; |
368 |
my $id3 = $builder->build({ source => 'Borrower',value => { surname => 'norman', email => 'a@b.com' } })->{ borrowernumber }; |
|
|
369 |
my $report1 = $builder->build({ source => 'SavedSql', value => { savedsql => "SELECT surname,borrowernumber,email FROM borrowers WHERE borrowernumber IN ($id1,$id2,$id3)" } })->{ id }; |
| 369 |
my $report2 = $builder->build({ source => 'SavedSql', value => { savedsql => "SELECT potato FROM mashed" } })->{ id }; |
370 |
my $report2 = $builder->build({ source => 'SavedSql', value => { savedsql => "SELECT potato FROM mashed" } })->{ id }; |
| 370 |
|
371 |
|
| 371 |
my $letter1 = $builder->build({ |
372 |
my $letter1 = $builder->build({ |
|
Lines 408-413
subtest 'Email report test' => sub {
Link Here
|
| 408 |
|
409 |
|
| 409 |
($emails, $errors ) = C4::Reports::Guided::EmailReport({report_id => $report1, module => $letter1->{module} , code => $letter1->{code}, from => 'the@future.ooh' }); |
410 |
($emails, $errors ) = C4::Reports::Guided::EmailReport({report_id => $report1, module => $letter1->{module} , code => $letter1->{code}, from => 'the@future.ooh' }); |
| 410 |
is( $emails->[0]{letter}->{content}, "mailer", "Message has expected content"); |
411 |
is( $emails->[0]{letter}->{content}, "mailer", "Message has expected content"); |
|
|
412 |
is( $emails->[1]{letter}->{content}, "norman", "Message has expected content"); |
| 411 |
|
413 |
|
| 412 |
}; |
414 |
}; |
| 413 |
|
415 |
|
| 414 |
- |
|
|