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

(-)a/t/Koha/Email.t (-15 / +14 lines)
Lines 51-70 subtest 'create() tests' => sub { Link Here
51
        }
51
        }
52
    );
52
    );
53
53
54
    is( $email->email->header('From'), 'Fróm <from@example.com>', 'Value set correctly' );
54
    is( $email->email->header('From'),               'Fróm <from@example.com>', 'Value set correctly' );
55
    is( $email->email->header('To'), 'Tö <to@example.com>', 'Value set correctly' );
55
    is( $email->email->header('To'),                 'Tö <to@example.com>',     'Value set correctly' );
56
    is( $email->email->header('Cc'), 'cc@example.com', 'Value set correctly' );
56
    is( $email->email->header('Cc'),                 'cc@example.com',          'Value set correctly' );
57
    is( $email->email->header('Bcc'), 'bcc@example.com', 'Value set correctly' );
57
    is( $email->email->header('Bcc'),                'bcc@example.com',         'Value set correctly' );
58
    is( $email->email->header('Reply-To'), 'reply_to@example.com', 'Value set correctly' );
58
    is( $email->email->header('Reply-To'),           'reply_to@example.com',    'Value set correctly' );
59
    is( $email->email->header('Sender'), 'sender@example.com', 'Value set correctly' );
59
    is( $email->email->header('Sender'),             'sender@example.com',      'Value set correctly' );
60
    is( $email->email->header('Subject'), 'Some subject', 'Value set correctly' );
60
    is( $email->email->header('Subject'),            'Some subject',            'Value set correctly' );
61
    is( $email->email->header('X-Mailer'), 'Koha', 'Value set correctly' );
61
    is( $email->email->header('X-Mailer'),           'Koha',                    'Value set correctly' );
62
    is( $email->email->header('X-Koha-Template-Id'), 1, 'Value set correctly' );
62
    is( $email->email->header('X-Koha-Template-Id'), 1,                         'Value set correctly' );
63
    is( $email->email->header('X-Koha-Message-Id'),  1, 'Value set correctly' );
63
    is( $email->email->header('X-Koha-Message-Id'),  1,                         'Value set correctly' );
64
    is( $email->email->body, $html_body, "Body set correctly" );
64
    is( $email->email->body,                         $html_body,                "Body set correctly" );
65
    like( $email->email->content_type, qr|text/html|, "Content type set correctly");
65
    like( $email->email->content_type,         qr|text/html|,              "Content type set correctly" );
66
    like( $email->email->content_type, qr|charset="?iso-8859-1"?|, "Charset set correctly");
66
    like( $email->email->content_type,         qr|charset="?iso-8859-1"?|, "Charset set correctly" );
67
    like( $email->email->header('Message-ID'), qr/\<.*@.*\>/, 'Value set correctly' );
67
    like( $email->email->header('Message-ID'), qr/\<.*@.*\>/,              'Value set correctly' );
68
68
69
    $email = Koha::Email->create(
69
    $email = Koha::Email->create(
70
        {
70
        {
71
- 

Return to bug 31627