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