#!perl -w
use strict;
use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib';
use MBTest;
use_ok 'Module::Build';
ensure_blib('Module::Build');
use File::Spec::Functions qw( catdir );
use Config;
use Cwd ();
my $cwd = Cwd::cwd;
my $tmp = MBTest->tmpdir;
use DistGen;
my $dist = DistGen->new( dir => $tmp );
note("Dist is in $tmp\n");
$dist->add_file("Build.PL", <<'===EOF===');
#!perl -w
use strict;
use Module::Build;
my $subclass = Module::Build->subclass(code => <<'=EOF=');
sub copy_files
{
my $self = shift;
my $dir = shift;
my $files = $self->rscan_dir($dir, sub {-f $_ and not m!/\.|[#~]$!});
foreach my $file (@$files) {
$self->copy_if_modified(from => $file, to_dir => "blib");
}
}
#Copy etc files to blib
sub process_etc_files
{
my $self = shift;
$self->copy_files("etc");
}
#Copy share files to blib
sub process_share_files
{
my $self = shift;
$self->copy_files("share");
}
1;
=EOF=
my $build = $subclass->new(
module_name => 'Simple',
license => 'perl'
);
$build->add_build_element('etc');
$build->add_build_element('share');
my $distdir = lc $build->dist_name();
foreach my $id ('core', 'site', 'vendor') {
#Where to install these build types when using prefix symantics
$build->prefix_relpaths($id, 'share' => "share/$distdir");
$build->prefix_relpaths($id, 'etc' => "etc/$distdir");
#Where to install these build types when using default symantics
my $set = $build->install_sets($id);
$set->{'share'} = '/usr/'.($id eq 'site' ? 'local/':'')."share/$distdir";
$set->{'etc'} = ($id eq 'site' ? '/usr/local/etc/':'/etc/').$distdir;
}
#Where to install these types when using install_base symantics
$build->install_base_relpaths('share' => "share/$distdir");
$build->install_base_relpaths('etc' => "etc/$distdir");
$build->create_build_script();
===EOF===
#Test Build.PL exists ok?
$dist->add_file("etc/config", <<'===EOF===');
[main]
Foo = bar
Jim = bob
[supplemental]
stardate = 1234344
===EOF===
$dist->add_file("share/data", <<'===EOF===');
7 * 9 = 42?
===EOF===
$dist->add_file("share/html/index.html", <<'===EOF===');
<HTML>
<BODY>
<H1>Hello World!</H1>
</BODY>
</HTML>
===EOF===
$dist->regen;
$dist->chdir_in;
my $installdest = catdir($tmp, 't', "install_extra_targets-$$");
diag(stdout_of(sub { local @ARGV = ("--install_base=$installdest"); do "Build.PL"; } ));
diag(stdout_of( sub { local @ARGV = (); do "Build"; } ));
ok(-e "blib/etc/config", "Built etc/config");
ok(-e "blib/share/data", "Built share/data");
ok(-e "blib/share/html/index.html", "Built share/html");
diag(stdout_of( sub { local @ARGV = ('install'); do "Build"; } ));
ok(-e "$installdest/etc/simple/config", "installed etc/config");
ok(-e "$installdest/share/simple/data", "installed share/data");
ok(-e "$installdest/share/simple/html/index.html", "installed share/html");
$dist->remove();
done_testing();
