Common (mavkit-internal-libs.Irmin_test

val random_char : unit -> char

val random_ascii : unit -> char

val random_string : int -> string

val long_random_string : string

val random_ascii_string : int -> string

val long_random_ascii_string : string

val merge_exn : 
  string ->
  ('a, [< `Conflict of string ]) Stdlib.result ->
  'b Lwt.t

module type S =
  Irmin.S
    with type Schema.Path.step = string
     and type Schema.Path.t = string list
     and type Schema.Contents.t = string
     and type Schema.Branch.t = string

module type Generic_key =
  Irmin.Generic_key.S
    with type Schema.Path.step = string
     and type Schema.Path.t = string list
     and type Schema.Contents.t = string
     and type Schema.Branch.t = string

module Schema : sig ... end

val store : (module Irmin.Maker) -> (module Irmin.Metadata.S) -> (module S)

type store =

| S of (module S)
| Generic_key of (module Generic_key)

type t = {

name : string;
init : config:Irmin.config -> unit Lwt.t;
clean : config:Irmin.config -> unit Lwt.t;
config : Irmin.config;
store : store;
stats : (unit -> int * int) option;
import_supported : bool;

}

module Suite : sig ... end

module type Store_tests = functor (S : Generic_key) -> sig ... end

module Make_helpers (S : Generic_key) : sig ... end

val filter_src : Logs.src -> bool

val reporter : ?prefix:string -> unit -> Logs.reporter

val line : string -> unit

val (/) : string -> string -> string

val testable : 'a Irmin.Type.t -> 'b Mavkit_alcotezt.Alcotest.testable

val check : 
  'a Irmin.Type.t ->
  string ->
  'b ->
  'b ->
  Mavkit_alcotezt.Alcotest.return

val slist : 
  'a Mavkit_alcotezt.Alcotest.testable ->
  ('a0 -> 'a0 -> int) ->
  'a0 list Mavkit_alcotezt.Alcotest.testable

val checks : 
  'a Irmin.Type.t ->
  string ->
  'b list ->
  'b list ->
  Mavkit_alcotezt.Alcotest.return

val check_raises_lwt : string -> exn -> (unit -> 'a Lwt.t) -> unit Lwt.t

module T = Irmin.Type

module type Sleep = sig ... end