Code

gettext tests: test if $VERSION exists before using it
authorÆvar Arnfjörð Bjarmason <avarab@gmail.com>
Mon, 30 Aug 2010 19:35:24 +0000 (19:35 +0000)
committerÆvar Arnfjörð Bjarmason <avarab@gmail.com>
Sat, 30 Oct 2010 07:10:07 +0000 (07:10 +0000)
Versions of Locale::Messages before 1.17 didn't have a $VERSION
variable. This caused test failures on boxes that had this old version
installed, since the warnings pragma emits warnings on STDERR, which
fails the test.

Change the test to work around this by first checking if the $VERSION
variable is defined before using it.

Reported-by: Jens Lehmann <Jens.Lehmann@web.de>
Tested-by: Jens Lehmann <Jens.Lehmann@web.de>
Signed-off-by: Ævar Arnfjörð Bjarmason <avarab@gmail.com>
t/t0202/test.pl

index c2055fa8de1640e62ea3bb57619bdb0113cfc952..6b0060393ba8e0bfb5451ac2be603c377ae2b662 100644 (file)
@@ -11,7 +11,9 @@ my $has_gettext_library = $Git::I18N::__HAS_LIBRARY;
 
 ok(1, "Testing Git::I18N version $Git::I18N::VERSION with " .
         ($has_gettext_library
-         ? "Locale::Messages version $Locale::Messages::VERSION"
+         ? (defined $Locale::Messages::VERSION
+                ? "Locale::Messages version $Locale::Messages::VERSION"
+                : "Locale::Messages version <1.17")
          : "NO Perl gettext library"));
 ok(1, "Git::I18N is located at $INC{'Git/I18N.pm'}");