X-Git-Url: http://git.ieval.ro/?p=io-compress-brotli.git;a=blobdiff_plain;f=t%2F01-uncompress.t;h=b8fbc6dba22f4a40ae3388d863c337386db5b527;hp=c29fa6e28401f0b7015ef49d170f2d633073f284;hb=799b2a343f40ccc586481aa7b269da5f0abf513f;hpb=c17e7d6329e8a24e6128a9f70e2b597fce1b5b0a

diff --git a/t/01-uncompress.t b/t/01-uncompress.t
index c29fa6e..b8fbc6d 100644
--- a/t/01-uncompress.t
+++ b/t/01-uncompress.t
@@ -2,7 +2,7 @@
 use v5.14;
 use warnings;
 
-use Test::More tests => 84;
+use Test::More tests => 126;
 use File::Slurper qw/read_binary/;
 
 use IO::Uncompress::Brotli;
@@ -12,9 +12,13 @@ for my $test (<brotli/tests/testdata/*.compressed*>) {
 	$expected = read_binary $expected;
 
 	my $decoded = unbro ((scalar read_binary $test), 1_000_000);
-	is $decoded, $expected, "$test";
+	is $decoded, $expected, "$test (two-argument unbro)";
+
+	$decoded = unbro scalar read_binary $test;
+	is $decoded, $expected, "$test (one-argument unbro)";
 
 	open FH, '<', $test;
+	binmode FH;
 	my $unbro = IO::Uncompress::Brotli->create;
 	my ($buf, $out);
 	until (eof FH) {