JosephFerano/flan
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

A test binary's own directory is removed twice over before it is checked, so a child still exiting cannot fail the run

Browse Source
This commit is contained in:
Joseph Ferano 2026-09-25 09:44:02 +07:00
parent 6a1182df5d
commit 931000fcb5
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/own_tmp.ml
View File

@ -84,6 +84,10 @@ let release () =
if Unix.getpid () = owner && not !released then begin if Unix.getpid () = owner && not !released then begin
released := true; released := true;
remove dir; remove dir;
(* Twice, because a child still exiting — a daemon's clang, a program
the test just signalled — can write between one pass's [readdir] and
its [rmdir], and a check that fails on that is a flake. *)
if Sys.file_exists dir then remove dir;
match leftovers () with match leftovers () with
| [] -> () | [] -> ()
| left -> | left ->