[git] GnuPG - branch, master, updated. gnupg-2.1.16-41-g3c0569e

[by Justus Winter]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "The GNU Privacy Guard".

The branch, master has been updated
       via  3c0569e99498c7470ebdb639b4c5ae829af92761 (commit)
      from  aa6ab9e0bc67fe9ce5601047e84ea4a875e8eb64 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 3c0569e99498c7470ebdb639b4c5ae829af92761
Author: Justus Winter <justus at g10code.com>
Date:   Wed Nov 30 11:29:50 2016 +0100

    tests: Add test for '--encrypt --multifile'.
    
    * tests/openpgp/Makefile.am (XTESTS): Add new test.
    * tests/openpgp/encrypt-multifile.scm: New file.
    
    Signed-off-by: Justus Winter <justus at g10code.com>

diff --git a/tests/openpgp/Makefile.am b/tests/openpgp/Makefile.am
index 9eb69ee..c62f61e 100644
--- a/tests/openpgp/Makefile.am
+++ b/tests/openpgp/Makefile.am
@@ -52,6 +52,7 @@ XTESTS = \
 	sigs.scm \
 	sigs-dsa.scm \
 	encrypt.scm \
+	encrypt-multifile.scm \
 	encrypt-dsa.scm \
 	seat.scm \
 	clearsig.scm \
diff --git a/tests/openpgp/encrypt-multifile.scm b/tests/openpgp/encrypt-multifile.scm
new file mode 100755
index 0000000..4b76ff0
--- /dev/null
+++ b/tests/openpgp/encrypt-multifile.scm
@@ -0,0 +1,39 @@
+#!/usr/bin/env gpgscm
+
+;; Copyright (C) 2016 g10 Code GmbH
+;;
+;; This file is part of GnuPG.
+;;
+;; GnuPG is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; GnuPG is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program; if not, see <http://www.gnu.org/licenses/>.
+
+(load (with-path "defs.scm"))
+(setup-legacy-environment)
+
+(define files (append plain-files data-files))
+
+(info "Checking encryption of supplied files using --multifile.")
+
+;; Now encrypt all files.
+(call-check `(, at gpg --encrypt --recipient ,usrname2
+		    --multifile , at files))
+
+;; And check if we can decrypt them.
+(for-each-p
+ "Verifying files:"
+ (lambda (source)
+   (tr:do
+    (tr:open (string-append source ".gpg"))
+    (tr:gpg "" '(--yes))
+    (tr:assert-identity source)))
+ files)

-----------------------------------------------------------------------

Summary of changes:
 tests/openpgp/Makefile.am                               |  1 +
 tests/openpgp/{armencrypt.scm => encrypt-multifile.scm} | 16 ++++++++++++----
 2 files changed, 13 insertions(+), 4 deletions(-)
 copy tests/openpgp/{armencrypt.scm => encrypt-multifile.scm} (72%)


hooks/post-receive
-- 
The GNU Privacy Guard
http://git.gnupg.org