diff options
| author | Justus Winter <[email protected]> | 2017-06-26 10:51:28 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2017-06-26 10:51:28 +0000 |
| commit | b49b1a87ac2695e3892fb001878da59fbc92fa37 (patch) | |
| tree | b9b8164a6fe0963653f342b5338e5b447a62b2db /tests/openpgp/ssh-export.scm | |
| parent | agent: Shutdown on removal of the home directory. (diff) | |
| download | gnupg-b49b1a87ac2695e3892fb001878da59fbc92fa37.tar.gz gnupg-b49b1a87ac2695e3892fb001878da59fbc92fa37.zip | |
tests: Improve test.
* tests/openpgp/ssh-export.scm: Split output at any whitespace.
Signed-off-by: Justus Winter <[email protected]>
Diffstat (limited to 'tests/openpgp/ssh-export.scm')
| -rwxr-xr-x | tests/openpgp/ssh-export.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/openpgp/ssh-export.scm b/tests/openpgp/ssh-export.scm index 7f51447f1..136c6e023 100755 --- a/tests/openpgp/ssh-export.scm +++ b/tests/openpgp/ssh-export.scm @@ -44,8 +44,8 @@ (call-check `(,@GPG --yes --import ,(:file key))) (let* ((result (call-check `(,@GPG --export-ssh-key ,(:fpr key)))) - ;; XXX: We should split at any whitespace here. - (parts (string-split (string-trim char-whitespace? result) #\space))) + (parts (string-splitp (string-trim char-whitespace? result) + char-whitespace? -1))) (assert (string=? (car parts) (:kind key))) ;; XXX: We should not use a short keyid as the comment when ;; exporting an ssh key. |