~ruther/guix-local: tests: Write the random seed to the error port.

79477def6b08437e4eacaf67c012ae8717bd64e3 — Ludovic Courtès 11 years ago e21adc7

tests: Write the random seed to the error port.

* guix/tests.scm (random-seed): New procedure.
  (%seed): Use it, and write the random seed to the error port.

patch browse .tar.gz

1 files changed, 9 insertions(+), 1 deletions(-)

M guix/tests.scm

M guix/tests.scm => guix/tests.scm +9 -1

@@ 63,8 63,16 @@
 
       store)))
 
+(define (random-seed)
+  (or (and=> (getenv "GUIX_TESTS_RANDOM_SEED")
+             number->string)
+      (logxor (getpid) (car (gettimeofday)))))
+
 (define %seed
-  (seed->random-state (logxor (getpid) (car (gettimeofday)))))
+  (let ((seed (random-seed)))
+    (format (current-error-port) "random seed for tests: ~a~%"
+            seed)
+    (seed->random-state seed)))
 
 (define (random-text)
   "Return the hexadecimal representation of a random number."