X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2F02-roundtrip.t;h=f2c40b8dbfbf3df99d78cbf284fcf1ee74d47e96;hb=5ee4633d92cba88efc83bea3613e7c1dd8b10b81;hp=16407d1fffa6cafb9b885686bcf64f596b579a4f;hpb=2786a68d54239318b1ca7d6045f8a5830a979142;p=io-compress-brotli.git

diff --git a/t/02-roundtrip.t b/t/02-roundtrip.t
index 16407d1..f2c40b8 100644
--- a/t/02-roundtrip.t
+++ b/t/02-roundtrip.t
@@ -3,31 +3,31 @@ 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);
+	for my $quality (9,11) {
+		my $encoded = bro($source, $quality);
+		my $decoded = unbro($encoded, 1_000_000);
 
-        is $decoded, $source, "$test - quality $quality";
-    }
+		is $decoded, $source, "$test - quality $quality";
+	}
 
-    for my $quality (1,5,9,11) {
+	for my $quality (1,5,9,11) {
 		my $enc = IO::Compress::Brotli->create;
 		$enc->quality($quality);
-        my $encoded = $enc->compress($source, 1);
-        $encoded .= $enc->finish();
+		my $encoded = $enc->compress($source);
+		$encoded .= $enc->finish();
 
 		my $dec = IO::Uncompress::Brotli->create;
-        my $decoded = $dec->decompress($encoded);
+		my $decoded = $dec->decompress($encoded);
 
-        is $decoded, $source, "$test - streaming / quality $quality";
-    }
+		is $decoded, $source, "$test - streaming / quality $quality";
+	}
 }