Merge pull request #5194 from xcp-ng/fix-rand-err

xapi-project · Oct 10, 2023 · bfa7c93 · bfa7c93
2 parents a0dc809 + 84fad4e
commit bfa7c93
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/ocaml/quicktest/qt_filter.ml b/ocaml/quicktest/qt_filter.ml
@@ -198,8 +198,11 @@ module SR = struct
 
   let random srs () =
     let srs = srs () in
-    let index = Random.int @@ List.length srs in
-    [List.nth srs index]
+    if srs = [] then
+      []
+    else
+      let index = Random.int @@ List.length srs in
+      [List.nth srs index]
 
   let sr_filter f srs () = List.filter f (srs ())