X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2F02-roundtrip.t;h=f2c40b8dbfbf3df99d78cbf284fcf1ee74d47e96;hb=c17e7d6329e8a24e6128a9f70e2b597fce1b5b0a;hp=50cf87f02d3aca3257b12fae45c7499371247f66;hpb=9aa33e85912af3e998ad3be3497b4bbfe2fe3a1d;p=io-compress-brotli.git diff --git a/t/02-roundtrip.t b/t/02-roundtrip.t index 50cf87f..f2c40b8 100644 --- 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 () { 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"; }