diff options
| author | Justus Winter <[email protected]> | 2016-12-19 14:33:55 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-12-19 14:42:35 +0000 |
| commit | a1afc450e182af02ad5e6f6ba79e9dc4332ca2bc (patch) | |
| tree | 71176d6fa26987e7f1df7f900f3e3c6427517856 /tests/openpgp/quick-key-manipulation.scm | |
| parent | gpgscm: Change associativity of ::. (diff) | |
| download | gnupg-a1afc450e182af02ad5e6f6ba79e9dc4332ca2bc.tar.gz gnupg-a1afc450e182af02ad5e6f6ba79e9dc4332ca2bc.zip | |
tests: New test for --delete-[secret-]keys.
* tests/openpgp/Makefile.am (XTESTS): Add new test.
* tests/openpgp/defs.scm (keys): New variable.
(have-public-key?): New function.
(have-secret-key?): Likewise.
(have-secret-key-file?): Likewise.
* tests/openpgp/delete-keys.scm: New file.
* tests/openpgp/quick-key-manipulation.scm: Move the accessors to
'defs.scm'.
Signed-off-by: Justus Winter <[email protected]>
Diffstat (limited to 'tests/openpgp/quick-key-manipulation.scm')
| -rwxr-xr-x | tests/openpgp/quick-key-manipulation.scm | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/tests/openpgp/quick-key-manipulation.scm b/tests/openpgp/quick-key-manipulation.scm index 9b9c91914..d43f7b53a 100755 --- a/tests/openpgp/quick-key-manipulation.scm +++ b/tests/openpgp/quick-key-manipulation.scm @@ -27,13 +27,6 @@ (define (exact id) (string-append "=" id)) -;; Convenient accessors for the colon output. -(define (:length x) (string->number (list-ref x 2))) -(define (:alg x) (string->number (list-ref x 3))) -(define (:expire x) (list-ref x 6)) -(define (:fpr x) (list-ref x 9)) -(define (:cap x) (list-ref x 11)) - (define (count-uids-of-secret-key id) (length (filter (lambda (x) (and (string=? "uid" (car x)) (not (string=? "r" (cadr x))))) |