tests: Improve test.
authorJustus Winter <justus@g10code.com>
Mon, 26 Jun 2017 10:51:28 +0000 (12:51 +0200)
committerJustus Winter <justus@g10code.com>
Mon, 26 Jun 2017 10:51:28 +0000 (12:51 +0200)
* tests/openpgp/ssh-export.scm: Split output at any whitespace.

Signed-off-by: Justus Winter <justus@g10code.com>
tests/openpgp/ssh-export.scm

index 7f51447..136c6e0 100755 (executable)
@@ -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.