Check if git-daemon exists and execute tests then

test/dune

@@ -2,10 +2,21 @@
  (package git-kv)
  (applies_to simple)
  (locks p9418)
+ (enabled_if (= "true" {%read:git-daemon}))
  (deps %{bin:mgit}))
 
 (cram
  (package git-kv)
  (applies_to fold)
  (locks p9418)
+ (enabled_if (= "true" {%read:git-daemon}))
  (deps %{bin:mgit}))
+
+(executable
+ (name git_daemon_exists)
+ (libraries unix))
+
+(rule
+ (with-stdout-to
+  git-daemon
+  (run ./git_daemon_exists.exe)))

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