Update CPANPLUS to 0.85_06

[p5sagit/p5-mst-13.2.git] / lib / CPANPLUS / t / 21_CPANPLUS-Dist-No-Build.t

diff --git a/lib/CPANPLUS/t/21_CPANPLUS-Dist-No-Build.t b/lib/CPANPLUS/t/21_CPANPLUS-Dist-No-Build.t
index c818338..6ac77f6 100644 (file)
--- a/lib/CPANPLUS/t/21_CPANPLUS-Dist-No-Build.t
+++ b/lib/CPANPLUS/t/21_CPANPLUS-Dist-No-Build.t
@@ -6,49 +6,112 @@ BEGIN {
 
 use strict;
 use Test::More 'no_plan';
+use Module::Loaded;
+use Object::Accessor;
 
 use CPANPLUS::Dist;
 use CPANPLUS::Backend;
-use CPANPLUS::Module::Fake;
-use CPANPLUS::Module::Author::Fake;
+use CPANPLUS::Error;
 use CPANPLUS::Internals::Constants;
 
 my $Conf    = gimme_conf();
 my $CB      = CPANPLUS::Backend->new( $Conf );
+my $Inst    = INSTALLER_BUILD;
 
 ### set the config so that we will ignore the build installer,
 ### but prefer it anyway
-{   CPANPLUS::Dist->_ignore_dist_types( INSTALLER_BUILD );
+{   Module::Loaded::mark_as_loaded( $Inst );
+    CPANPLUS::Dist->_ignore_dist_types( $Inst );
     $Conf->set_conf( prefer_makefile => 0 );
 }
 
 my $Mod = $CB->module_tree( 'Foo::Bar::MB::NOXS' );
 
-ok( $Mod,                   "Module object retrieved" );        
-ok( not grep { $_ eq INSTALLER_BUILD } CPANPLUS::Dist->dist_types,
-                            "   Build installer not returned" );
+ok( $Mod,                       "Module object retrieved" );        
+ok( not grep { $_ eq $Inst } CPANPLUS::Dist->dist_types,
+                                "   $Inst installer not returned" );
             
 ### fetch the file first            
 {   my $where = $Mod->fetch;
-    ok( -e $where,          "   Tarball '$where' exists" );
+    ok( -e $where,              "   Tarball '$where' exists" );
 }
     
 ### extract it, silence warnings/messages    
 {   my $where = $Mod->extract;
-    ok( -e $where,          "   Tarball extracted to '$where'" );
+    ok( -e $where,              "   Tarball extracted to '$where'" );
 }
 
 ### check the installer type 
-{   is( $Mod->status->installer_type, INSTALLER_MM, 
-                            "Proper installer type found" );
+{   is( $Mod->status->installer_type, $Inst, 
+                                "Proper installer type found: $Inst" );
+
+    my $href = $Mod->status->configure_requires;
+    ok( scalar(keys(%$href)),   "   Dependencies recorded" );
+    
+    ok( defined $href->{$Inst}, "       Dependency on $Inst" );
 
     my $err = CPANPLUS::Error->stack_as_string;
-    like( $err, '/'.INSTALLER_MM.'/',
-                            "   Error mentions " . INSTALLER_MM );
-    like( $err, '/'.INSTALLER_BUILD.'/',
-                            "   Error mentions " . INSTALLER_BUILD );
-    like( $err, qr/but might not be able to install/,
-                            "   Error mentions install warning" );
+    like( $err, qr/$Inst/,      "   Message mentions $Inst" );
+    like( $err, qr/prerequisites list/,
+                                "   Message mentions adding prerequisites" );                            
+}
+
+### now run the test, it should trigger the installation of the installer
+### XXX whitebox test
+{   no warnings 'redefine';
+
+    ### bootstrapping creates a call to $cb->module_tree('c::d::build')->install
+    ### we need to intercept that call
+    my $org_mt = CPANPLUS::Backend->can('module_tree');
+    local *CPANPLUS::Backend::module_tree = sub { 
+        my $self = shift;
+        my $mod  = shift;
+        
+        ### return a dummy object if this is the bootstrap call
+        return CPANPLUS::Test::Module->new if $mod eq $Inst;
+        
+        ### otherwise do a regular call
+        return $org_mt->( $self, $mod, @_ );
+    };
+    
+    ### bootstrap install call will abort the ->create() call, so catch
+    ### that here
+    eval { $Mod->create( skiptest => 1) };
+    
+    ok( $@,                     "Create call aborted at bootstrap phase" );
+    like( $@, qr/$Inst/,        "   Diagnostics confirmed" );
+    
+    my $diag = CPANPLUS::Error->stack_as_string;
+    like( $diag, qr/This module requires.*$Inst/,
+                                "   Dependency on $Inst recorded" );
+    like( $diag, qr/Bootstrapping installer.*$Inst/,
+                                "       Bootstrap notice recorded" );
+    like( $diag, qr/Installer '$Inst' succesfully bootstrapped/,
+                                "       Successful bootstrap recorded" );
 }
 
 END { 1 while unlink output_file()  }
+
+### place holder package to serve as a module object for C::D::Build
+{   package CPANPLUS::Test::Module;
+    sub new     { return bless {} }
+    sub install { 
+        ### at load time we ignored C::D::Build. Reset the ignore here
+        ### so a 'rescan' after the 'install' picks up C::D::Build
+        CPANPLUS::Dist->_reset_dist_ignore;
+        return 1; 
+    }
+}
+
+### test package for cpanplus::dist::build
+{   package CPANPLUS::Dist::Build;
+    use base 'CPANPLUS::Dist::Base';
+    
+    ### shortcut out of the installation procedure
+    sub new                 { die __PACKAGE__ };
+    sub format_available    { 1 }
+    sub init                { 1 }
+    sub prepare             { 1 }
+    sub create              { 1 }
+    sub install             { 1 }
+}