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 |
- |
|
|