robur/git-kv
4
0
Fork 0
Code Issues Pull requests 1 Projects Releases Packages Wiki Activity Actions

remove no longer used code

Browse source
This commit is contained in:
Hannes Mehnert 2024-10-29 20:43:39 +01:00
parent 708cd7d008
commit 3402bb2f7c
2 changed files with 0 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
test/dune
View file

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

9
test/git_daemon_exists.ml
View file

@ -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