1 files changed, 26 insertions, 0 deletions
diff --git a/zlib-flate/qtest/zf.test b/zlib-flate/qtest/zf.test
new file mode 100644
index 00000000..39271e16
--- /dev/null
+++ b/zlib-flate/qtest/zf.test
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+require 5.008;
+BEGIN { $^W = 1; }
+use strict;
+
+require TestDriver;
+
+my $td = new TestDriver('zlib-flate');
+
+$td->runtest("compress",
+	     {$td->COMMAND => "zlib-flate -compress < 1.uncompressed"},
+	     {$td->FILE => "1.compressed",
+	      $td->EXIT_STATUS => 0});
+
+$td->runtest("uncompress",
+	     {$td->COMMAND => "zlib-flate -uncompress < 1.compressed"},
+	     {$td->FILE => "1.uncompressed",
+	      $td->EXIT_STATUS => 0});
+
+$td->runtest("error",
+	     {$td->COMMAND => "zlib-flate -uncompress < 1.uncompressed"},
+	     {$td->REGEXP => "flate: inflate: data: .*\n",
+	      $td->EXIT_STATUS => 2},
+	     $td->NORMALIZE_NEWLINES);
+
+$td->report(3);