tests: Improve quick key manipulation test.
authorJustus Winter <justus@g10code.com>
Wed, 7 Dec 2016 13:49:49 +0000 (14:49 +0100)
committerJustus Winter <justus@g10code.com>
Wed, 7 Dec 2016 13:49:49 +0000 (14:49 +0100)
* 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 <justus@g10code.com>
tests/openpgp/quick-key-manipulation.scm

index 4579081..4f0eec2 100755 (executable)
@@ -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...")
        (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)))