futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tests: Write the random seed to the error port.

Browse Source 
* guix/tests.scm (random-seed): New procedure.
  (%seed): Use it, and write the random seed to the error port.
This commit is contained in:
Ludovic Courtès 2015-06-11 23:17:16 +02:00
parent e21adc768e
commit 79477def6b
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
guix/tests.scm
View File

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