tests: When a store item is to be deleted, make it statistically unique.

Fixes <http://bugs.gnu.org/18935>.
Reported by Mark H Weaver <mhw@netris.org>.

Previously, if tests/nar.scm ran concurrently with tests/gexp.scm, the
store item "foo" containing the string "Hello, world!" could be
deleted (via 'delete-paths') from the tests/nar.scm daemon while the
tests/gexp.scm daemon would still consider it live.

* tests/nar.scm ("restore-file-set (missing signature)"):
  Use (random-text) rather than "Hello, world!", to avoid concurrent
  deletion of store item "foo" used in tests/gexp.scm.
This commit is contained in:
Ludovic Courtès 2014-11-04 21:11:10 +01:00
parent 000c59b671
commit 834ea02ad8

View File

@ -277,7 +277,7 @@
(test-assert "restore-file-set (missing signature)" (test-assert "restore-file-set (missing signature)"
(let/ec return (let/ec return
(with-store store (with-store store
(let* ((file (add-text-to-store store "foo" "Hello, world!")) (let* ((file (add-text-to-store store "foo" (random-text)))
(dump (call-with-bytevector-output-port (dump (call-with-bytevector-output-port
(cute export-paths store (list file) <> (cute export-paths store (list file) <>
#:sign? #f)))) #:sign? #f))))