test/dune

@@ -17,6 +17,15 @@
  (locks p9418)
  (deps %{bin:mgit}))
 
+(executable
+ (name git_daemon_exists)
+ (libraries unix))
+
+(rule
+ (with-stdout-to
+  git-daemon
+  (run ./git_daemon_exists.exe)))
+
 (test
  (name tests)
  (libraries git-kv alcotest bos mirage-clock-unix lwt.unix git-unix)

test/git_daemon_exists.ml

@@ -0,0 +1,9 @@
+let git_daemon_exists () =
+  match Unix.create_process "git" [| "git"; "daemon" |] Unix.stdin Unix.stdout Unix.stderr with
+  | pid ->
+    Unix.kill pid Sys.sigint ; true
+  | exception Unix.Unix_error _ -> false
+
+let () =
+  let v = git_daemon_exists () in
+  Format.printf "%b" v