diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2014-08-26 01:50:10 +0400 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2014-08-26 01:50:10 +0400 |
| commit | fc11356a4f1d68842b3adc2553c9df1ad038b601 (patch) | |
| tree | f22defb0574e82500de9d8803cdd8db06a3faa81 /tests/key.scm | |
| parent | ssh/key-type.c (print_key): Use `_private_key_p' (diff) | |
| download | guile-ssh-fc11356a4f1d68842b3adc2553c9df1ad038b601.tar.gz | |
tests/key.scm ("public-key?"): Improve TC
Diffstat (limited to 'tests/key.scm')
| -rw-r--r-- | tests/key.scm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/tests/key.scm b/tests/key.scm index 3c1521f..05fc81d 100644 --- a/tests/key.scm +++ b/tests/key.scm @@ -63,12 +63,11 @@ (test-assert "public-key?" (and (public-key? *rsa-pub-key*) - ;; FIXME: Currently a SSH key that has been read from a file - ;; has both public and private flags. It means that we cannot - ;; distinguish whether the key is private or public. - ;; - ;; So that will return `#f': - ;; (not (public-key? *rsa-key*)) + + ;; XXX: Currently a SSH key that has been read from a file + ;; has both public and private flags. + (public-key? *rsa-key*) + (not (public-key? "not a key")))) (test-assert "private-key->public-key" |