1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
# t/01_ini.t - check module loading
use strict;
use warnings;
use File::HomeDir;
use File::Spec;
use Test::More tests => 6;
use_ok( 'ExtUtils::ModuleMaker' );
use lib ( qw| ./t/testlib | );
use_ok( 'ExtUtils::ModuleMaker::MockHomeDir' );
my ($realhome, $subdir, $mmkr_dir_ref);
ok( $realhome = File::HomeDir->my_home(),
"\$HOME or home-equivalent directory found on system");
$subdir = '.modulemaker';
$mmkr_dir_ref = ExtUtils::ModuleMaker::_get_subhome_directory_status($subdir);
(-d $mmkr_dir_ref->{abs})
? pass("Directory $mmkr_dir_ref->{abs} found on this system")
: pass("Directory $mmkr_dir_ref->{abs} not found on this system");
my ($home_dir, $personal_defaults_dir);
$home_dir = ExtUtils::ModuleMaker::MockHomeDir::home_dir();
ok(-d $home_dir, "Directory $home_dir created to mock home directory");
$personal_defaults_dir = ExtUtils::ModuleMaker::MockHomeDir::personal_defaults_dir();
ok(-d $personal_defaults_dir, "Able to create directory $personal_defaults_dir for testing");
|
