1 ### make sure we can find our conf.pl file
4 require "$FindBin::Bin/inc/conf.pl";
8 use Test::More 'no_plan';
12 use CPANPLUS::Internals::Constants;
13 use CPANPLUS::Module::Fake;
14 use CPANPLUS::Module::Author::Fake;
15 use CPANPLUS::Configure;
16 use CPANPLUS::Backend;
18 my $conf = gimme_conf();
20 my $cb = CPANPLUS::Backend->new( $conf );
22 my $f_auth = CPANPLUS::Module::Author::Fake->new( _id => $cb->_id );
23 ok( $f_auth, "Fake auth object created" );
24 ok( IS_AUTHOBJ->( $f_auth ), " IS_AUTHOBJ recognizes it" );
25 ok( IS_FAKE_AUTHOBJ->( $f_auth ), " IS_FAKE_AUTHOBJ recognizes it" );
27 my $f_mod = CPANPLUS::Module::Fake->new(
28 module => TEST_CONF_INST_MODULE ,
30 package => 'Foo-Bar-1.2.tgz',
33 ok( $f_mod, "Fake mod object created" );
34 ok( IS_MODOBJ->( $f_mod ), " IS_MODOBJ recognizes it" );
35 ok( IS_FAKE_MODOBJ->( $f_mod ), " IS_FAKE_MODOJB recognizes it" );
37 ok( IS_CONFOBJ->( conf => $conf ), "IS_CONFOBJ recognizes conf object" );
39 ok( FILE_EXISTS->( file => basename($0) ), "FILE_EXISTS finds file" );
40 ok( FILE_READABLE->( file => basename($0) ), "FILE_READABLE finds file" );
41 ok( DIR_EXISTS->( dir => cwd() ), "DIR_EXISTS finds dir" );
47 MAKEFILE_PL => 'Makefile.PL',
48 MAKEFILE => 'Makefile',
49 BUILD_PL => 'Build.PL',
53 while ( my($sub,$res) = each %$tmpl ) {
54 is( &{$sub}->(), $res, "$sub returns proper result without args" );
56 my $long = File::Spec->catfile( cwd(), $res );
57 is( &{$sub}->( cwd() ), $long, "$sub returns proper result with args" );
62 # c-indentation-style: bsd
64 # indent-tabs-mode: nil
66 # vim: expandtab shiftwidth=4: