balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Shell/test: minor fix in Test_locator

Browse Source
This commit is contained in:
Grégoire Henry 2018-02-13 13:25:49 +01:00
parent 4fa11bdf28
commit 515765926f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/lib_shell/test/test_locator.ml
View File

@ -222,7 +222,7 @@ let test_pred (base_dir:string) : unit tzresult Lwt.t =
let _ = Random.self_init () in
let range = size_chain+(size_chain/10) in
let repeats = 100 in
return (repeat (fun () -> test_once (Random.int range)) repeats)
return (repeat (fun () -> test_once (1 + Random.int range)) repeats)
(* compute locator using the linear predecessor *)