tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-28 12:01:49 +02:00
Code Activity

tests: Corrupt archive import test is robust against different store prefixes.

Browse Source 
* tests/store.scm ("import corrupt path"): Set 'index' to #x70.
This commit is contained in:
Ludovic Courtès
2017-05-07 00:16:01 +02:00
parent 33349e91f9
commit 1a0adad83f
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/store.scm
+3 -2
View File
@@ -758,8 +758,9 @@
(cut export-paths %store (list file) <>))))
(delete-paths %store (list file))
;; Flip a bit in the stream's payload.
(let* ((index (quotient (bytevector-length dump) 4))
;; Flip a bit in the stream's payload. INDEX here falls in the middle of
;; the file contents in DUMP, regardless of the store prefix.
(let* ((index #x70)
(byte (bytevector-u8-ref dump index)))
(bytevector-u8-set! dump index (logxor #xff byte)))