tests: Move some functions into a common module.
authorDamien Goutte-Gattat <dgouttegattat@incenp.org>
Wed, 19 Jul 2017 20:17:28 +0000 (22:17 +0200)
committerJustus Winter <justus@g10code.com>
Mon, 21 Aug 2017 14:51:03 +0000 (16:51 +0200)
* tests/openpgp/tofu.scm (gettrust): Moved to the common defs.scm
module.
(checktrust): Likewise.
* tests/openpgp/defs.scm (gettrust): New function.
(checktrust): Likewise.
--

These functions will be re-used by the tests for the PGP trust
model.

Signed-off-by: Damien Goutte-Gattat <dgouttegattat@incenp.org>
tests/openpgp/defs.scm
tests/openpgp/tofu.scm

index 358efa6..f52f316 100644 (file)
   (catch (log "Warning: Removing socket directory failed.")
         (gpg-conf '--remove-socketdir)))
 
   (catch (log "Warning: Removing socket directory failed.")
         (gpg-conf '--remove-socketdir)))
 
+;; Get the trust level for KEYID.  Any remaining arguments are simply
+;; passed to GPG.
+;;
+;; This function only supports keys with a single user id.
+(define (gettrust keyid . args)
+  (let ((trust
+         (list-ref (assoc "pub" (gpg-with-colons
+                                  `(,@args
+                                     --list-keys ,keyid))) 1)))
+    (unless (and (= 1 (string-length trust))
+                (member (string-ref trust 0) (string->list "oidreqnmfuws-")))
+           (fail "Bad trust value:" trust))
+    trust))
+
+;; Check that KEYID's trust level matches EXPECTED-TRUST.  Any
+;; remaining arguments are simply passed to GPG.
+;;
+;; This function only supports keys with a single user id.
+(define (checktrust keyid expected-trust . args)
+  (let ((trust (apply gettrust `(,keyid ,@args))))
+    (unless (string=? trust expected-trust)
+           (fail keyid ": Expected trust to be" expected-trust
+                  "but got" trust))))
+
 
 ;; end
 
 ;; end
index 58b2a03..cd4b4c7 100755 (executable)
            (fail keyid ": Expected policy to be" expected-policy
                   "but got" policy))))
 
            (fail keyid ": Expected policy to be" expected-policy
                   "but got" policy))))
 
-;; Get the trust level for KEYID.  Any remaining arguments are simply
-;; passed to GPG.
-;;
-;; This function only supports keys with a single user id.
-(define (gettrust keyid . args)
-  (let ((trust
-        (list-ref (assoc "pub" (gpg-with-colons
-                                `(,@args
-                                  --list-keys ,keyid))) 1)))
-    (unless (and (= 1 (string-length trust))
-                (member (string-ref trust 0) (string->list "oidreqnmfuws-")))
-           (fail "Bad trust value:" trust))
-    trust))
-
-;; Check that KEYID's trust level matches EXPECTED-TRUST.  Any
-;; remaining arguments are simply passed to GPG.
-;;
-;; This function only supports keys with a single user id.
-(define (checktrust keyid expected-trust . args)
-  (let ((trust (apply gettrust `(,keyid ,@args))))
-    (unless (string=? trust expected-trust)
-           (fail keyid ": Expected trust to be" expected-trust
-                  "but got" trust))))
-
 ;; Set key KEYID's policy to POLICY.  Any remaining arguments are
 ;; passed as options to gpg.
 (define (setpolicy keyid policy . args)
 ;; Set key KEYID's policy to POLICY.  Any remaining arguments are
 ;; passed as options to gpg.
 (define (setpolicy keyid policy . args)