From c374635a36d71e8cfff6e1c19b62e5d0e14ea371 Mon Sep 17 00:00:00 2001
From: Estevan Castilho <tevo@riajuu.net>
Date: Wed, 15 Jul 2026 01:52:38 +0000
Subject: Storage layer scaffolding, LMDB backend

---
 test/Helpers.ml | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 test/Helpers.ml

(limited to 'test/Helpers.ml')

diff --git a/test/Helpers.ml b/test/Helpers.ml
new file mode 100644
index 0000000..bf34b82
--- /dev/null
+++ b/test/Helpers.ml
@@ -0,0 +1,19 @@
+open Rnt
+
+let rec recursively_remove path =
+  if Sys.is_directory path then begin
+    Sys.readdir path |> Array.iter (fun name -> recursively_remove (Filename.concat path name));
+    Unix.rmdir path
+  end
+  else Sys.remove path
+
+let with_temporary_directory prefix ?(suffix = "") f =
+  let path = Filename.temp_dir ~temp_dir:"/tmp" prefix suffix in
+  Fun.protect (fun () -> f path) ~finally:(fun () -> recursively_remove path)
+
+let condition_as_failure = function
+  | Ok r -> r
+  | Error c -> Alcotest.fail (Concepts.Condition.to_string_hum c)
+
+let pp_value ppf v = Format.pp_print_string ppf (Concepts.Value.to_string v)
+let value = Alcotest.testable pp_value Concepts.Value.equal
-- 
cgit v1.2.3