summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-05-07 00:16:01 +0200
committerLudovic Courtès <ludo@gnu.org>2017-05-07 00:18:36 +0200
commit1a0adad83f804d1d7190af7accb58284e4c69e3e (patch)
tree6a1c1e1deb645cb4caa0c488000c757bfcc77a0d
parent33349e91f967883513a68ec824ab68e78aee528d (diff)
downloadpatches-1a0adad83f804d1d7190af7accb58284e4c69e3e.tar
patches-1a0adad83f804d1d7190af7accb58284e4c69e3e.tar.gz
tests: Corrupt archive import test is robust against different store prefixes.
* tests/store.scm ("import corrupt path"): Set 'index' to #x70.
-rw-r--r--tests/store.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/store.scm b/tests/store.scm
index 3eb8b7be5a..45aeb329b0 100644
--- a/tests/store.scm
+++ b/tests/store.scm
@@ -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)))