irmin-client: Fix Mirage crypto initialization in tests

clecat · clecat · commit b7499dfcc2b5 · 2024-09-18T17:42:13.000+02:00
diff --git a/irmin-client.opam b/irmin-client.opam
@@ -24,6 +24,7 @@ depends: [
   "irmin-test" {= version & with-test}
   "alcotest-lwt" {with-test & >= "1.8.0"}
   "irmin-watcher" {with-test & >= "0.5.0"}
+  "mirage-crypto-rng-lwt" {with-test & >= "1.1.0"}
 ]
 build: [
   ["dune" "subst"] {pinned}
diff --git a/test/irmin-client/dune b/test/irmin-client/dune
@@ -8,6 +8,7 @@
   websocket-lwt-unix
   conduit-lwt-unix
   alcotest-lwt
+  mirage-crypto-rng-lwt
   irmin-test
   irmin-watcher)
  (enabled_if
diff --git a/test/irmin-client/util.ml b/test/irmin-client/util.ml
@@ -15,6 +15,9 @@
  *)
 
 open Lwt.Infix
+
+let () = Mirage_crypto_rng_lwt.initialize (module Mirage_crypto_rng.Fortuna)
+
 module Store = Irmin_mem.KV.Make (Irmin.Contents.String)
 module Client = Irmin_client_unix.Make (Store)
 module Server = Irmin_server_unix.Make (Store)

Original file line number	Diff line number	Diff line change
`@@ -24,6 +24,7 @@ depends: [`
`24`	`24`	`"irmin-test" {= version & with-test}`
`25`	`25`	`"alcotest-lwt" {with-test & >= "1.8.0"}`
`26`	`26`	`"irmin-watcher" {with-test & >= "0.5.0"}`
	`27`	`+ "mirage-crypto-rng-lwt" {with-test & >= "1.1.0"}`
`27`	`28`	`]`
`28`	`29`	`build: [`
`29`	`30`	`["dune" "subst"] {pinned}`