Module Main (.ml)

module Main: sig .. end

module String: Sosa.Native_string
val (//) : string -> string -> string
val say : ('a, unit, string, unit) Pervasives.format4 -> 'a
module Test: sig .. end
module type TEST_DATABASE = sig .. end
module In_memory: sig .. end
val open_close_test : (module Main.TEST_DATABASE) ->
string ->
unit ->
(unit, [> `Database of [> `Close | `Load of string ] * string ])
Pvem_lwt_unix.Deferred_result.t
val basic_test : (module Main.TEST_DATABASE) ->
string ->
unit ->
(unit,
[> `Database of
[> `Act of Trakeva.Action.t
| `Close
| `Get of Trakeva.Key_in_collection.t
| `Get_all of string
| `Iter of string
| `Load of string ] *
string ])
Pvem_lwt_unix.Deferred_result.t
val benchmark_01 : (module Main.TEST_DATABASE) ->
string ->
?collection:int ->
?big_string_kb:int ->
unit ->
(string * (string * float) list,
[> `Database of
[> `Act of Trakeva.Action.t
| `Close
| `Get of Trakeva.Key_in_collection.t
| `Get_all of string
| `Iter of string
| `Load of string ] *
string ])
Pvem_lwt_unix.Deferred_result.t
module Test_sqlite: sig .. end
module Test_sqlite_with_greedy_cache: sig .. end
module Test_postgresql: sig .. end
val pg_server : unit -> < conninfo : string; port : int; status : unit; stop : unit >
val independent_pg_test : unit -> 'a
val has_arg : 'a list -> 'a list -> bool
val find_arg : string list -> name:string -> convert:(string -> 'a option) -> 'a option