Add unit test for Temp.clear_dir

Signed-off-by: Rudi Grinberg <[email protected]>
ocaml · Sep 3, 2020 · c0975a2 · c0975a2
1 parent 1c0dcdd
commit c0975a2
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/test/expect-tests/stdune/temp_tests.ml b/test/expect-tests/stdune/temp_tests.ml
@@ -0,0 +1,20 @@
+open Stdune
+open Dune_tests_common
+open Dyn.Encoder
+
+let () = init ()
+
+let%expect_test "Temp.clear_dir works" =
+  let path = Temp.create Dir ~prefix:"dune." ~suffix:".unit_test" in
+  Path.touch (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 [] |}]