New API: Implement pwrite system call (partial fix for RHBZ#592883).

[libguestfs.git] / perl / t / 510-lib-file-arch.t

diff --git a/perl/t/510-lib-file-arch.t b/perl/t/510-lib-file-arch.t
index 14392e8..dfe32bc 100644 (file)
--- a/perl/t/510-lib-file-arch.t
+++ b/perl/t/510-lib-file-arch.t
@@ -17,7 +17,17 @@
 
 use strict;
 use warnings;
-use Test::More tests => 17;
+
+BEGIN {
+    use Test::More;
+    eval "use Locale::TextDomain";;
+    if (exists $INC{"Locale/TextDomain.pm"}) {
+        plan tests => 16;
+    } else {
+        plan skip_all => "no perl-libintl module";
+        exit 0;
+    }
+}
 
 use Sys::Guestfs;
 use Sys::Guestfs::Lib;
@@ -25,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"),