diff options
| author | Justus Winter <[email protected]> | 2016-12-07 13:49:49 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-12-07 13:49:49 +0000 |
| commit | 92df40a3a2ae471fbba00d6d7040230404931fd4 (patch) | |
| tree | 55fc5d216b0f78a9dab17a837cab0217f042735f | |
| parent | agent: Respect --enable-large-secmem (diff) | |
| download | gnupg-92df40a3a2ae471fbba00d6d7040230404931fd4.tar.gz gnupg-92df40a3a2ae471fbba00d6d7040230404931fd4.zip | |
tests: Improve quick key manipulation test.
* tests/openpgp/quick-key-manipulation.scm: Do not update the trust
database, rather be more specific when filtering the user ids.
Signed-off-by: Justus Winter <[email protected]>
| -rwxr-xr-x | tests/openpgp/quick-key-manipulation.scm | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/tests/openpgp/quick-key-manipulation.scm b/tests/openpgp/quick-key-manipulation.scm index 457908177..4f0eec292 100755 --- a/tests/openpgp/quick-key-manipulation.scm +++ b/tests/openpgp/quick-key-manipulation.scm @@ -29,7 +29,7 @@ (define (count-uids-of-secret-key id) (length (filter (lambda (x) (and (string=? "uid" (car x)) - (string=? "u" (cadr x)))) + (not (string=? "r" (cadr x))))) (gpg-with-colons `(--with-fingerprint --list-secret-keys ,(exact id)))))) @@ -47,8 +47,6 @@ (info "Checking quick key generation...") (call-check `(,@GPG --quick-gen-key ,alpha)) -(call-check `(,@GPG --check-trustdb)) ; XXX why? - (assert (= 1 (count-uids-of-secret-key alpha))) (info "Checking that we can add a user ID...") @@ -70,14 +68,10 @@ (newline) (exit 1)))) -(call-check `(,@GPG --check-trustdb)) ; XXX why? - (assert (= 2 (count-uids-of-secret-key alpha))) (assert (= 2 (count-uids-of-secret-key bravo))) (info "Checking that we can revoke a user ID...") (call-check `(,@GPG --quick-revuid ,(exact bravo) ,alpha)) -(call-check `(,@GPG --check-trustdb)) ; XXX why? - (assert (= 1 (count-uids-of-secret-key bravo))) |