[svn:Module-Build] r10458 - in Module-Build/trunk: . lib/Module/Build t

[schwern]

Author: schwern
Date: Wed Dec 26 00:46:19 2007
New Revision: 10458

Modified:
   Module-Build/trunk/   (props changed)
   Module-Build/trunk/Changes
   Module-Build/trunk/lib/Module/Build/Base.pm
   Module-Build/trunk/t/signature.t

Log:
 [EMAIL PROTECTED]:  schwern | 2007-12-26 00:33:25 -0800
  - perl Build.PL --sign=1 now signs. [Michael G Schwern]
 


Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes  (original)
+++ Module-Build/trunk/Changes  Wed Dec 26 00:46:19 2007
@@ -1,5 +1,7 @@
 Revision history for Perl extension Module::Build.
 
+ - perl Build.PL --sign=1 now signs. [Michael G Schwern]
+
  - Fixed processing of INSTALLDIRS=whatever for compatibility
    Makefiles. [Spotted by John Peacock]
 

Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm Wed Dec 26 00:46:19 2007
@@ -834,6 +834,7 @@
   recursive_test_files
   script_files
   scripts
+  sign
   test_files
   verbose
   xs_files

Modified: Module-Build/trunk/t/signature.t
==============================================================================
--- Module-Build/trunk/t/signature.t    (original)
+++ Module-Build/trunk/t/signature.t    Wed Dec 26 00:46:19 2007
@@ -6,7 +6,7 @@
 
 if ( $ENV{TEST_SIGNATURE} ) {
   if ( have_module( 'Module::Signature' ) ) {
-    plan tests => 10;
+    plan tests => 13;
   } else {
     plan skip_all => '$ENV{TEST_SIGNATURE} is set, but Module::Signature not 
found';
   }
@@ -79,6 +79,24 @@
 eval { $mb->dispatch('realclean') };
 is $@, '';
 
+chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!";
+
+{
+    local @ARGV = '--sign=1';
+    $dist->change_build_pl({
+        module_name => $dist->name,
+        license     => 'perl',
+    });
+    $dist->regen;
+    
+    my $mb = Module::Build->new_from_context;
+    is $mb->{properties}{sign}, 1;
+    
+    eval {$mb->dispatch('distdir')};
+    is $@, '';
+    chdir( $mb->dist_dir ) or die "Can't chdir to '@{[$mb->dist_dir]}': $!";
+    ok -e 'SIGNATURE', 'Build.PL --sign=1 signs';
+}
 
 # cleanup
 chdir( $cwd ) or die "Can''t chdir to '$cwd': $!";