X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2F02-roundtrip.t;fp=t%2F02-roundtrip.t;h=16407d1fffa6cafb9b885686bcf64f596b579a4f;hb=2786a68d54239318b1ca7d6045f8a5830a979142;hp=0000000000000000000000000000000000000000;hpb=09cf71869cec48dd79483c65c190f7b79a442da8;p=io-compress-brotli.git

diff --git a/t/02-roundtrip.t b/t/02-roundtrip.t
new file mode 100644
index 0000000..16407d1
--- /dev/null
+++ b/t/02-roundtrip.t
@@ -0,0 +1,33 @@
+#!/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";
+    }
+}