test/dune

@@ -17,15 +17,6 @@
  (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

@@ -1,9 +0,0 @@
-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