[devscripts] 01/03: Add testcase repacking zip file

[Joachim Breitner]

This is an automated email from the git hooks/post-receive script.

nomeata pushed a commit to branch master
in repository devscripts.

commit adabbc0ac9c6f2bb784cece54bd865d56d88746e
Author: Joachim Breitner <nomeata at debian.org>
Date:   Wed Mar 19 23:25:29 2014 +0100

    Add testcase repacking zip file
    
    to cover bug as reported by Andreas Tille.
---
 test/test_uscan | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)

diff --git a/test/test_uscan b/test/test_uscan
index ac548b5..7141e58 100755
--- a/test/test_uscan
+++ b/test/test_uscan
@@ -97,6 +97,52 @@ testRepackBZ2_GZ() { helperTestRepack "bz2" "gz" "gzip compressed data" ; }
 testRepackGZ_GZ() { helperTestRepack "gz" "gz" "gzip compressed data" ; }
 testRepackXZ_XZ() { helperTestRepack "xz" "xz" "XZ compressed data" ; }
 
+# The following function tests the --repack feature, with a zip file
+testRepackZip_XZ() {
+    to_comp=xz
+    file_output="XZ compressed data"
+
+    PKG=foo
+    PORT=8000
+    TMPDIR=$(mktemp -d)
+
+    mkdir -p $TMPDIR/$PKG/debian
+
+    cat <<END > $TMPDIR/$PKG/debian/watch
+version=3
+http://localhost:$PORT/$PKG-(\d).zip
+END
+
+    cat <<END > $TMPDIR/$PKG/debian/changelog
+$PKG (0-1) unstable; urgency=low
+
+  * Initial release
+
+ -- Joe Developer <jd at debian.org>  Mon, 02 Nov 2013 22:21:31 -0100
+END
+
+    mkdir -p $TMPDIR/repo/foo
+    touch $TMPDIR/repo/foo/content
+
+    ( cd $TMPDIR/repo ;
+      zip -r $PKG-1.zip * ;
+      python -m SimpleHTTPServer $PORT &
+      echo $! > pid )
+
+    OUTPUT=$( (cd $TMPDIR/$PKG ; $COMMAND --verbose --repack --repack-compression=$to_comp) )
+
+    TARBALL=${PKG}_1.orig.tar.$to_comp
+    assertTrue 'pristine tarball is not created' "[ -f $TMPDIR/$TARBALL ]"
+    assertNotNull "pristine tarball is not $to_comp-compressed" \
+                  "$( file -L $TMPDIR/$TARBALL | grep "$file_output" )"
+    CONTENTS="$(tar atf $TMPDIR/$TARBALL)"
+    assertTrue 'file contents missing'	\
+                $(containsName "$CONTENTS" content)
+
+    cleanup
+
+}
+
 
 # The following function tests the Files-Excluded feature of uscan, which
 # allows the selective exclusion of files from the upstream tarball before

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/collab-maint/devscripts.git