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: |