Replace File::Slurp with File::Slurper

[io-compress-brotli.git] / t / 02-roundtrip.t

diff --git a/t/02-roundtrip.t b/t/02-roundtrip.t
index 50cf87f02d3aca3257b12fae45c7499371247f66..f2c40b8dbfbf3df99d78cbf284fcf1ee74d47e96 100644 (file)
--- a/t/02-roundtrip.t
+++ b/t/02-roundtrip.t
@@ -3,18 +3,18 @@ use v5.14;
 use warnings;
 
 use Test::More tests => 114;
-use File::Slurp;
+use File::Slurper qw/read_binary/;
 
 use IO::Compress::Brotli;
 use IO::Uncompress::Brotli;
 
 for my $test (<brotli/tests/testdata/*.compressed>) {
        my ($source) = $test =~ s/\.compressed$//r;
-       $source = read_file $source;
+       $source = read_binary $source;
 
        for my $quality (9,11) {
                my $encoded = bro($source, $quality);
-               my $decoded = unbro($encoded);
+               my $decoded = unbro($encoded, 1_000_000);
 
                is $decoded, $source, "$test - quality $quality";
        }