diff --git a/test/ocaml/server/TestServer.ml b/test/ocaml/server/TestServer.ml
index 3768f5d..6715738 100644
--- a/test/ocaml/server/TestServer.ml
+++ b/test/ocaml/server/TestServer.ml
@@ -97,6 +97,8 @@
     let res = new xtruct in
       res#set_string_thing (sod a1);
       res
+  method testAsync i =
+    Unix.sleep (sod i)
 end;;
 
 let h = new test_handler in