]> iEval git - io-compress-brotli.git/blame - t/01-uncompress.t
Fix bin/bro-perl
[io-compress-brotli.git] / t / 01-uncompress.t
CommitLineData
f9995f31
MG
1#!/usr/bin/perl
2use v5.14;
3use warnings;
4
56bfd9c0 5use Test::More tests => 84;
f9995f31 6use File::Slurp;
2786a68d
QR
7
8use IO::Uncompress::Brotli;
f9995f31 9
28ab7055 10for my $test (<brotli/tests/testdata/*.compressed*>) {
f9995f31
MG
11 my ($expected) = $test =~ s/\.compressed.*//r;
12 $expected = read_file $expected;
13
56bfd9c0
MG
14 my $decoded = unbro ((scalar read_file $test), 1_000_000);
15 is $decoded, $expected, "$test";
f9995f31
MG
16
17 open FH, '<', $test;
18 my $unbro = IO::Uncompress::Brotli->create;
19 my ($buf, $out);
20 until (eof FH) {
21 read FH, $buf, 100;
22 $out .= $unbro->decompress($buf);
23 }
24 is $out, $expected, "$test (streaming)";
25}
This page took 0.026338 seconds and 4 git commands to generate.