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

(-)a/cpanfile (-1 lines)
Lines 114-120 requires 'Test', '1.25'; Link Here
114
requires 'Test::Harness', '2.56';
114
requires 'Test::Harness', '2.56';
115
requires 'Test::MockModule', '0.05';
115
requires 'Test::MockModule', '0.05';
116
requires 'Test::More', '1.302073';
116
requires 'Test::More', '1.302073';
117
requires 'Test::More::UTF8', '0.05';
118
requires 'Text::Bidi', '0.03';
117
requires 'Text::Bidi', '0.03';
119
requires 'Text::CSV', '0.01';
118
requires 'Text::CSV', '0.01';
120
requires 'Text::CSV::Encoded', '0.09';
119
requires 'Text::CSV::Encoded', '0.09';
(-)a/t/Koha_Template_Email_Header.t (-4 / +2 lines)
Lines 19-27 use utf8; Link Here
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use Test::More tests => 4;
21
use Test::More tests => 4;
22
use Test::More::UTF8;
23
22
24
use Encode qw(encode);
23
use Encode qw(encode encode_utf8);
25
use Encode::MIME::Header;
24
use Encode::MIME::Header;
26
25
27
use open qw( :std :encoding(UTF-8) );
26
use open qw( :std :encoding(UTF-8) );
Lines 48-54 my @tests = ( Link Here
48
47
49
# Test each case
48
# Test each case
50
for my $test (@tests) {
49
for my $test (@tests) {
51
     is($filter->filter($test->{input}), $test->{expected}, "Correctly encoded: '$test->{input} -> $test->{expected}'");
50
     is($filter->filter($test->{input}), $test->{expected}, encode_utf8("Correctly encoded: '$test->{input} -> $test->{expected}'"));
52
}
51
}
53
52
54
done_testing();
53
done_testing();
55
- 

Return to bug 37918