diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2017-05-14 17:21:46 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2017-05-14 17:21:46 +0200 |
| commit | 61b1df6f2791a2afa291b56708d73a5264ca70eb (patch) | |
| tree | 314ddb96391b25e83e9a31637be0f1a7f52cc249 /tests/store.scm | |
| parent | bdb8267680f14ee5d3df9d029f23279c1457c211 (diff) | |
| parent | 4be014128e1c422f37b56f9a6b3420b4e85c4302 (diff) | |
| download | guix-61b1df6f2791a2afa291b56708d73a5264ca70eb.tar.gz | |
Merge branch 'master' into staging
Diffstat (limited to 'tests/store.scm')
| -rw-r--r-- | tests/store.scm | 5 |
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))) |