View | Details | Raw Unified | Return to bug 27884
Collapse All | Expand All

(-)a/t/db_dependent/Reports/Guided.t (-4 / +19 lines)
Lines 365-371 count(h.reservedate) AS 'holds' Link Here
365
365
366
subtest 'Email report test' => sub {
366
subtest 'Email report test' => sub {
367
367
368
    plan tests => 12;
368
    plan tests => 14;
369
    my $dbh = C4::Context->dbh;
369
    my $dbh = C4::Context->dbh;
370
370
371
    my $id1 = $builder->build({ source => 'Borrower',value => { surname => 'mailer', email => 'a@b.com', emailpro => 'b@c.com' } })->{ borrowernumber };
371
    my $id1 = $builder->build({ source => 'Borrower',value => { surname => 'mailer', email => 'a@b.com', emailpro => 'b@c.com' } })->{ borrowernumber };
Lines 379-385 subtest 'Email report test' => sub { Link Here
379
            value => {
379
            value => {
380
                content => "[% surname %]",
380
                content => "[% surname %]",
381
                branchcode => "",
381
                branchcode => "",
382
                message_transport_type => 'email'
382
                message_transport_type => 'email',
383
                is_html => undef
383
            }
384
            }
384
        });
385
        });
385
    my $letter2 = $builder->build({
386
    my $letter2 = $builder->build({
Lines 387-393 subtest 'Email report test' => sub { Link Here
387
            value => {
388
            value => {
388
                content => "[% firstname %]",
389
                content => "[% firstname %]",
389
                branchcode => "",
390
                branchcode => "",
390
                message_transport_type => 'email'
391
                message_transport_type => 'email',
392
                is_html => 0
393
            }
394
        });
395
396
    my $letter3 = $builder->build({
397
            source => 'Letter',
398
            value => {
399
                content => "[% surname %]",
400
                branchcode => "",
401
                message_transport_type => 'email',
402
                is_html => 1
391
            }
403
            }
392
        });
404
        });
393
405
Lines 416-427 subtest 'Email report test' => sub { Link Here
416
    ($emails, $errors ) = C4::Reports::Guided::EmailReport({report_id => $report1, module => $letter1->{module} , code => $letter1->{code}, from => 'the@future.ooh' });
428
    ($emails, $errors ) = C4::Reports::Guided::EmailReport({report_id => $report1, module => $letter1->{module} , code => $letter1->{code}, from => 'the@future.ooh' });
417
    is( $emails->[0]{letter}->{content}, "mailer", "Message has expected content");
429
    is( $emails->[0]{letter}->{content}, "mailer", "Message has expected content");
418
    is( $emails->[1]{letter}->{content}, "norman", "Message has expected content");
430
    is( $emails->[1]{letter}->{content}, "norman", "Message has expected content");
431
    is( $emails->[0]{letter}->{'content-type'}, undef, "Message content type is not set for plain text mail");
419
432
420
    ($emails, $errors ) = C4::Reports::Guided::EmailReport({report_id => $report1, module => $letter1->{module} , code => $letter1->{code}, from => 'the@future.ooh', email => 'emailpro' });
433
    ($emails, $errors ) = C4::Reports::Guided::EmailReport({report_id => $report1, module => $letter1->{module} , code => $letter1->{code}, from => 'the@future.ooh', email => 'emailpro' });
421
    is_deeply( $errors, [{'NO_EMAIL_COL'=>3}],"We report missing email in emailpro column");
434
    is_deeply( $errors, [{'NO_EMAIL_COL'=>3}],"We report missing email in emailpro column");
422
    is( $emails->[0]->{to_address}, 'b@c.com', "Message uses correct email");
435
    is( $emails->[0]->{to_address}, 'b@c.com', "Message uses correct email");
423
    is( $emails->[1]->{to_address}, 'd@e.com', "Message uses correct email");
436
    is( $emails->[1]->{to_address}, 'd@e.com', "Message uses correct email");
424
437
438
    ($emails) = C4::Reports::Guided::EmailReport({report_id => $report1, module => $letter3->{module} , code => $letter3->{code}, from => 'the@future.ooh' });
439
    is( $emails->[0]{letter}->{'content-type'}, 'text/html; charset="UTF-8"', "Message has expected content type");
440
425
};
441
};
426
442
427
$schema->storage->txn_rollback;
443
$schema->storage->txn_rollback;
428
- 

Return to bug 27884