unikernel/duniverse/dune_/test/expect-tests/common/dune

@@ -0,0 +1,4 @@
+(library
+ (name dune_tests_common)
+ (modules dune_tests_common)
+ (libraries stdune dune_console dune_util))

unikernel/duniverse/dune_/test/expect-tests/common/dune_tests_common.ml

@@ -0,0 +1,17 @@
+open Stdune
+module Console = Dune_console
+
+let print pp = Format.printf "%a@." Pp.to_fmt pp
+let print_dyn dyn = print (Dyn.pp dyn)
+
+let init =
+  let init =
+    lazy
+      (Printexc.record_backtrace false;
+       Path.set_root (Path.External.cwd ());
+       Path.Build.set_build_dir (Path.Outside_build_dir.of_string "_build");
+       Console.Backend.(set dumb);
+       Dune_util.Log.init ())
+  in
+  fun () -> Lazy.force init
+;;