Commit | Line | Data |
a2bfe7c3 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More tests => 2; |
5 | use File::Temp qw( tempdir tempfile ); |
6 | |
7 | use Config; |
8 | $ENV{PERL5LIB} = join ($Config{path_sep}, @INC); |
9 | |
10 | { |
11 | my $tmpdir = tempdir( CLEANUP => 1 ); |
12 | my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pL' ); |
13 | print $fh "\xE1\xF3 how na\xEFve"; |
14 | close $fh; |
15 | |
8574fc00 |
16 | my (undef, $stderr) = tempfile(); |
a2bfe7c3 |
17 | |
8574fc00 |
18 | `$^X -MTest::EOL -e "all_perl_files_ok( '$tmpdir' )" 2>$stderr`; |
a2bfe7c3 |
19 | ok(! $? ); |
20 | |
8574fc00 |
21 | my $out = do { local (@ARGV, $/) = $stderr; <> }; |
a2bfe7c3 |
22 | |
23 | is ( |
24 | $out, |
8574fc00 |
25 | '', |
26 | 'no malformed unicode warnings on STDERR', |
a2bfe7c3 |
27 | ); |
28 | |
8574fc00 |
29 | unlink $stderr; |
a2bfe7c3 |
30 | } |