--- /dev/null
+#!/usr/bin/perl
+use v5.14;
+use warnings;
+
+use Test::More tests => 114;
+use File::Slurp;
+
+use IO::Compress::Brotli;
+use IO::Uncompress::Brotli;
+
+for my $test (<brotli/tests/testdata/*.compressed>) {
+ my ($source) = $test =~ s/\.compressed$//r;
+ $source = read_file $source;
+
+ for my $quality (9,11) {
+ my $encoded = bro($source, $quality);
+ my $decoded = unbro($encoded);
+
+ is $decoded, $source, "$test - quality $quality";
+ }
+
+ for my $quality (1,5,9,11) {
+ my $enc = IO::Compress::Brotli->create;
+ $enc->quality($quality);
+ my $encoded = $enc->compress($source, 1);
+ $encoded .= $enc->finish();
+
+ my $dec = IO::Uncompress::Brotli->create;
+ my $decoded = $dec->decompress($encoded);
+
+ is $decoded, $source, "$test - streaming / quality $quality";
+ }
+}