[Module-build-checkins] [svn:Module-Build] r6023 - in Module-Build/trunk: . t/lib

[<kwi...@cv...>]

Author: kwilliams
Date: Sat May  6 15:05:46 2006
New Revision: 6023

Modified:
   Module-Build/trunk/Changes
   Module-Build/trunk/t/lib/MBTest.pm

Log:
Fixed a guaranteed failure in t/signature.t when TEST_SIGNATURE was set.

Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes	(original)
+++ Module-Build/trunk/Changes	Sat May  6 15:05:46 2006
@@ -9,6 +9,9 @@
  - Replaced a vestigial 'next' with 'return' now that the code is in a
    subroutine (htmlify_pods()), not a loop. [Ron Savage]
 
+ - Fixed a guaranteed failure in t/signature.t when TEST_SIGNATURE was
+   set. [Eric R. Meyers]
+
 0.28  Thu Apr 27 22:25:00 CDT 2006
 
  - When y_n() or prompt() are called without a default value and the

Modified: Module-Build/trunk/t/lib/MBTest.pm
==============================================================================
--- Module-Build/trunk/t/lib/MBTest.pm	(original)
+++ Module-Build/trunk/t/lib/MBTest.pm	Sat May  6 15:05:46 2006
@@ -44,7 +44,7 @@
 
 # We have a few extra exports, but Test::More has a special import()
 # that won't take extra additions.
-my @extra_exports = qw(stdout_of stderr_of slurp find_in_path check_compiler);
+my @extra_exports = qw(stdout_of stderr_of slurp find_in_path check_compiler have_module);
 push @EXPORT, @extra_exports;
 __PACKAGE__->export(scalar caller, @extra_exports);
 
@@ -105,4 +105,9 @@
   return ($have_c_compiler, $mb->feature('C_support'));
 }
 
+sub have_module {
+  my $module = shift;
+  return eval "use $module; 1";
+}
+
 1;