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

diff --git a/perl/t/060-readdir.t b/perl/t/060-readdir.t
index 17dfd24..e8fe151 100644
--- a/perl/t/060-readdir.t
+++ b/perl/t/060-readdir.t
@@ -13,11 +13,11 @@
 #
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 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);