[p5sagit/p5-mst-13.2.git] / lib / CPANPLUS / t / 07_CPANPLUS-Internals-Extract.t

### make sure we can find our conf.pl file
BEGIN { 
    use FindBin; 
    require "$FindBin::Bin/inc/conf.pl";
}

use strict;

use CPANPLUS::Configure;
use CPANPLUS::Backend;
use CPANPLUS::Internals::Constants;
use Test::More 'no_plan';
use Data::Dumper;

my $conf = gimme_conf();

my $cb = CPANPLUS::Backend->new( $conf );

### XXX SOURCEFILES FIX
my $mod     = $cb->module_tree( TEST_CONF_MODULE );

isa_ok( $mod,  'CPANPLUS::Module' );

my $where = $mod->fetch;
ok( $where,             "Module fetched" );

my $dir = $cb->_extract( module => $mod );
ok( $dir,               "Module extracted" );
ok( DIR_EXISTS->($dir), "   Dir exists" );

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4:
Commit	Line	Data
6aaee015	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: