]>
iEval git - io-compress-brotli.git/blob - 01-uncompress.t
c29fa6e28401f0b7015ef49d170f2d633073f284
5 use Test
::More tests
=> 84;
6 use File
::Slurper qw
/read_binary/;
8 use IO
::Uncompress
::Brotli
;
10 for my $test (<brotli
/tests/testdata
/*.compressed
*>) {
11 my ($expected) = $test =~ s/\.compressed.*//r;
12 $expected = read_binary
$expected;
14 my $decoded = unbro
((scalar read_binary
$test), 1_000_000
);
15 is
$decoded, $expected, "$test";
18 my $unbro = IO
::Uncompress
::Brotli
->create;
22 $out .= $unbro->decompress($buf);
24 is
$out, $expected, "$test (streaming)";
This page took 0.049932 seconds and 3 git commands to generate.