From aa999d0586fd69094cb06ccb3ae5c429649662e0 Mon Sep 17 00:00:00 2001 From: Richard Jones Date: Wed, 29 Jul 2009 15:49:48 +0100 Subject: [PATCH] Lib.pm: Skip tests if perl-libintl module is not available. --- perl/t/500-lib-load.t | 13 ++++++++++++- perl/t/510-lib-file-arch.t | 12 +++++++++++- 2 files changed, 23 insertions(+), 2 deletions(-) diff --git a/perl/t/500-lib-load.t b/perl/t/500-lib-load.t index 1407169..de928ae 100644 --- a/perl/t/500-lib-load.t +++ b/perl/t/500-lib-load.t @@ -17,7 +17,18 @@ 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; diff --git a/perl/t/510-lib-file-arch.t b/perl/t/510-lib-file-arch.t index 14392e8..b0a96e9 100644 --- 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 => 17; + } else { + plan skip_all => "no perl-libintl module"; + exit 0; + } +} use Sys::Guestfs; use Sys::Guestfs::Lib; -- 1.8.3.1