Browse Source

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.
gn-latest-20200428
Ludovic Courtès 6 years ago
parent
commit
79477def6b
  1. 10
      guix/tests.scm

10
guix/tests.scm

@ -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."

Loading…
Cancel
Save