2025-11-11 02:07:51 +01:00 · 2025-11-11 02:07:51 +01:00 · 2f3113f55d
commit 2f3113f55d
parent aa2ff7b2f0
11742 changed files with 1223940 additions and 0 deletions
--- a/unikernel/duniverse/dune_/otherlibs/stdune/test/temp_tests.ml
+++ b/unikernel/duniverse/dune_/otherlibs/stdune/test/temp_tests.ml
@ -0,0 +1,21 @@
+open Stdune
+open Dune_tests_common
+open Dyn
+
+let () = init ()
+
+let%expect_test "Temp.clear_dir works" =
+  let path = Temp.create Dir ~prefix:"dune" ~suffix:"unit_test" in
+  Io.write_file (Path.relative path "foo") "";
+  let print () =
+    Path.readdir_unsorted path |> Result.to_dyn (list string) opaque |> print_dyn
+  in
+  print ();
+  Temp.clear_dir path;
+  print ();
+  [%expect
+    {|
+    Ok [ "foo" ]
+    Ok []
+  |}]
+;;