Update test/unix/test_lwt_process.ml

ocsigen · May 6, 2024 · a93c0b9 · a93c0b9
1 parent 191f092
commit a93c0b9
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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