simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-07 03:35:30 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix for qtest 2.2

Browse source
This commit is contained in:
Simon Cruanes 2016-04-03 00:01:53 +02:00
parent 22b001c600
commit 2e5a360bcd
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
benchs/run_benchs.ml
View file

@ -1159,8 +1159,8 @@ module Str = struct
let rand_str_ ?(among="abcdefgh") n = let rand_str_ ?(among="abcdefgh") n =
let module Q = QCheck in let module Q = QCheck in
let st = Random.State.make [| n + 17 |] in let st = Random.State.make [| n + 17 |] in
let gen_c = Q.Gen.oneofl (CCString.to_list among) in let gen_c = QCheck.Gen.oneofl (CCString.to_list among) in
Q.Gen.string_size ~gen:gen_c (Q.Gen.return n) st QCheck.Gen.string_size ~gen:gen_c (QCheck.Gen.return n) st
let find ?(start=0) ~sub s = let find ?(start=0) ~sub s =
let n = String.length sub in let n = String.length sub in