Fix deprecated uuidm usage
This commit is contained in:
parent
b6f6090ce5
commit
dbf3d84471
1 changed files with 2 additions and 2 deletions
|
@ -126,7 +126,7 @@ let test_user_unauth (module Db : CONN) =
|
||||||
|
|
||||||
let job_name = "test-job"
|
let job_name = "test-job"
|
||||||
let script = Fpath.v "/dev/null"
|
let script = Fpath.v "/dev/null"
|
||||||
let uuid = Uuidm.create `V4
|
let uuid = Uuidm.v `V4
|
||||||
let console = Fpath.v "/dev/null"
|
let console = Fpath.v "/dev/null"
|
||||||
let start = Option.get (Ptime.of_float_s 0.)
|
let start = Option.get (Ptime.of_float_s 0.)
|
||||||
let finish = Option.get (Ptime.of_float_s 1.)
|
let finish = Option.get (Ptime.of_float_s 1.)
|
||||||
|
@ -203,7 +203,7 @@ let test_build_get_all (module Db : CONN) =
|
||||||
Db.collect_list Builder_db.Build.get_all job_id >>| fun builds ->
|
Db.collect_list Builder_db.Build.get_all job_id >>| fun builds ->
|
||||||
Alcotest.(check int) "one build" (List.length builds) 1
|
Alcotest.(check int) "one build" (List.length builds) 1
|
||||||
|
|
||||||
let uuid' = Uuidm.create `V4
|
let uuid' = Uuidm.v `V4
|
||||||
let start' = Option.get (Ptime.of_float_s 3600.)
|
let start' = Option.get (Ptime.of_float_s 3600.)
|
||||||
let finish' = Option.get (Ptime.of_float_s 3601.)
|
let finish' = Option.get (Ptime.of_float_s 3601.)
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue