me/guix
Archived
1
0
Fork 0
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
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
tests/store.scm
View file

@ -758,8 +758,9 @@
(cut export-paths %store (list file) <>)))) (cut export-paths %store (list file) <>))))
(delete-paths %store (list file)) (delete-paths %store (list file))
;; Flip a bit in the stream's payload. ;; Flip a bit in the stream's payload. INDEX here falls in the middle of
(let* ((index (quotient (bytevector-length dump) 4)) ;; the file contents in DUMP, regardless of the store prefix.
(let* ((index #x70)
(byte (bytevector-u8-ref dump index))) (byte (bytevector-u8-ref dump index)))
(bytevector-u8-set! dump index (logxor #xff byte))) (bytevector-u8-set! dump index (logxor #xff byte)))