1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-07-03 22:56:33 +02:00

tests: Improve handling of Windows newlines.

* 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

View file

@ -36,7 +36,7 @@
(unless (any (lambda (line)
(and (string-prefix? line "rvk:")
(string-contains? line ":0EE5BE979282D80B9F7540F1CCD2ED94D21739E9:")))
(string-split c #\newline))
(string-split-newlines c))
(exit 1)))))
(define fpr1 "9E669861368BCA0BE42DAF7DDDA252EBB8EBE1AF")
@ -55,6 +55,6 @@
(lambda (line)
(and (string-prefix? line "pub:")
(string-contains? line ":4096:1:DDA252EBB8EBE1AF:")))
(string-split c #\newline))))
(string-split-newlines c))))
(unless (= 2 (length keys))
(error "Importing keys with long id collision failed"))))))