summaryrefslogtreecommitdiff
path: root/tests/store.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-12-28 00:42:07 +0100
committerLudovic Courtès <ludo@gnu.org>2013-12-29 15:57:23 +0100
commit6df1fb8991bc7323dd4974a55d37f249a4e9c4a0 (patch)
tree599841214479f1b49c7c1422bb92e008d7b2f805 /tests/store.scm
parentb0a33ac157ce99688b6d668124377fdd81bf413e (diff)
downloadgnu-guix-6df1fb8991bc7323dd4974a55d37f249a4e9c4a0.tar
gnu-guix-6df1fb8991bc7323dd4974a55d37f249a4e9c4a0.tar.gz
authenticate: Store the public key as part of the signature.
* guix/scripts/authenticate.scm (signature-sexp): New procedure. (guix-authenticate): Use it to produce the signature. Adjust verification code accordingly. * tests/store.scm ("import corrupt path"): Adjust test accordingly.
Diffstat (limited to 'tests/store.scm')
-rw-r--r--tests/store.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/store.scm b/tests/store.scm
index 6834ebc5e9..4bd739e7f6 100644
--- a/tests/store.scm
+++ b/tests/store.scm
@@ -373,8 +373,8 @@ Deriver: ~a~%"
(cut export-paths %store (list file) <>))))
(delete-paths %store (list file))
- ;; Flip a bit in the middle of the stream.
- (let* ((index (quotient (bytevector-length dump) 3))
+ ;; Flip a bit in the stream's payload.
+ (let* ((index (quotient (bytevector-length dump) 4))
(byte (bytevector-u8-ref dump index)))
(bytevector-u8-set! dump index (logxor #xff byte)))