X-Git-Url: http://git.ieval.ro/?p=io-compress-brotli.git;a=blobdiff_plain;f=t%2F01-uncompress.t;fp=t%2F01-uncompress.t;h=28907ca0ffd6618acab8d0ddd70e2b1172372fec;hp=fe2fe3a665ba47ddcb8afcd82647df79c7ee9e66;hb=56bfd9c0a0380461b810f820869768f4e8a7ad4a;hpb=390e0fef70ee97b173f25b04ce6308c572a0660a diff --git a/t/01-uncompress.t b/t/01-uncompress.t index fe2fe3a..28907ca 100644 --- a/t/01-uncompress.t +++ b/t/01-uncompress.t @@ -2,21 +2,17 @@ use v5.14; use warnings; -use Test::More tests => 80; +use Test::More tests => 84; use File::Slurp; use IO::Uncompress::Brotli; -my $todo_re = qr/empty\.compressed\.(?:1[7-9]|2)|x\.compressed\.0[12]/; - for my $test () { my ($expected) = $test =~ s/\.compressed.*//r; $expected = read_file $expected; - if($test !~ $todo_re) { - my $decoded = unbro (scalar read_file $test); - is $decoded, $expected, "$test"; - } + my $decoded = unbro ((scalar read_file $test), 1_000_000); + is $decoded, $expected, "$test"; open FH, '<', $test; my $unbro = IO::Uncompress::Brotli->create;