Fix Sys.remove on directory on macOS

ocaml-multicore · May 8, 2023 · 4b43eb4 · 4b43eb4
1 parent d480244
commit 4b43eb4
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/sys/stm_tests.ml b/src/sys/stm_tests.ml
@@ -278,6 +278,7 @@ struct
        | Error (Sys_error s) ->
          (s = (p complete_path) ^ ": No such file or directory" && not (mem_model fs complete_path)) ||
          (s = (p complete_path) ^ ": Is a directory" && path_is_a_dir fs complete_path) ||
+         (s = (p complete_path) ^ ": Operation not permitted" && path_is_a_dir fs complete_path) ||
          (s = (p complete_path) ^ ": Not a directory" && not (path_is_a_dir fs path))
        | Error _ -> false
       )