diff --git a/tests/unit/t_server.ml b/tests/unit/t_server.ml
index c3c888dc..01b82eac 100644
--- a/tests/unit/t_server.ml
+++ b/tests/unit/t_server.ml
@@ -19,10 +19,10 @@ let () =
   match r with
   | None -> failwith "should parse"
   | Some req ->
-    assert_eq (Some "coucou") (Headers.get "Host" req.Request.headers);
-    assert_eq (Some "coucou") (Headers.get "host" req.Request.headers);
-    assert_eq (Some "11") (Headers.get "content-length" req.Request.headers);
-    assert_eq "hello" req.Request.path;
+    assert_eq (Some "coucou") (Headers.get "Host" req.headers);
+    assert_eq (Some "coucou") (Headers.get "host" req.headers);
+    assert_eq (Some "11") (Headers.get "content-length" req.headers);
+    assert_eq "hello" req.path;
     let req = Request.Private_.parse_body req str |> Request.read_body_full in
-    assert_eq ~to_string:(fun s -> s) "salutations" req.Request.body;
+    assert_eq ~to_string:(fun s -> s) "salutations" req.body;
     ()
diff --git a/tests/unit/util/dune b/tests/unit/util/dune
index fb97b15e..e2790663 100644
--- a/tests/unit/util/dune
+++ b/tests/unit/util/dune
@@ -2,4 +2,4 @@
 (library
   (name test_util)
   (modules test_util)
-  (libraries qcheck-core qcheck-core.runner))
+  (libraries logs qcheck-core qcheck-core.runner))
diff --git a/tests/unit/util/test_util.ml b/tests/unit/util/test_util.ml
index ae225b00..cd9c3dc5 100644
--- a/tests/unit/util/test_util.ml
+++ b/tests/unit/util/test_util.ml
@@ -29,3 +29,7 @@ let add_qcheck f = qchecks := f :: !qchecks
 
 let run_qcheck_and_exit () : 'a =
   exit @@ QCheck_base_runner.run_tests ~colors:false !qchecks
+
+let setup_logs_debug () =
+  Logs.set_reporter @@ Logs.format_reporter ();
+  Logs.set_level ~all:true @@ Some Logs.Debug