The unpac monorepo manager self-hosting as a monorepo using unpac
Fix mkdir test
According to `man 7 inode`:
> POSIX refers to the stat.st_mode bits corresponding to the mask S_IFMT
> (see below) as the file type, the 12 bits corresponding to the mask
> 07777 as the file mode bits and the least significant 9 bits (0777) as
> the file permission bits.
OCaml defines `st_perm` as:
> The type of file access rights, e.g. 0o640 is read and write for user,
> read for group, none for others
However, OCaml uses `buf->st_mode & 07777` and so includes three other
bits. We need to mask them out for the test.
+2
-2
+2
-2
tests/main.md
+2
-2
tests/main.md
···
877
877
# Uring.wait t;;
878
878
- : [ `Mkdir of int ] Uring.completion_option =
879
879
Uring.Some {Uring.result = 0; data = `Mkdir 0}
880
-
# (Unix.stat "mkdir").st_perm;;
881
-
- : int = 448
880
+
# Printf.sprintf "0o%o" ((Unix.stat "mkdir").st_perm land 0o777);;
881
+
- : string = "0o700"
882
882
# let v = Uring.mkdirat t ~mode:0o755 "mkdir" (`Mkdir 1);;
883
883
val v : [ `Mkdir of int ] Uring.job option = Some <abstr>
884
884
# Uring.submit t;;