X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=perl%2Ft%2F510-lib-file-arch.t;h=dfe32bc0868360fc601dc369160afecff9754ac5;hb=2eb19f526164a978c373a760deb30854d56b62ce;hp=b0a96e9fe05d9f2983ac8d16c8061de2d9bd0cf5;hpb=aa999d0586fd69094cb06ccb3ae5c429649662e0;p=libguestfs.git

diff --git a/perl/t/510-lib-file-arch.t b/perl/t/510-lib-file-arch.t
index b0a96e9..dfe32bc 100644
--- a/perl/t/510-lib-file-arch.t
+++ b/perl/t/510-lib-file-arch.t
@@ -22,10 +22,10 @@ BEGIN {
     use Test::More;
     eval "use Locale::TextDomain";;
     if (exists $INC{"Locale/TextDomain.pm"}) {
-	plan tests => 17;
+        plan tests => 16;
     } else {
-	plan skip_all => "no perl-libintl module";
-	exit 0;
+        plan skip_all => "no perl-libintl module";
+        exit 0;
     }
 }
 
@@ -35,15 +35,13 @@ use Sys::Guestfs::Lib;
 my $h = Sys::Guestfs->new ();
 ok ($h);
 
-$h->add_drive_ro ("../images/test.sqsh");
+$h->add_drive_ro ("../images/test.iso");
 ok (1);
 
 $h->launch ();
 ok (1);
-$h->wait_ready ();
-ok (1);
 
-$h->mount_vfs ("ro", "squashfs", "/dev/sda", "/");
+$h->mount_ro ("/dev/sda", "/");
 ok (1);
 
 is (Sys::Guestfs::Lib::file_architecture ($h, "/bin-i586-dynamic"),