Merge pull request #703 from SGrondin/idempotent-test

Make posix open_beneath test idempotent
ocaml-multicore · Feb 25, 2024 · 261b583 · 261b583
2 parents 57c0207 + ec57610
commit 261b583
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib_eio_posix/test/open_beneath.ml b/lib_eio_posix/test/open_beneath.ml
@@ -40,7 +40,7 @@ let test base path =
     check ~mode:0 base (path ^ "/") L.Open_flags.rdonly;
     check ~mode:0 base (path ^ "/.") L.Open_flags.rdonly
   )
-    
+
 let test_denied base path =
   match L.Open_flags.resolve_beneath with
   | Some some_resolve_beneath ->
@@ -57,7 +57,8 @@ let test_denied base path =
 
 let () =
   try
-    Eio_posix.run @@ fun _env ->
+    Eio_posix.run @@ fun env ->
+    Eio.Path.(rmtree ~missing_ok:true (Eio.Stdenv.cwd env / "test_beneath"));
     Unix.mkdir "test_beneath" 0o700;
     Unix.mkdir "test_beneath/subdir" 0o700;
     Unix.symlink "subdir" "test_beneath/link_subdir";