lib/CPANPLUS/t/07_CPANPLUS-Internals-Extract.t

   1 ### make sure we can find our conf.pl file
   2 BEGIN {
   3     use FindBin;
   4     require "$FindBin::Bin/inc/conf.pl";
   5 }
   6
   7 use strict;
   8
   9 use CPANPLUS::Configure;
  10 use CPANPLUS::Backend;
  11 use CPANPLUS::Internals::Constants;
  12 use Test::More 'no_plan';
  13 use Data::Dumper;
  14
  15 my $conf = gimme_conf();
  16
  17 my $cb = CPANPLUS::Backend->new( $conf );
  18
  19 ### XXX SOURCEFILES FIX
  20 my $mod     = $cb->module_tree( TEST_CONF_MODULE );
  21
  22 isa_ok( $mod,  'CPANPLUS::Module' );
  23
  24 my $where = $mod->fetch;
  25 ok( $where,             "Module fetched" );
  26
  27 my $dir = $cb->_extract( module => $mod );
  28 ok( $dir,               "Module extracted" );
  29 ok( DIR_EXISTS->($dir), "   Dir exists" );
  30
  31 # Local variables:
  32 # c-indentation-style: bsd
  33 # c-basic-offset: 4
  34 # indent-tabs-mode: nil
  35 # End:
  36 # vim: expandtab shiftwidth=4: