X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=sidebyside;f=perl%2Ft%2F060-readdir.t;h=dc8278b32946fa014d1db53bbc591823cc4d0d2d;hb=f93cbe5756cf052cce8049087afdcf714a3fc70c;hp=17dfd24bc11950c058537ffa119148e478e35c7c;hpb=5186251f8f681f2ebb028423bb49a748861fd11e;p=libguestfs.git

diff --git a/perl/t/060-readdir.t b/perl/t/060-readdir.t
index 17dfd24..dc8278b 100644
--- a/perl/t/060-readdir.t
+++ b/perl/t/060-readdir.t
@@ -17,7 +17,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 13;
+use Test::More tests => 12;
 
 use Sys::Guestfs;
 
@@ -33,14 +33,12 @@ ok (1);
 
 $h->launch ();
 ok (1);
-$h->wait_ready ();
-ok (1);
 
-$h->sfdisk ("/dev/sda", 0, 0, 0, [","]);
+$h->part_disk ("/dev/sda", "mbr");
 ok (1);
 $h->mkfs ("ext2", "/dev/sda1");
 ok (1);
-$h->mount ("/dev/sda1", "/");
+$h->mount_options ("", "/dev/sda1", "/");
 ok (1);
 $h->mkdir ("/p");
 ok (1);