security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-07-02 22:46:30 +02:00
Code Activity

tests: Improve handling of Windows newlines.

Browse source 
* tests/gpgscm/lib.scm (string-split-newlines): New function.
* tests/openpgp/default-key.scm: Use new function.
* tests/openpgp/defs.scm: Likewise.
* tests/openpgp/export.scm: Likewise.
* tests/openpgp/import.scm: Likewise.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2016-10-07 16:16:15 +02:00
parent 11eac7eb2f
commit 1f76f8d8bc
5 changed files with 17 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tests/openpgp/export.scm
View file

@ -37,13 +37,13 @@
"Signature packet not found"))
(define (check-exported-public-key packet-dump keyid)
(let ((dump (string-split packet-dump #\newline)))
(let ((dump (string-split-newlines packet-dump)))
(check-for (lambda (l) (string-prefix? l ":public key packet:")) dump
"Public key packet not found")
(check-exported-key dump keyid)))
(define (check-exported-private-key packet-dump keyid)
(let ((dump (string-split packet-dump #\newline)))
(let ((dump (string-split-newlines packet-dump)))
(check-for (lambda (l) (string-prefix? l ":secret key packet:")) dump
"Secret key packet not found")
(check-exported-key dump keyid)))