Generic partition creation interface.

[libguestfs.git] / ocaml / t / guestfs_060_readdir.ml

diff --git a/ocaml/t/guestfs_060_readdir.ml b/ocaml/t/guestfs_060_readdir.ml
index e9368a8..f560700 100644 (file)
--- a/ocaml/t/guestfs_060_readdir.ml
+++ b/ocaml/t/guestfs_060_readdir.ml
@@ -27,9 +27,8 @@ let () =
 
   Guestfs.add_drive g "test.img";
   Guestfs.launch g;
-  Guestfs.wait_ready g;
 
-  Guestfs.sfdisk g "/dev/sda" 0 0 0 [|","|];
+  Guestfs.part_disk g "/dev/sda" "mbr";
   Guestfs.mkfs g "ext2" "/dev/sda1";
   Guestfs.mount g "/dev/sda1" "/";
   Guestfs.mkdir g "/p";