Fix Run.rm_rf w.r.t. symlinks

Sys.is_directory raises if called on a dangling symlink.
ocaml · Mar 16, 2021 · 808c6a5 · 808c6a5
1 parent 4403309
commit 808c6a5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/reftests/run.ml b/tests/reftests/run.ml
@@ -205,7 +205,7 @@ let erase_file path =
 
 let rm_rf path =
   let rec erase path =
-    if Sys.is_directory path then begin
+    if Sys.file_exists path && Sys.is_directory path then begin
       Array.iter (fun entry -> erase (Filename.concat path entry))
                  (Sys.readdir path);
       Unix.rmdir path