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

(-)a/t/Koha/Email.t (-5 / +4 lines)
Lines 37-44 subtest 'create() tests' => sub { Link Here
37
37
38
    my $email = Koha::Email->create(
38
    my $email = Koha::Email->create(
39
        {
39
        {
40
            from        => 'from@example.com',
40
            from        => 'Fróm <from@example.com>',
41
            to          => 'to@example.com',
41
            to          => 'Tö <to@example.com>',
42
            cc          => 'cc@example.com',
42
            cc          => 'cc@example.com',
43
            bcc         => 'bcc@example.com',
43
            bcc         => 'bcc@example.com',
44
            reply_to    => 'reply_to@example.com',
44
            reply_to    => 'reply_to@example.com',
Lines 49-56 subtest 'create() tests' => sub { Link Here
49
        }
49
        }
50
    );
50
    );
51
51
52
    is( $email->email->header('From'), 'from@example.com', 'Value set correctly' );
52
    is( $email->email->header('From'), 'Fróm <from@example.com>', 'Value set correctly' );
53
    is( $email->email->header('To'), 'to@example.com', 'Value set correctly' );
53
    is( $email->email->header('To'), 'Tö <to@example.com>', 'Value set correctly' );
54
    is( $email->email->header('Cc'), 'cc@example.com', 'Value set correctly' );
54
    is( $email->email->header('Cc'), 'cc@example.com', 'Value set correctly' );
55
    is( $email->email->header('Bcc'), 'bcc@example.com', 'Value set correctly' );
55
    is( $email->email->header('Bcc'), 'bcc@example.com', 'Value set correctly' );
56
    is( $email->email->header('Reply-To'), 'reply_to@example.com', 'Value set correctly' );
56
    is( $email->email->header('Reply-To'), 'reply_to@example.com', 'Value set correctly' );
57
- 

Return to bug 28870