diff options
author | Ludovic Courtès <ludo@gnu.org> | 2014-03-30 21:35:22 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2014-03-30 22:32:16 +0200 |
commit | 52f80dfc8a1c2f116a91a20c8cefd62a317f3d36 (patch) | |
tree | c36efbf0b00df51f8dc417d206e9b314088849f3 /srfi/srfi-37.scm.in | |
parent | 491e6de7d65604f3f3c1d8fa0e88dfd77541db68 (diff) | |
download | guix-patches-52f80dfc8a1c2f116a91a20c8cefd62a317f3d36.tar guix-patches-52f80dfc8a1c2f116a91a20c8cefd62a317f3d36.tar.gz |
tests: Simplify 'substitute-binary' tests; reduce use of global variables.
* tests/substitute-binary.scm (signature-body): Change 'str' parameter
to 'bv', and expect it to be a bytevector.
(%signature-body, %wrong-signature, %acl): Remove.
(signature): Rename to...
(signature-field): ... this. Add 'bv-or-str' parameter. Change 'str'
parameter to #:version. Add #:public-key parameter. Call
'signature-body' directly. Change domain part of the signature to
'example.gnu.org'.
("not a number", "wrong version number", "valid
narinfo-signature->canonical-sexp"): Use 'signature-field' instead of
'signature' or %SIGNATURE.
(test-error-condition): Add 'message-rx' parameter and honor it.
("corrupt signature data", "unauthorized public key", "invalid
signature"): Adjust accordingly.
(narinfo, %signed-narinfo): Remove.
("query narinfo with invalid hash"): Use '%narinfo' and
'signature-field' instead of 'narinfo' and '%signature'.
("query narinfo signed with authorized key", "query narinfo signed
with unauthorized key", "substitute, invalid hash", "substitute,
unauthorized key"): Likewise.
Diffstat (limited to 'srfi/srfi-37.scm.in')
0 files changed, 0 insertions, 0 deletions