Add a test for Unixext.Direct module

Very simple test. Exercise modified code. Signed-off-by: Frediano Ziglio <[email protected]>
xapi-project · Nov 22, 2024 · b0df73a · b0df73a
1 parent 5e3f5cc
commit b0df73a
Showing 1 changed file with 19 additions and 1 deletion.
diff --git a/ocaml/libs/xapi-stdext/lib/xapi-stdext-unix/test/unixext_test.ml b/ocaml/libs/xapi-stdext/lib/xapi-stdext-unix/test/unixext_test.ml
@@ -281,8 +281,26 @@ let test_select =
   in
   true
 
+let test_direct =
+  let gen = Gen.unit in
+  Test.make ~count:1 ~name:__FUNCTION__ gen @@ fun _ ->
+  let fn = "test_file_direct" in
+  let buf = Bytes.make 10000 'x' in
+  Unixext.Direct.with_openfile fn [Unix.O_RDWR; Unix.O_CREAT] 0o600 (fun f ->
+      let res = Unixext.Direct.write f buf 0 1000 in
+      QCheck2.assume (res == 1000)
+  ) ;
+  Unix.unlink fn ;
+  true
+
 let tests =
-  [test_select; test_proxy; test_time_limited_write; test_time_limited_read]
+  [
+    test_select
+  ; test_proxy
+  ; test_time_limited_write
+  ; test_time_limited_read
+  ; test_direct
+  ]
 
 let () =
   (* avoid SIGPIPE *)