]>
iEval git - io-compress-brotli.git/blob - t/01-uncompress.t
5 use Test
::More tests
=> 80;
8 use IO
::Uncompress
::Brotli
;
10 my $todo_re = qr/empty\.compressed\.(?:1[7-9]|2)|x\.compressed\.0[12]/;
12 for my $test (<brotli
/tests/testdata
/*.compressed
*>) {
13 my ($expected) = $test =~ s/\.compressed.*//r;
14 $expected = read_file
$expected;
16 if($test !~ $todo_re) {
17 my $decoded = unbro
(scalar read_file
$test);
18 is
$decoded, $expected, "$test";
22 my $unbro = IO
::Uncompress
::Brotli
->create;
26 $out .= $unbro->decompress($buf);
28 is
$out, $expected, "$test (streaming)";
This page took 0.050739 seconds and 4 git commands to generate.