derive seed with ?SEED_RANGE

Signed-off-by: Pierre Fenoll <[email protected]>
proper-testing · Jun 25, 2020 · f4f9f03 · f4f9f03
1 parent d5f6a45
commit f4f9f03
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/proper_arith.erl b/src/proper_arith.erl
@@ -244,9 +244,9 @@ rand_restart(Seed) ->
 -spec rand_make_seed() -> proper_gen:seed().
 rand_make_seed() ->
     {_,_} = get(?SEED_NAME),
-    A = ?RANDOM_MOD:uniform(1000000),
-    B = ?RANDOM_MOD:uniform(1000000),
-    C = ?RANDOM_MOD:uniform(1000000),
+    A = rand_int(0, ?SEED_RANGE -1),
+    B = rand_int(0, ?SEED_RANGE -1),
+    C = rand_int(0, ?SEED_RANGE -1),
     {A,B,C}.
 
 -spec rand_reseed() -> 'ok'.