|
Lines 361-372
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 => 9; |
364 |
plan tests => 12; |
| 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', emailpro => 'b@c.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, emailpro => 'd@e.com' } })->{ borrowernumber }; |
| 368 |
my $id3 = $builder->build({ source => 'Borrower',value => { surname => 'norman', email => 'a@b.com' } })->{ borrowernumber }; |
368 |
my $id3 = $builder->build({ source => 'Borrower',value => { surname => 'norman', email => 'a@b.com', emailpro => undef } })->{ 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 $report1 = $builder->build({ source => 'SavedSql', value => { savedsql => "SELECT surname,borrowernumber,email,emailpro FROM borrowers WHERE borrowernumber IN ($id1,$id2,$id3)" } })->{ id }; |
| 370 |
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 }; |
| 371 |
|
371 |
|
| 372 |
my $letter1 = $builder->build({ |
372 |
my $letter1 = $builder->build({ |
|
Lines 411-416
subtest 'Email report test' => sub {
Link Here
|
| 411 |
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"); |
412 |
is( $emails->[1]{letter}->{content}, "norman", "Message has expected content"); |
| 413 |
|
413 |
|
|
|
414 |
($emails, $errors ) = C4::Reports::Guided::EmailReport({report_id => $report1, module => $letter1->{module} , code => $letter1->{code}, from => 'the@future.ooh', email => 'emailpro' }); |
| 415 |
is_deeply( $errors, [{'NO_EMAIL_COL'=>3}],"We report missing email in emailpro column"); |
| 416 |
is( $emails->[0]->{to_address}, 'b@c.com', "Message uses correct email"); |
| 417 |
is( $emails->[1]->{to_address}, 'd@e.com', "Message uses correct email"); |
| 418 |
|
| 414 |
}; |
419 |
}; |
| 415 |
|
420 |
|
| 416 |
$schema->storage->txn_rollback; |
421 |
$schema->storage->txn_rollback; |
| 417 |
- |
|
|