Lib.pm: Skip tests if perl-libintl module is not available.

diff --git a/perl/t/500-lib-load.t b/perl/t/500-lib-load.t
index 1407169..de928ae 100644 (file)
--- a/perl/t/500-lib-load.t
+++ b/perl/t/500-lib-load.t
@@ -17,7 +17,18 @@
 
 use strict;
 use warnings;
 
 use strict;
 use warnings;

-use Test::More tests => 1;
+
+BEGIN {
+    use Test::More;
+
+    eval "use Locale::TextDomain";;
+    if (exists $INC{"Locale/TextDomain.pm"}) {
+       plan tests => 1;
+    } else {
+       plan skip_all => "no perl-libintl module";
+       exit 0;
+    }
+}

 
 use Sys::Guestfs;
 use Sys::Guestfs::Lib;
 
 use Sys::Guestfs;
 use Sys::Guestfs::Lib;

diff --git a/perl/t/510-lib-file-arch.t b/perl/t/510-lib-file-arch.t
index 14392e8..b0a96e9 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;