security-and-privacy/gnupg
security-and-privacy
/
gnupg
mirror of git://git.gnupg.org/gnupg.git
1
0
Fork 0
Code Releases Activity

tests: Clarify comments. 

--
Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2017-05-08 12:37:20 +02:00
parent 6fdeef5b61
commit 38b48eb11b
No known key found for this signature in database
GPG Key ID: DD1A52F9DA8C9020
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/openpgp/delete-keys.scm
View File

@ -58,13 +58,16 @@
(call-check `(,@gpg --delete-secret-keys ,subkey::fpr))
(assert (have-public-key? key))
(assert (have-public-key? subkey))
;; JW: Deleting the secret subkey also deletes the secret key.
;; JW: Deleting the secret subkey also deletes the secret key. This
;; is a deliberate design choice, and currently there is no way to
;; delete the subkey without using --edit-key.
;; XXX (assert (have-secret-key? key))
;; XXX (assert (have-secret-key-file? key))
(assert (not (have-secret-key? subkey)))
(assert (not (have-secret-key-file? subkey)))
;; Then, delete the secret key.
;; JW: We already deleted the key. See above.
;; XXX (call-check `(,@gpg --delete-secret-keys ,key::fpr))
(assert (have-public-key? key))
(assert (have-public-key? subkey))
@ -75,11 +78,14 @@
;; Now, delete the public subkey.
(call-check `(,@gpg --delete-keys ,subkey::fpr))
;; JW: Deleting the subkey also deletes the key.
;; JW: Deleting the subkey also deletes the key. This
;; is a deliberate design choice, and currently there is no way to
;; delete the subkey without using --edit-key.
;; XXX (assert (have-public-key? key))
(assert (not (have-public-key? subkey)))
;; Now, delete the public key.
;; JW: We already deleted the key. See above.
;; XXX (call-check `(,@gpg --delete-keys ,key::fpr))
(assert (not (have-public-key? key)))
(assert (not (have-public-key? subkey))))