Volume.destroy should remove the LV

Signed-off-by: David Scott <dave.scott@citrix.com>

Author: David Scott

examples/volume/org.xen.xcp.storage.plainlvm/Volume.destroy

@@ -1,6 +1,6 @@
 #!/usr/bin/env ocamlscript
 Ocaml.sources := ["common.ml"; "lvm.ml"];
-Ocaml.packs := ["xapi-storage"; "cmdliner"; "re.str"; "oUnit"];
+Ocaml.packs := ["xapi-storage"; "cmdliner"; "re.str"; "oUnit"; "uri"];
 Ocaml.ocamlflags := ["-thread"]
 --
 (*
@@ -23,7 +23,7 @@ module Command = struct
   include Volume.Destroy
 
   let command common { Volume.Destroy.In.dbg; sr; key } =
-    ()
+    Lvm.lvremove sr key
 end
 
 module Test = struct