From cf9383412494964d6188fcf08a362c0c0f313afc Mon Sep 17 00:00:00 2001 From: Igor Pashev Date: Tue, 26 Nov 2019 14:11:14 +0300 Subject: Import perl (5.30.0-9) --- debian/tests/compression | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100755 debian/tests/compression (limited to 'debian/tests/compression') diff --git a/debian/tests/compression b/debian/tests/compression new file mode 100755 index 0000000..8835ee9 --- /dev/null +++ b/debian/tests/compression @@ -0,0 +1,30 @@ +#!/bin/sh + +set -e + +DATA=debian/tests/data + +echo "testing gz uncompression..." +msg="gz uncompressed OK" +echo "$msg" | gzip -c | perl -MIO::Uncompress::Gunzip=gunzip -e 'gunzip \*STDIN => \*STDOUT' | grep "$msg" + +for f in $DATA/*.gz; do + < $f perl -MIO::Uncompress::Gunzip=gunzip -e 'gunzip \*STDIN => \*STDOUT' | grep OK +done + +echo "testing gz compression..." +msg="gz compressed OK" +echo "$msg" | perl -MIO::Compress::Gzip=gzip -e 'gzip \*STDIN => \*STDOUT' | gzip -dc | grep "$msg" + +echo "testing bz2 uncompression" +msg="bz2 uncompressed OK" +echo "$msg" | bzip2 -c | perl -MIO::Uncompress::Bunzip2=bunzip2 -e 'bunzip2 \*STDIN => \*STDOUT' | grep "$msg" + +for f in $DATA/*.bz2; do + < $f perl -MIO::Uncompress::Bunzip2=bunzip2 -e 'bunzip2 \*STDIN => \*STDOUT' | grep OK +done + +echo "testing bz2 compression..." +msg="bz2 compressed OK" +echo "$msg" | perl -MIO::Compress::Bzip2=bzip2 -e 'bzip2 \*STDIN => \*STDOUT' | bzip2 -dc | grep "$msg" + -- cgit v1.2.3