From 9a0b88bf7777c153dc46ace22db74ef24d51583a Mon Sep 17 00:00:00 2001 From: Jay Berkenbilt Date: Tue, 29 Apr 2008 12:55:25 +0000 Subject: update release date to actual date git-svn-id: svn+q:///qpdf/trunk@599 71b93d88-0707-0410-a8cf-f5a4172ac649 --- zlib-flate/qtest/zf.test | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 zlib-flate/qtest/zf.test (limited to 'zlib-flate/qtest/zf.test') 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); -- cgit v1.2.3-70-g09d2