From 520c387adcdc67b133f105696d463405240cf647 Mon Sep 17 00:00:00 2001 From: BenjiReis Date: Wed, 2 Aug 2023 13:07:19 +0200 Subject: [PATCH] Add `vdi_update` filter to some tests These tests call at some point `VDI.update` so the VDIs not supporting it should be filtered out. Signed-off-by: BenjiReis --- ocaml/quicktest/quicktest_cbt.ml | 2 ++ ocaml/quicktest/quicktest_vdi.ml | 6 ++++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ocaml/quicktest/quicktest_cbt.ml b/ocaml/quicktest/quicktest_cbt.ml index afc5957ad50..3c8a9a9cdec 100644 --- a/ocaml/quicktest/quicktest_cbt.ml +++ b/ocaml/quicktest/quicktest_cbt.ml @@ -157,6 +157,7 @@ let tests () = ; `vdi_data_destroy ; `vdi_snapshot ] + |> has_capabilities [Sr_capabilities.vdi_update] ) ; [("vdi_clone_copy_test", `Slow, vdi_clone_copy_test)] |> conn @@ -165,6 +166,7 @@ let tests () = all |> allowed_operations [`vdi_create; `vdi_destroy; `vdi_enable_cbt; `vdi_clone] + |> has_capabilities [Sr_capabilities.vdi_update] ) ] |> List.concat diff --git a/ocaml/quicktest/quicktest_vdi.ml b/ocaml/quicktest/quicktest_vdi.ml index d6b0cc15326..8acb4eb7ab5 100644 --- a/ocaml/quicktest/quicktest_vdi.ml +++ b/ocaml/quicktest/quicktest_vdi.ml @@ -417,7 +417,8 @@ let tests () = ) ; [("test_vdi_snapshot", `Slow, test_vdi_snapshot)] |> conn - |> sr SR.(all |> has_capabilities [Sr_capabilities.vdi_snapshot]) + |> sr + SR.(all |> has_capabilities Sr_capabilities.[vdi_snapshot; vdi_update]) ; [("test_vdi_clone", `Slow, test_vdi_clone)] |> conn |> sr @@ -428,7 +429,8 @@ let tests () = ) ; [("vdi_snapshot_in_pool", `Slow, vdi_snapshot_in_pool)] |> conn - |> sr SR.(all |> has_capabilities [Sr_capabilities.vdi_snapshot]) + |> sr + SR.(all |> has_capabilities Sr_capabilities.[vdi_snapshot; vdi_update]) ; [ ( "vdi_create_destroy_plug_checksize" , `Slow