diff options
| author | Justus Winter <[email protected]> | 2016-10-07 14:16:15 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-10-07 14:25:55 +0000 |
| commit | 1f76f8d8bc65fad98927c977baf4d5e36dafe52b (patch) | |
| tree | 71c2cb8a61d2cb26176518f967a2ed9284eaedb1 /tests/openpgp/import.scm | |
| parent | gpgscm: Improve test of low-level functions. (diff) | |
| download | gnupg-1f76f8d8bc65fad98927c977baf4d5e36dafe52b.tar.gz gnupg-1f76f8d8bc65fad98927c977baf4d5e36dafe52b.zip | |
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 <[email protected]>
Diffstat (limited to 'tests/openpgp/import.scm')
| -rwxr-xr-x | tests/openpgp/import.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/openpgp/import.scm b/tests/openpgp/import.scm index 580acea0d..98f3ad9d8 100755 --- a/tests/openpgp/import.scm +++ b/tests/openpgp/import.scm @@ -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")))))) |