[git] GnuPG - branch, master, updated. gnupg-2.1.16-42-g12af8e8

[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  12af8e84a32df728462da09a00a8bec24a487720 (commit)
      from  3c0569e99498c7470ebdb639b4c5ae829af92761 (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 12af8e84a32df728462da09a00a8bec24a487720
Author: Justus Winter <justus at g10code.com>
Date:   Thu Dec 1 11:16:31 2016 +0100

    tests: Add test for '--verify --multifile'.
    
    * tests/openpgp/Makefile.am (XTESTS): Add new test.
    * tests/openpgp/verify-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 c62f61e..8be66a1 100644
--- a/tests/openpgp/Makefile.am
+++ b/tests/openpgp/Makefile.am
@@ -72,6 +72,7 @@ XTESTS = \
 	conventional-mdc.scm \
 	multisig.scm \
 	verify.scm \
+	verify-multifile.scm \
 	gpgv-forged-keyring.scm \
 	armor.scm \
 	import.scm \
diff --git a/tests/openpgp/verify-multifile.scm b/tests/openpgp/verify-multifile.scm
new file mode 100755
index 0000000..f1cbe99
--- /dev/null
+++ b/tests/openpgp/verify-multifile.scm
@@ -0,0 +1,41 @@
+#!/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 '("clearsig-1-key-1.asc" "signed-1-key-1.asc"))
+
+(info "Checking verification of supplied files using --multifile.")
+
+(let* ((status
+	(call-popen
+	 `(, at gpg --verify --multifile --status-fd=1
+		 ,@(map (lambda (name) (in-srcdir "samplemsgs" name)) files))
+	 ""))
+       (lines (map (lambda (l)
+		     (assert (string-prefix? l "[GNUPG:] "))
+		     ;; Split, and strip the prefix.
+		     (cdr (string-split l #\space)))
+		   (string-split-newlines status))))
+  (assert
+   (= 2 (length (filter (lambda (l)
+			  (and (equal? (car l) "GOODSIG")
+			       (equal? (caddr l) "steve.biko at example.net")))
+			lines)))))

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

Summary of changes:
 tests/openpgp/Makefile.am                          |  1 +
 ...{encrypt-multifile.scm => verify-multifile.scm} | 32 ++++++++++++----------
 2 files changed, 18 insertions(+), 15 deletions(-)
 copy tests/openpgp/{encrypt-multifile.scm => verify-multifile.scm} (55%)


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