X-Git-Url: http://git.ieval.ro/?p=io-compress-brotli.git;a=blobdiff_plain;f=t%2F01-uncompress.t;h=f67c5e478bf054f122a0ebb609115b772983c09d;hp=28907ca0ffd6618acab8d0ddd70e2b1172372fec;hb=c8ec568572a62b6f73105b5862a52c8a38555852;hpb=56bfd9c0a0380461b810f820869768f4e8a7ad4a

diff --git a/t/01-uncompress.t b/t/01-uncompress.t
index 28907ca..f67c5e4 100644
--- a/t/01-uncompress.t
+++ b/t/01-uncompress.t
@@ -3,18 +3,19 @@ use v5.14;
 use warnings;
 
 use Test::More tests => 84;
-use File::Slurp;
+use File::Slurper qw/read_binary/;
 
 use IO::Uncompress::Brotli;
 
 for my $test (<brotli/tests/testdata/*.compressed*>) {
 	my ($expected) = $test =~ s/\.compressed.*//r;
-	$expected = read_file $expected;
+	$expected = read_binary $expected;
 
-	my $decoded = unbro ((scalar read_file $test), 1_000_000);
+	my $decoded = unbro ((scalar read_binary $test), 1_000_000);
 	is $decoded, $expected, "$test";
 
 	open FH, '<', $test;
+	binmode FH;
 	my $unbro = IO::Uncompress::Brotli->create;
 	my ($buf, $out);
 	until (eof FH) {