From: Peter Rabbitson <ribasushi@cpan.org>
Date: Mon, 16 Jan 2012 11:14:08 +0000 (+0100)
Subject: Only test for an empty STDERR, we don't really care what STDOUT looks like
X-Git-Tag: 1.1~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FTest-EOL.git;a=commitdiff_plain;h=8574fc00bc4a7ddbcbc15474043648a56ee7a578

Only test for an empty STDERR, we don't really care what STDOUT looks like
---

diff --git a/Changes b/Changes
index 2dcd8b7..cc99d93 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 Revision history for Test-EOL
 
     - Fix test fails on < 5.8 perls
+    - Fix t/13-latin1.t failures on Win32 and under TB1.5
 
 1.0  2012-01-05
     - Fix misleading test failure diagnostics when only issue are
diff --git a/t/13-latin1.t b/t/13-latin1.t
index 62fd6c6..b0068da 100644
--- a/t/13-latin1.t
+++ b/t/13-latin1.t
@@ -13,18 +13,18 @@ $ENV{PERL5LIB} = join ($Config{path_sep}, @INC);
   print $fh "\xE1\xF3 how na\xEFve";
   close $fh;
 
-  my (undef, $outfile) = tempfile();
+  my (undef, $stderr) = tempfile();
 
-  `$^X -MTest::EOL -e "all_perl_files_ok( '$tmpdir' )" >$outfile 2>&1`;
+  `$^X -MTest::EOL -e "all_perl_files_ok( '$tmpdir' )" 2>$stderr`;
   ok(! $? );
 
-  my $out = do { local (@ARGV, $/) = $outfile; <> };
+  my $out = do { local (@ARGV, $/) = $stderr; <> };
 
   is (
     $out,
-    "ok 1 - No incorrect line endings in '$filename'\n1..1\n",
-    'no malformed unicode warnings',
+    '',
+    'no malformed unicode warnings on STDERR',
   );
 
-  unlink $outfile;
+  unlink $stderr;
 }