Declare the files to load from an external configuration file

1 files changed, 20 insertions, 2 deletions

diff --git a/tests/confLoader.ml b/tests/confLoader.ml
index 13f9840..e6187c3 100644
--- a/tests/confLoader.ml
+++ b/tests/confLoader.ml
@@ -1,5 +1,23 @@
-let load' : string -> (ImporterSyntax.t, string) Result.t =
- fun content -> Otoml.Parser.from_string content |> ImportConf.t_of_toml
+(** During the test, we don’t care with the file existence *)
+let context =
+  ImportConf.
+    { loadFile = (fun _ -> Otoml.array []); checkFile = (fun _ -> true) }
+
+let load' :
+    ?dataset:(string -> Otoml.t) ->
+    string ->
+    (ImporterSyntax.t, string) Result.t =
+ fun ?(dataset = fun _ -> Otoml.array []) content ->
+  let toml = Otoml.Parser.from_string content in
+  ImportConf.t_of_toml toml ~context:{ context with loadFile = dataset }
+
+let load_from_file :
+    ?dataset:(string -> Otoml.t) ->
+    string ->
+    (ImporterSyntax.t, string) Result.t =
+ fun ?(dataset = fun _ -> Otoml.array []) content ->
+  let toml = Otoml.Parser.from_file content in
+  ImportConf.t_of_toml toml ~context:{ context with loadFile = dataset }
 
 (** Read the configuration in toml and return the internal representation *)
 let load : string -> ImporterSyntax.t =