[git] GnuPG - branch, master, updated. gnupg-2.1.20-107-geab0138

[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  eab0138e3179f247180a639a91570e5ee2c6ad0e (commit)
      from  d378cc34a8d3d5053cf0c5ac7aa731c1bcefee22 (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 eab0138e3179f247180a639a91570e5ee2c6ad0e
Author: Justus Winter <justus at g10code.com>
Date:   Thu May 4 14:24:50 2017 +0200

    tests: Add function to dump packets.
    
    * tests/openpgp/defs.scm (gpg-dump-packets): New function.
    
    Signed-off-by: Justus Winter <justus at g10code.com>

diff --git a/tests/openpgp/defs.scm b/tests/openpgp/defs.scm
index 9e681bf..8d7caed 100644
--- a/tests/openpgp/defs.scm
+++ b/tests/openpgp/defs.scm
@@ -299,6 +299,12 @@
    (pipe:spawn `(, at GPG --dearmor))
    (pipe:write-to sink-name (logior O_WRONLY O_CREAT O_BINARY) #o600)))
 
+(define (gpg-dump-packets source-name sink-name)
+  (pipe:do
+   (pipe:open source-name (logior O_RDONLY O_BINARY))
+   (pipe:spawn `(, at GPG --list-packets))
+   (pipe:write-to sink-name (logior O_WRONLY O_CREAT O_BINARY) #o600)))
+
 ;;
 ;; Support for test environment creation and teardown.
 ;;

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

Summary of changes:
 tests/openpgp/defs.scm | 6 ++++++
 1 file changed, 6 insertions(+)


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