[Pkg-gnupg-commit] [gnupg2] 107/132: tests: Add function to dump packets.

[Daniel Kahn Gillmor]

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

dkg pushed a commit to branch experimental
in repository gnupg2.

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>
---
 tests/openpgp/defs.scm | 6 ++++++
 1 file changed, 6 insertions(+)

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.
 ;;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-gnupg/gnupg2.git