tests: Corrupt archive import test is robust against different store prefixes.
* tests/store.scm ("import corrupt path"): Set 'index' to #x70.
This commit is contained in:
parent
33349e91f9
commit
1a0adad83f
@ -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)))
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user