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/export.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/export.scm')
| -rwxr-xr-x | tests/openpgp/export.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/openpgp/export.scm b/tests/openpgp/export.scm index 829170541..f7a23f4fd 100755 --- a/tests/openpgp/export.scm +++ b/tests/openpgp/export.scm @@ -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))) |