[Module-build-checkins] CPANPLUS-Dist-Build/t 02_CPANPLUS-Dist-Build.t,1.3,1.4

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/CPANPLUS-Dist-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25021/t

Modified Files:
	02_CPANPLUS-Dist-Build.t 
Log Message:
Get the uninstallation tests working with a zillion workarounds

Index: 02_CPANPLUS-Dist-Build.t
===================================================================
RCS file: /cvsroot/module-build/CPANPLUS-Dist-Build/t/02_CPANPLUS-Dist-Build.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- 02_CPANPLUS-Dist-Build.t	5 Aug 2005 03:34:48 -0000	1.3
+++ 02_CPANPLUS-Dist-Build.t	8 Aug 2005 00:41:01 -0000	1.4
@@ -10,16 +10,6 @@
 }
 
 use strict;
-
-# In order to get the uninstall stuff to work, we have to push this
-# dir onto @INC before loading CPANPLUS.
-my $Lib;
-BEGIN {
-  $Lib = File::Spec->rel2abs(File::Spec->catdir( qw[dummy-perl] ));
-  my $liblib = File::Spec->catdir($Lib, 'lib', 'perl5');
-  push @INC, $liblib;
-}
-
 use CPANPLUS::Configure;
 use CPANPLUS::Backend;
 use CPANPLUS::Internals::Constants;
@@ -33,11 +23,17 @@
 use Config;
 use IPC::Cmd        'can_run';
 
+# Load these two modules in advance, even though they would be
+# auto-loaded, because we want to override some of their subs.
+use ExtUtils::Packlist;
+use ExtUtils::Installed;
+
 my $Class   = 'CPANPLUS::Dist::Build';
 my $Utils   = 'CPANPLUS::Internals::Utils';
 my $Have_CC =  can_run($Config{'cc'} )? 1 : 0;
 
 
+my $Lib     = File::Spec->rel2abs(File::Spec->catdir( qw[dummy-perl] ));
 my $Src     = File::Spec->rel2abs(File::Spec->catdir( qw[src] ));
 
 
@@ -149,6 +145,21 @@
             my $minversion = 0.2609;
             skip(qq[Uninstalling requires at least Module::Build $minversion], 1)
               unless eval { Module::Build->VERSION($minversion); 1 };
+
+            # The installation directory actually needs to be in @INC
+            # in order to test uninstallation
+            'lib'->import( File::Spec->catdir($Lib, 'lib', 'perl5') );
+
+            my $packlist = find_module($mod->name . '::.packlist');
+            ok $packlist, "Found packlist";
+            
+            my $p = ExtUtils::Packlist->new($packlist);
+            ok keys(%$p) > 0, "Packlist contains entries";
+            
+            local $^W = 0; # Avoid 'redefined' warnings
+            local *CPANPLUS::Module::installed_version = sub {1};
+            local *CPANPLUS::Module::packlist = sub { [$p] };
+            local *ExtUtils::Installed::files = sub { keys %$p };
             
             ok( $mod->uninstall,"Uninstalling module" );
         }
@@ -158,6 +169,26 @@
     $Utils->_rmdir( dir => $Conf->get_conf('base') );
 }
 
+sub find_module {
+  my $module = shift;
+
+  # Don't add the .pm yet, in case it's a packlist or something like ExtUtils::xsubpp.
+  my $file = File::Spec->catfile( split m/::/, $module );
+  my $candidate;
+  foreach (@INC) {
+    if (-e ($candidate = File::Spec->catdir($_, $file))
+        or
+        -e ($candidate = File::Spec->catdir($_, "$file.pm"))
+        or
+        -e ($candidate = File::Spec->catdir($_, 'auto', $file))
+        or
+        -e ($candidate = File::Spec->catdir($_, 'auto', "$file.pm"))) {
+      return $candidate;
+    }
+  }
+  return;
+}
+
 # Local variables:
 # c-indentation-style: bsd
 # c-basic-offset: 4