File bitcask-2.0.8-rand.patch of Package bitcask
diff -Ndurp bitcask-2.0.8/src/bitcask.erl bitcask-2.0.8-rand/src/bitcask.erl
--- bitcask-2.0.8/src/bitcask.erl 2017-03-04 01:37:58.000000000 +0200
+++ bitcask-2.0.8-rand/src/bitcask.erl 2019-07-07 01:26:46.938087523 +0300
@@ -3679,12 +3679,12 @@ update_tombstones_test() ->
?assertEqual(1, TombCount).
make_merge_file(Dir, Seed, Probability) ->
- random:seed(Seed),
+ rand:seed(exsplus, Seed),
case filelib:is_dir(Dir) of
true ->
DataFiles = filelib:wildcard("*.data", Dir),
{ok, FH} = file:open(Dir ++ "/merge.txt", [write,raw]),
- [case random:uniform(100) < Probability of
+ [case rand:uniform(100) < Probability of
true ->
file:write(FH, io_lib:format("~s\n", [DF]));
false ->
diff -Ndurp bitcask-2.0.8/test/bitcask_pr156.erl bitcask-2.0.8-rand/test/bitcask_pr156.erl
--- bitcask-2.0.8/test/bitcask_pr156.erl 2017-03-04 01:37:58.000000000 +0200
+++ bitcask-2.0.8-rand/test/bitcask_pr156.erl 2019-07-07 01:26:31.179458822 +0300
@@ -136,12 +136,12 @@ check_no_tombstones(Ref, Good) ->
end.
make_merge_txt(Dir, Seed, Probability) ->
- random:seed(Seed),
+ rand:seed(exsplus, Seed),
case filelib:is_dir(Dir) of
true ->
DataFiles = filelib:wildcard("*.data", Dir),
{ok, FH} = file:open(Dir ++ "/merge.txt", [write]),
- [case random:uniform(100) < Probability of
+ [case rand:uniform(100) < Probability of
true ->
io:format(FH, "~s\n", [DF]);
false ->