Replace deprecated Time.Span.of_sec in async tests.

Author: paurkedal

examples/async/nonblocking_async_example.ml

@@ -42,7 +42,7 @@ module M = Mariadb.Nonblocking.Make(struct
       else idle in
     let tt =
       let tmout = float (Mariadb.Nonblocking.timeout mariadb) in
-      if S.timeout status then Clock.after (Time.Span.of_sec tmout)
+      if S.timeout status then Clock.after (Time_float.Span.of_sec tmout)
       else idle in
     ready (rt, wt, tt) >>= fun (read, write, timeout) ->
     Fd.close ~file_descriptor_handling:Fd.Do_not_close_file_descriptor fd

tests/nonblocking-async/nonblocking_testsuite_async.ml

@@ -39,7 +39,7 @@ module Wait = struct
     let wt = if S.write status then Fd.ready_to fd `Write else idle in
     let tt =
       let tmout = float (Mariadb.Nonblocking.timeout mariadb) in
-      if S.timeout status then Clock.after (Time.Span.of_sec tmout)
+      if S.timeout status then Clock.after (Time_float.Span.of_sec tmout)
       else idle in
     ready (rt, wt, tt) >>= fun (read, write, timeout) ->
     Fd.close ~file_descriptor_handling:Fd.Do_not_close_file_descriptor fd