diff options
Diffstat (limited to 'tests')
| -rwxr-xr-x | tests/openpgp/ssh.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/openpgp/ssh.scm b/tests/openpgp/ssh.scm index cc47772a0..fe0b1150c 100755 --- a/tests/openpgp/ssh.scm +++ b/tests/openpgp/ssh.scm @@ -50,3 +50,15 @@ (unless (string-contains? (call-popen `(,SSH-ADD -l "-E" md5) "") hash) (error "key not added")))) car keys) + +(info "Checking for issue2316...") +(unlink (string-append GNUPGHOME "/sshcontrol")) +(pipe:do + (pipe:open (path-join (in-srcdir "samplekeys") + (string-append "ssh-rsa.key")) + (logior O_RDONLY O_BINARY)) + (pipe:spawn `(,SSH-ADD -))) +(unless + (string-contains? (call-popen `(,SSH-ADD -l "-E" md5) "") + "MD5:c9:85:b5:55:00:84:a9:82:5a:df:d6:62:1b:5a:28:22") + (error "known private key not (re-)added to sshcontrol")) |