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

[libguestfs.git] / perl / t / 500-lib-load.t

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;