aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-06-25 00:08:05 +0200
committerLudovic Courtès <ludo@gnu.org>2020-07-01 23:34:51 +0200
commit8b7d982e6ae090eb5b3938db14a8eb2e2c3a1419 (patch)
tree63cf99e39646f07d849c46a656e233e164e88f11 /tests
parent6577682a6c4885020949e014a536f96e8ae315d0 (diff)
downloadguix-8b7d982e6ae090eb5b3938db14a8eb2e2c3a1419.tar
guix-8b7d982e6ae090eb5b3938db14a8eb2e2c3a1419.tar.gz
channels: Make channel introductions public.
* guix/channels.scm (<channel-introduction>): Rename constructor to '%make-channel-introduction'. (make-channel-introduction): New procedure. * tests/channels.scm ("authenticate-channel, wrong first commit signer") ("authenticate-channel, .guix-authorizations"): Use 'make-channel-introduction' without '@@' and without third argument. * doc/guix.texi (Channels)[Channel Authentication, Specifying Channel Authorizations]: New subsections.
Diffstat (limited to 'tests')
-rw-r--r--tests/channels.scm10
1 files changed, 4 insertions, 6 deletions
diff --git a/tests/channels.scm b/tests/channels.scm
index d7202f8cbf..591b7b9749 100644
--- a/tests/channels.scm
+++ b/tests/channels.scm
@@ -451,12 +451,11 @@
(with-repository directory repository
(let* ((commit1 (find-commit repository "first"))
(commit2 (find-commit repository "second"))
- (intro ((@@ (guix channels) make-channel-introduction)
+ (intro (make-channel-introduction
(commit-id-string commit1)
(openpgp-public-key-fingerprint
(read-openpgp-packet
- %ed25519bis-public-key-file)) ;different key
- #f)) ;no signature
+ %ed25519bis-public-key-file)))) ;different key
(channel (channel (name 'example)
(url (string-append "file://" directory))
(introduction intro))))
@@ -507,12 +506,11 @@
(let* ((commit1 (find-commit repository "first"))
(commit2 (find-commit repository "second"))
(commit3 (find-commit repository "third"))
- (intro ((@@ (guix channels) make-channel-introduction)
+ (intro (make-channel-introduction
(commit-id-string commit1)
(openpgp-public-key-fingerprint
(read-openpgp-packet
- %ed25519-public-key-file))
- #f)) ;no signature
+ %ed25519-public-key-file))))
(channel (channel (name 'example)
(url (string-append "file://" directory))
(introduction intro))))