Blame t/20-no-side-effects.t
|
Packit |
aa5309 |
#! perl
|
|
Packit |
aa5309 |
|
|
Packit |
aa5309 |
use strict;
|
|
Packit |
aa5309 |
use warnings;
|
|
Packit |
aa5309 |
|
|
Packit |
aa5309 |
use Test::More;
|
|
Packit |
aa5309 |
use Test::Warnings;
|
|
Packit |
aa5309 |
|
|
Packit |
aa5309 |
use File::Slurper 'read_text';
|
|
Packit |
aa5309 |
use File::Spec::Functions 'catfile';
|
|
Packit |
aa5309 |
use FindBin '$RealBin';
|
|
Packit |
aa5309 |
use File::Temp 'tempfile';
|
|
Packit |
aa5309 |
|
|
Packit |
aa5309 |
my $inputfile = catfile( $RealBin, 'data', 'cp1252.txt' );
|
|
Packit |
aa5309 |
|
|
Packit |
aa5309 |
my $s = read_text( $inputfile, 'cp1252' );
|
|
Packit |
aa5309 |
|
|
Packit |
aa5309 |
my ( $outfh, $outputfile ) = tempfile();
|
|
Packit |
aa5309 |
binmode $outfh, ':encoding(utf8)';
|
|
Packit |
aa5309 |
|
|
Packit |
aa5309 |
print $outfh "Snowman! \x{2603}\n";
|
|
Packit |
aa5309 |
close $outfh;
|
|
Packit |
aa5309 |
|
|
Packit |
aa5309 |
done_testing;
|