X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=perl%2Ft%2F060-readdir.t;h=e8fe151ef71ae07f2daca1b6d6222acf372975ad;hb=f5bfc68fdb3e25b9d75c65e3f5e88983584b25ed;hp=898b44f86a0da6b2fe3db5267e2c8acef2e85db9;hpb=8869adf1e811d894088dbb0f371edc23299005c8;p=libguestfs.git

diff --git a/perl/t/060-readdir.t b/perl/t/060-readdir.t
index 898b44f..e8fe151 100644
--- a/perl/t/060-readdir.t
+++ b/perl/t/060-readdir.t
@@ -13,7 +13,7 @@
 #
 # 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;
@@ -34,11 +34,11 @@ ok (1);
 $h->launch ();
 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);