From 48394daa7adc3e835538c85c9a04a622ae82c1e9 Mon Sep 17 00:00:00 2001
From: Sergiu Ivanov <sivanov@colimite.fr>
Date: Tue, 26 May 2020 22:45:36 +0200
Subject: [PATCH] utils: Set the seed of the random generator in each test
 case.

---
 utils.rkt | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/utils.rkt b/utils.rkt
index ad2dd2c..40c2eb1 100644
--- a/utils.rkt
+++ b/utils.rkt
@@ -603,9 +603,6 @@
 ;;; Randomness
 ;;; ==========
 
-(module+ test
-  (random-seed 0))
-
 ;;; Generates a stream of inexact random numbers.  The meaning of the
 ;;; arguments is the same as for the function random:
 ;;;
@@ -625,6 +622,7 @@
 
 (module+ test
   (test-case "in-random"
+    (random-seed 0)
     (check-equal? (stream->list (stream-take (in-random 100) 10))
                   '(85 65 20 40 89 45 54 38 26 62))
     (check-equal? (stream->list (stream-take (in-random 50 100) 10))