security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2024-12-22 10:19:57 +01:00
Code Activity

tests: Improve test.

Browse Source 
* tests/openpgp/ssh-export.scm: Split output at any whitespace.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2017-06-26 12:51:28 +02:00
parent 1ead1ca818
commit b49b1a87ac
No known key found for this signature in database
GPG Key ID: DD1A52F9DA8C9020
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/openpgp/ssh-export.scm
View File

@ -44,8 +44,8 @@
(call-check `(,@GPG --yes --import ,(:file key))) (call-check `(,@GPG --yes --import ,(:file key)))
(let* ((result (call-check `(,@GPG --export-ssh-key ,(:fpr key)))) (let* ((result (call-check `(,@GPG --export-ssh-key ,(:fpr key))))
;; XXX: We should split at any whitespace here. (parts (string-splitp (string-trim char-whitespace? result)
(parts (string-split (string-trim char-whitespace? result) #\space))) char-whitespace? -1)))
(assert (string=? (car parts) (:kind key))) (assert (string=? (car parts) (:kind key)))
;; XXX: We should not use a short keyid as the comment when ;; XXX: We should not use a short keyid as the comment when
;; exporting an ssh key. ;; exporting an ssh key.