Attachment #124002 for bug #28870

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





    my $email = Koha::Email->create(
        {
            from        => 'Fróm <from@example.com>',
            to          => 'Tö <to@example.com>',
            cc          => 'cc@example.com',
            bcc         => 'bcc@example.com',
            reply_to    => 'reply_to@example.com',

        }
    );

    is( $email->email->header('From'), 'Fróm <from@example.com>', 'Value set correctly' );
    is( $email->email->header('To'), 'Tö <to@example.com>', 'Value set correctly' );
    is( $email->email->header('Cc'), 'cc@example.com', 'Value set correctly' );
    is( $email->email->header('Bcc'), 'bcc@example.com', 'Value set correctly' );
    is( $email->email->header('Reply-To'), 'reply_to@example.com', 'Value set correctly' );
- 

Return to bug 28870

Lines 37-44 subtest 'create() tests' => sub { Link Here

(-)a/t/Koha/Email.t (-5 / +4 lines)
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	-