test: update to use the new interface

Signed-off-by: Marcello Seri <[email protected]>

Author: Marcello Seri

test/test.ml

@@ -7,13 +7,13 @@ let t_receivefd fd =
   let nb_read, remote_saddr, fd_recv = recv_fd fd buf 0 2 [] in
   Printf.printf "[receiver] Received %d bytes, received fd = %d\n%!" nb_read (int_of_fd fd_recv);
   let message = "[receiver] I'm the receiver, and I'm writing into the fd you passed to me :p\n" in
-  let nb_written = write fd_recv (Bytes.unsafe_of_string message) 0 (String.length message) in
+  let nb_written = write_substring fd_recv message 0 (String.length message) in
   assert (nb_written = String.length message)
 
 let t_sendfd fd =
   let fd_to_send = stdout in
-  let buf = Bytes.of_string "  " in
-  let nb_sent = send_fd fd buf 0 2 [] fd_to_send in
+  let buf = "  " in
+  let nb_sent = send_fd_substring fd buf 0 2 [] fd_to_send in
   Printf.printf "[sender] sent %d bytes, sent fd = %d\n%!" nb_sent (int_of_fd fd_to_send)
 
 let main () =

test/test_fork.ml

@@ -7,13 +7,13 @@ let t_receivefd fd =
   let nb_read, remote_saddr, fd_recv = recv_fd fd buf 0 2 [] in
   Printf.printf "[receiver] Received %d bytes, received fd = %d\n%!" nb_read (int_of_fd fd_recv);
   let message = "[receiver] I'm the receiver, and I'm writing into the fd you passed to me :p\n" in
-  let nb_written = write fd_recv (Bytes.unsafe_of_string message) 0 (String.length message) in
+  let nb_written = write_substring fd_recv message 0 (String.length message) in
   assert (nb_written = String.length message)
 
 let t_sendfd fd =
   let fd_to_send = stdout in
-  let buf = Bytes.of_string "  " in
-  let nb_sent = send_fd fd buf 0 2 [] fd_to_send in
+  let buf = "  " in
+  let nb_sent = send_fd_substring fd buf 0 2 [] fd_to_send in
   Printf.printf "[sender] sent %d bytes, sent fd = %d\n%!" nb_sent (int_of_fd fd_to_send)
 
 let main () =