From b49b1a87ac2695e3892fb001878da59fbc92fa37 Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Mon, 26 Jun 2017 12:51:28 +0200 Subject: [PATCH] tests: Improve test. * tests/openpgp/ssh-export.scm: Split output at any whitespace. Signed-off-by: Justus Winter --- tests/openpgp/ssh-export.scm | 4 ++-- 1 file 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.