| Subject: | [PATCH] Encode failure |
t/pp_03_file.t ............... 1/20 Cannot decode string with wide characters at /pro/lib/perl5/site_perl/5.18.2/i686-linux-64int-ld/Encode.pm line 215, <$fh2> line 2.
Compilation failed in require at t/pp_03_file.t line 14.
# Looks like you planned 20 tests but ran 12.
# Looks like your test exited with 25 just after 12.
t/pp_03_file.t ............... Dubious, test returned 25 (wstat 6400, 0x1900)
Failed 8/20 subtests
t/xs_03_file.t ............... 1/20 Cannot decode string with wide characters at /pro/lib/perl5/site_perl/5.18.2/i686-linux-64int-ld/Encode.pm line 215, <$fh2> line 2.
Compilation failed in require at t/xs_03_file.t line 16.
# Looks like you planned 20 tests but ran 12.
# Looks like your test exited with 25 just after 12.
t/xs_03_file.t ............... Dubious, test returned 25 (wstat 6400, 0x1900)
Failed 8/20 subtests
--8<--- fix.diff
--- t/tests/03_file.t 2014-02-28 22:33:15.663199644 +0100
+++ t/tests/03_file.t 2014-02-28 22:27:13.230749822 +0100
@@ -105,7 +105,8 @@ $csv->encoding( undef );
while( 1 ) {
my $row = $csv->getline( $fh );
$csv->eof and last;
- is( $row->[0], Encode::decode_utf8( $checker->getline( $fh2 )->[1] ) );
+ my $data = $checker->getline( $fh2 )->[1];
+ is( $row->[0], utf8::is_utf8 ($data) ? $data : Encode::decode_utf8( $data ) );
}
close($fh);
-->8---