parent
49cc46b7e2
commit
dbbe8bc88f
@ -0,0 +1,40 @@
|
|||||||
|
When a tested file contains Latin-1 chars, Test::EOL issues warnings and
|
||||||
|
fails if trailing_whitespace option is turned on.
|
||||||
|
|
||||||
|
diff -up Test-EOL-0.9/lib/Test/EOL.pm Test-EOL-0.9/lib/Test/EOL.pm
|
||||||
|
--- Test-EOL-0.9/lib/Test/EOL.pm 2010-06-16 15:05:07.000000000 +0100
|
||||||
|
+++ Test-EOL-0.9/lib/Test/EOL.pm 2010-10-18 09:58:18.077182938 +0100
|
||||||
|
@@ -104,7 +104,7 @@ sub eol_unix_ok {
|
||||||
|
|
||||||
|
open my $fh, $file or do { $Test->ok(0, $test_txt); $Test->diag("Could not open $file: $!"); return; };
|
||||||
|
# Windows-- , default is :crlf, which hides \r\n -_-
|
||||||
|
- binmode( $fh, ':raw:utf8' );
|
||||||
|
+ binmode( $fh, ':raw' );
|
||||||
|
my $line = 0;
|
||||||
|
my @fails;
|
||||||
|
while (<$fh>) {
|
||||||
|
diff -up /dev/null Test-EOL-0.9/t/13-latin1.t
|
||||||
|
--- /dev/null 1970-01-01 00:00:00.000000000 +0000
|
||||||
|
+++ Test-EOL-0.9/t/13-latin1.t 2010-10-18 09:57:00.019168309 +0100
|
||||||
|
@@ -0,0 +1,21 @@
|
||||||
|
+use strict;
|
||||||
|
+
|
||||||
|
+use Test::More tests => 1;
|
||||||
|
+
|
||||||
|
+use Test::EOL;
|
||||||
|
+
|
||||||
|
+use File::Temp 'tempfile';
|
||||||
|
+
|
||||||
|
+my $file5 = make_file5();
|
||||||
|
+eol_unix_ok( $file5, { trailing_whitespace => 1 });
|
||||||
|
+
|
||||||
|
+unlink $file5;
|
||||||
|
+
|
||||||
|
+sub make_file5 {
|
||||||
|
+ my ($fh, $filename) = tempfile();
|
||||||
|
+ print $fh <<'DUMMY';
|
||||||
|
+#!/usr/bin/perl
|
||||||
|
+print "Grüße!\n";
|
||||||
|
+DUMMY
|
||||||
|
+ return $filename;
|
||||||
|
+}
|
Loading…
Reference in new issue