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;
}
}
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"),