binmode FH in test (RT #125995)

[io-compress-brotli.git] / t / 01-uncompress.t

diff --git a/t/01-uncompress.t b/t/01-uncompress.t
index fe2fe3a665ba47ddcb8afcd82647df79c7ee9e66..f67c5e478bf054f122a0ebb609115b772983c09d 100644 (file)
--- a/t/01-uncompress.t
+++ b/t/01-uncompress.t
@@ -2,23 +2,20 @@
 use v5.14;
 use warnings;
 
-use Test::More tests => 80;
-use File::Slurp;
+use Test::More tests => 84;
+use File::Slurper qw/read_binary/;
 
 use IO::Uncompress::Brotli;
 
-my $todo_re = qr/empty\.compressed\.(?:1[7-9]|2)|x\.compressed\.0[12]/;
-
 for my $test (<brotli/tests/testdata/*.compressed*>) {
        my ($expected) = $test =~ s/\.compressed.*//r;
-       $expected = read_file $expected;
+       $expected = read_binary $expected;
 
-       if($test !~ $todo_re) {
-               my $decoded = unbro (scalar read_file $test);
-               is $decoded, $expected, "$test";
-       }
+       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) {