The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# t/01_ini.t - check module loading
use strict;
local $^W = 1;
use Test::More 
tests =>  5;
# qw(no_plan);
use_ok( 'ExtUtils::ModuleMaker' );
use_ok( 'File::Save::Home', qw|
    get_home_directory
    get_subhome_directory_status
    make_subhome_directory
    restore_subhome_directory_status
| );

my ($realhome);

ok( $realhome = get_home_directory(), 
    "HOME or home-equivalent directory found on system");

my $mmkr_dir_ref = get_subhome_directory_status(".modulemaker");
my $mmkr_dir = make_subhome_directory($mmkr_dir_ref);
ok( $mmkr_dir, "personal defaults directory found on system");

END {
    ok( restore_subhome_directory_status($mmkr_dir_ref),
        "original presence/absence of .modulemaker directory restored");
}