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

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 1a0adad83f804d1d7190af7accb58284e4c69e3e
Author: Ludovic Courtès <address@hidden>
Date:   Sun May 7 00:16:01 2017 +0200

    tests: Corrupt archive import test is robust against different store 
prefixes.
    
    * tests/store.scm ("import corrupt path"): Set 'index' to #x70.
---
 tests/store.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tests/store.scm b/tests/store.scm
index 3eb8b7b..45aeb32 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)))