Browse files

Update allowed_operations on each VM in the database.

Signed-off-by: John Else <john.else@citrix.com>
  • Loading branch information...
1 parent 2c10823 commit 4dddd4dc4e493212bf37c6bbdbb806f59e9e8839 @johnelse committed Sep 24, 2012
Showing with 4 additions and 1 deletion.
  1. +4 −1 ocaml/test/test_big_database.ml
View
5 ocaml/test/test_big_database.ml
@@ -232,6 +232,9 @@ let test_big_database () =
let vbd_records = List.map (fun vbd -> (vbd, Db.VBD.get_record_internal ~__context ~self:vbd)) vbds in
List.iter (fun vdi -> Xapi_vdi.update_allowed_operations_internal ~__context ~self:vdi ~sr_records ~pbd_records ~vbd_records) vdis;
end else
- List.iter (fun vdi -> Xapi_vdi.update_allowed_operations ~__context ~self:vdi) vdis)
+ List.iter (fun vdi -> Xapi_vdi.update_allowed_operations ~__context ~self:vdi) vdis);
+ (* Update allowed operations on all VMs in the database. *)
+ time_it "Updating allowed_operations on all VMs" (fun () ->
+ List.iter (fun vm -> Xapi_vm_lifecycle.update_allowed_operations ~__context ~self:vm) vms)
let _ = test_big_database ()

0 comments on commit 4dddd4d

Please sign in to comment.