| 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 | use Test::More 'no_plan'; |
| 9 | use Cwd; |
| 5bc5f6dc |
10 | use Config; |
| 6aaee015 |
11 | use File::Basename; |
| 12 | |
| 13 | use CPANPLUS::Internals::Constants; |
| 14 | use CPANPLUS::Module::Fake; |
| 15 | use CPANPLUS::Module::Author::Fake; |
| 16 | use CPANPLUS::Configure; |
| 17 | use CPANPLUS::Backend; |
| 18 | |
| 19 | my $conf = gimme_conf(); |
| 20 | |
| 21 | my $cb = CPANPLUS::Backend->new( $conf ); |
| 22 | |
| 23 | my $f_auth = CPANPLUS::Module::Author::Fake->new( _id => $cb->_id ); |
| 24 | ok( $f_auth, "Fake auth object created" ); |
| 25 | ok( IS_AUTHOBJ->( $f_auth ), " IS_AUTHOBJ recognizes it" ); |
| 26 | ok( IS_FAKE_AUTHOBJ->( $f_auth ), " IS_FAKE_AUTHOBJ recognizes it" ); |
| 27 | |
| 28 | my $f_mod = CPANPLUS::Module::Fake->new( |
| 29 | module => TEST_CONF_INST_MODULE , |
| 30 | path => 'some/where', |
| 31 | package => 'Foo-Bar-1.2.tgz', |
| 32 | _id => $cb->_id, |
| 33 | ); |
| 34 | ok( $f_mod, "Fake mod object created" ); |
| 35 | ok( IS_MODOBJ->( $f_mod ), " IS_MODOBJ recognizes it" ); |
| 36 | ok( IS_FAKE_MODOBJ->( $f_mod ), " IS_FAKE_MODOJB recognizes it" ); |
| 37 | |
| 38 | ok( IS_CONFOBJ->( conf => $conf ), "IS_CONFOBJ recognizes conf object" ); |
| 39 | |
| 40 | ok( FILE_EXISTS->( file => basename($0) ), "FILE_EXISTS finds file" ); |
| 41 | ok( FILE_READABLE->( file => basename($0) ), "FILE_READABLE finds file" ); |
| 42 | ok( DIR_EXISTS->( dir => cwd() ), "DIR_EXISTS finds dir" ); |
| 43 | |
| 44 | |
| 45 | { no strict 'refs'; |
| 46 | |
| 47 | my $tmpl = { |
| 48 | MAKEFILE_PL => 'Makefile.PL', |
| 6aaee015 |
49 | BUILD_PL => 'Build.PL', |
| 50 | BLIB => 'blib', |
| 5bc5f6dc |
51 | MAKEFILE => do { |
| 52 | ### On vms, it's a different name. See constants |
| 53 | ### file for details |
| 54 | (ON_VMS and $Config::Config{make} =~ /MM[S|K]/i) |
| 55 | ? 'DESCRIP.MMS' |
| 56 | : 'Makefile' |
| 57 | }, |
| 6aaee015 |
58 | }; |
| 59 | |
| 60 | while ( my($sub,$res) = each %$tmpl ) { |
| 61 | is( &{$sub}->(), $res, "$sub returns proper result without args" ); |
| 62 | |
| 63 | my $long = File::Spec->catfile( cwd(), $res ); |
| 64 | is( &{$sub}->( cwd() ), $long, "$sub returns proper result with args" ); |
| 65 | } |
| 66 | } |
| 67 | |
| 68 | # Local variables: |
| 69 | # c-indentation-style: bsd |
| 70 | # c-basic-offset: 4 |
| 71 | # indent-tabs-mode: nil |
| 72 | # End: |
| 73 | # vim: expandtab shiftwidth=4: |
projects / p5sagit/p5-mst-13.2.git / blame