git.annexia.org
/
libguestfs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove main loop.
[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
..
5c70449
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 strict;
use warnings;
-use Test::More tests => 17;
+
+BEGIN {
+ use Test::More;
+ eval "use Locale::TextDomain";;
+ if (exists $INC{"Locale/TextDomain.pm"}) {
+ plan tests => 17;
+ } else {
+ plan skip_all => "no perl-libintl module";
+ exit 0;
+ }
+}
use Sys::Guestfs;
use Sys::Guestfs::Lib;
use Sys::Guestfs;
use Sys::Guestfs::Lib;
@@
-25,7
+35,7
@@
use Sys::Guestfs::Lib;
my $h = Sys::Guestfs->new ();
ok ($h);
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->launch ();
@@
-33,7
+43,7
@@
ok (1);
$h->wait_ready ();
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"),
ok (1);
is (Sys::Guestfs::Lib::file_architecture ($h, "/bin-i586-dynamic"),