diff options
author | Marius Bakke <marius@gnu.org> | 2020-11-07 21:33:32 +0100 |
---|---|---|
committer | Marius Bakke <marius@gnu.org> | 2020-11-07 21:33:32 +0100 |
commit | 32787d652460871a79f99b63230f92759e2e0de2 (patch) | |
tree | ce883cac0d602b10b7c005755d035a08197e73a9 /guix/tests.scm | |
parent | 052939c2f6e36de00a5e756ea29a4cc96884a55d (diff) | |
parent | c2396ceb6eb30ac87755eb8b39583403b35fbd12 (diff) | |
download | guix-patches-32787d652460871a79f99b63230f92759e2e0de2.tar guix-patches-32787d652460871a79f99b63230f92759e2e0de2.tar.gz |
Merge branch 'master' into staging
Conflicts:
gnu/local.mk
gnu/packages/gdb.scm
gnu/packages/lisp-xyz.scm
gnu/packages/web-browsers.scm
Diffstat (limited to 'guix/tests.scm')
-rw-r--r-- | guix/tests.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/guix/tests.scm b/guix/tests.scm index 3ccf049a7d..fc3d521163 100644 --- a/guix/tests.scm +++ b/guix/tests.scm @@ -160,15 +160,17 @@ too expensive to build entirely in the test store." number->string) (logxor (getpid) (car (gettimeofday))))) -(define %seed +(define (%seed) (let ((seed (random-seed))) (format (current-error-port) "random seed for tests: ~a~%" seed) - (seed->random-state seed))) + (let ((result (seed->random-state seed))) + (set! %seed (lambda () result)) + result))) (define (random-text) "Return the hexadecimal representation of a random number." - (number->string (random (expt 2 256) %seed) 16)) + (number->string (random (expt 2 256) (%seed)) 16)) (define (random-bytevector n) "Return a random bytevector of N bytes." @@ -176,7 +178,7 @@ too expensive to build entirely in the test store." (let loop ((i 0)) (if (< i n) (begin - (bytevector-u8-set! bv i (random 256 %seed)) + (bytevector-u8-set! bv i (random 256 (%seed))) (loop (1+ i))) bv)))) |