X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=ocaml%2Ft%2Fguestfs_060_readdir.ml;h=f56070044eb6f011346638a583ab88193da66e7d;hp=f333810e67661945863fd2725195d56d795ecad6;hb=53c524819323dcea8d5e3d56ff4fc6cf49b6c64f;hpb=5186251f8f681f2ebb028423bb49a748861fd11e

diff --git a/ocaml/t/guestfs_060_readdir.ml b/ocaml/t/guestfs_060_readdir.ml
index f333810..f560700 100644
--- 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";
@@ -44,10 +43,10 @@ let () =
   ) dirs in
 
   if dirs <> [ ".", 'd';
-	       "..", 'd';
-	       "lost+found", 'd';
-	       "p", 'd';
-	       "q", 'r' ] then
+               "..", 'd';
+               "lost+found", 'd';
+               "p", 'd';
+               "q", 'r' ] then
     failwith "Guestfs.readdir returned incorrect result";
 
   Guestfs.close g;