]>
iEval git - io-compress-brotli.git/blob - t/02-roundtrip.t
5 use Test
::More tests
=> 114;
8 use IO
::Compress
::Brotli
;
9 use IO
::Uncompress
::Brotli
;
11 for my $test (<brotli
/tests/testdata
/*.compressed
>) {
12 my ($source) = $test =~ s/\.compressed$//r;
13 $source = read_file
$source;
15 for my $quality (9,11) {
16 my $encoded = bro
($source, $quality);
17 my $decoded = unbro
($encoded);
19 is
$decoded, $source, "$test - quality $quality";
22 for my $quality (1,5,9,11) {
23 my $enc = IO
::Compress
::Brotli
->create;
24 $enc->quality($quality);
25 my $encoded = $enc->compress($source, 1);
26 $encoded .= $enc->finish();
28 my $dec = IO
::Uncompress
::Brotli
->create;
29 my $decoded = $dec->decompress($encoded);
31 is
$decoded, $source, "$test - streaming / quality $quality";
This page took 0.04991 seconds and 4 git commands to generate.