diff --git a/test/index/test.ml b/test/index/test.ml
index 9576b6ecb..19dbbe152 100644
--- a/test/index/test.ml
+++ b/test/index/test.ml
@@ -183,6 +183,11 @@ let delete_should_be_empty =
   let run path =
     let open Rresult in
     Bos.OS.Dir.with_current path @@ fun () ->
+    Bos.OS.Cmd.run Bos.Cmd.(v "git" % "config" % "user.name" % "test")
+    >>= fun () ->
+    Bos.OS.Cmd.run
+      Bos.Cmd.(v "git" % "config" % "user.email" % "pseudo@pseudo.invalid")
+    >>= fun () ->
     Bos.OS.Cmd.run Bos.Cmd.(v "git" % "commit" % "-m" % ".") >>= fun () ->
     load ~hash:SHA1 Fpath.(v ".git" / "index") >>= fun t ->
     (* XXX(dinosaure): [git] deletes [should-be-empty] into the index file **AND**
diff --git a/test/smart/test.ml b/test/smart/test.ml
index dfe655458..ab3384a0c 100644
--- a/test/smart/test.ml
+++ b/test/smart/test.ml
@@ -385,6 +385,11 @@ let commit_foo store =
   let commit =
     let open Rresult in
     Bos.OS.Dir.with_current path @@ fun () ->
+    Bos.OS.Cmd.run Bos.Cmd.(v "git" % "config" % "user.name" % "test")
+    >>= fun () ->
+    Bos.OS.Cmd.run
+      Bos.Cmd.(v "git" % "config" % "user.email" % "pseudo@pseudo.invalid")
+    >>= fun () ->
     Bos.OS.File.write (Fpath.v "foo") "" >>= fun () ->
     Bos.OS.Cmd.run Bos.Cmd.(v "git" % "add" % "foo") >>= fun () ->
     Bos.OS.Cmd.run Bos.Cmd.(v "git" % "commit" % "-m" % ".") >>= fun () ->
@@ -1490,6 +1495,11 @@ let test_partial_fetch_ssh () =
     let fiber =
       let open Rresult in
       OS.Dir.with_current path @@ fun () ->
+      OS.Cmd.run Bos.Cmd.(v "git" % "config" % "user.name" % "test")
+      >>= fun () ->
+      OS.Cmd.run
+        Bos.Cmd.(v "git" % "config" % "user.email" % "pseudo@pseudo.invalid")
+      >>= fun () ->
       OS.Cmd.run Cmd.(v "touch" % "foo") >>= fun () ->
       OS.Cmd.run Cmd.(v "git" % "add" % "foo") >>= fun () ->
       OS.Cmd.run Cmd.(v "git" % "commit" % "-m" % ".")
@@ -1503,6 +1513,11 @@ let test_partial_fetch_ssh () =
     let fiber =
       let open Rresult in
       OS.Dir.with_current path @@ fun () ->
+      OS.Cmd.run Bos.Cmd.(v "git" % "config" % "user.name" % "test")
+      >>= fun () ->
+      OS.Cmd.run
+        Bos.Cmd.(v "git" % "config" % "user.email" % "pseudo@pseudo.invalid")
+      >>= fun () ->
       OS.Cmd.run Cmd.(v "touch" % "bar") >>= fun () ->
       OS.Cmd.run Cmd.(v "git" % "add" % "bar") >>= fun () ->
       OS.Cmd.run Cmd.(v "git" % "commit" % "-m" % ".") >>= fun () ->