diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-12-28 00:42:07 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-12-29 15:57:23 +0100 |
| commit | 6df1fb8991bc7323dd4974a55d37f249a4e9c4a0 (patch) | |
| tree | 599841214479f1b49c7c1422bb92e008d7b2f805 /tests/store.scm | |
| parent | b0a33ac157ce99688b6d668124377fdd81bf413e (diff) | |
| download | patches-6df1fb8991bc7323dd4974a55d37f249a4e9c4a0.tar patches-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.scm | 4 |
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))) |