]>
iEval git - io-compress-brotli.git/blob - t/01-uncompress.t
5 use Test
::More tests
=> 84;
8 use IO
::Uncompress
::Brotli
;
10 for my $test (<brotli
/tests/testdata
/*.compressed
*>) {
11 my ($expected) = $test =~ s/\.compressed.*//r;
12 $expected = read_file
$expected;
14 my $decoded = unbro
((scalar read_file
$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.046415 seconds and 4 git commands to generate.