From a93c0b988bba9651b1d0a687bc33b2bd29719c49 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Rapha=C3=ABl=20Proust?=
 <raphael-proust@users.noreply.github.com>
Date: Mon, 6 May 2024 09:15:33 +0200
Subject: [PATCH] Update test/unix/test_lwt_process.ml

---
 test/unix/test_lwt_process.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/test/unix/test_lwt_process.ml b/test/unix/test_lwt_process.ml
index 7404f336d..8e98bf7e6 100644
--- a/test/unix/test_lwt_process.ml
+++ b/test/unix/test_lwt_process.ml
@@ -35,6 +35,7 @@ let pwrite ~stdin pout expected =
 
 let read_all ic buf ofs len =
   let rec loop ic buf ofs len =
+    assert (len >= 0);
     Lwt_unix.read ic buf ofs len >>= function
     | 0 ->
         Lwt.return ofs