From 92df40a3a2ae471fbba00d6d7040230404931fd4 Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Wed, 7 Dec 2016 14:49:49 +0100 Subject: [PATCH] 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 --- tests/openpgp/quick-key-manipulation.scm | 8 +------- 1 file changed, 1 insertion(+), 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)))