open Hito_persistence
include Sqlite_repo

let create () =
  match
    Lwt_main.run
      (Sqlite_repo.connect
         ~pool_config:
           (Caqti_pool_config.create ~max_size:1 ~max_idle_size:1
              ~max_idle_age:None ~max_use_count:None ())
         "sqlite3::memory:")
  with
  | Ok repo -> repo
  | Error error ->
      failwith
        (Printf.sprintf "cannot open test database: %s" (Caqti_error.show error))