#! perl
local $ENV{PERL_INSTALL_QUIET};
local $ENV{PERL_MB_OPT};
my $dist = DistGen->new(name => 'Foo::Bar');
$dist->chdir_in;
$dist->add_file('share/file.txt', 'FooBarBaz');
$dist->add_file('module-share/Foo-Bar/file.txt', 'BazBarFoo');
$dist->add_file('script/simple', undent(<<' ---'));
#!perl
use Foo::Bar;
print Foo::Bar->VERSION . "\n";
---
$dist->add_file('planner/scripts.pl', undent(<<' ---'));
load_extension("Dist::Build::Core");
script_dir('script');
---
$dist->add_file('planner/shared.pl', undent(<<' ---'));
load_extension("Dist::Build::ShareDir");
dist_sharedir('share', 'Foo-Bar');
module_sharedir('module-share/Foo-Bar', 'Foo::Bar');
---
$dist->add_file('planner/dynamic.pl', undent(<<' ---'));
load_extension("Dist::Build::DynamicPrereqs");
evaluate_dynamic_prereqs();
---
my $has_compiler = can_compile_loadable_object(quiet => 1);
if ($has_compiler) {
$dist->add_file('lib/Foo/Bar.xs', undent(<<' ---'));
MODULE = Foo::Bar PACKAGE = Foo::Bar
const char*
foo()
CODE:
RETVAL = foo();
OUTPUT:
RETVAL
---
$dist->add_file('include/foo.h', undent(<<' ---'));
char* foo();
---
$dist->add_file('inc/auto/share/module/TestLib/include/bar.h', undent(<<' ---'));
---
$dist->add_file('inc/auto/share/module/TestLib/compile.json', undent(<<' ---'));
{ "defines": { "FOO": "ABC" } }
---
$dist->add_file('src/foo.c', undent(<<' ---'));
char* foo() {
return "Hello World!\n";
}
---
$dist->add_file('planner/xs.pl', undent(<<' ---'));
load_extension("Dist::Build::XS");
load_extension("Dist::Build::XS::Export");
load_extension("Dist::Build::XS::Import");
export_headers(dir => 'include');
export_flags(extra_compiler_flags => [ '-Wall' ]);
add_xs(
include_dirs => [ 'include' ],
extra_sources => [ glob 'src/*.c' ],
import => [ 'TestLib' ],
);
---
}
$dist->regen;
my $interpreter = ($Config{startperl} eq $^X )
? qr/#!\Q$^X\E/
: qr/(?:#!\Q$^X\E|\Q$Config{startperl}\E)/;
my ($guts, $ec);
sub _mod2pm { (my $mod = shift) =~ s{::}{/}g; return "$mod.pm" }
sub _path2mod { (my $pm = shift) =~ s{/}{::}g; return substr $pm, 5, -3 }
sub _mod2dist { (my $mod = shift) =~ s{::}{-}g; return $mod; }
sub _slurp { do { local (@ARGV,$/)=$_[0]; <> } }
{
ok(my $pid = open2(my ($in, $out), $^X, 'Build.PL', '--install_base', 'install'), 'Running Build.PL') or BAIL_OUT("Couldn't run Build.PL");
my $output = do { local $/; <$in> };
is(waitpid($pid, 0), $pid, 'Ran Build.PL successfully');
is($?, 0, 'Build returned 0') or BAIL_OUT("");
like($output, qr/Creating new 'Build' script for 'Foo-Bar' version '0.001'/, 'Output as expected');
ok( -f 'Build', "Build created" );
if ($^O eq 'MSWin32') {
ok( -f 'Build.bat', 'Build is executable');
}
else {
ok( -x 'Build', "Build is executable" );
}
open my $fh, "<", "Build";
my $line = <$fh>;
like( $line, qr{\A$interpreter}, "Build has shebang line with \$^X" );
ok( -f '_build/params', "_build/params created" );
ok( -f '_build/graph', "_build/graph created" );
}
{
ok( my $pid = open2(my($in, $out), $^X, 'Build'), 'Can run Build' );
my $output = do { local $/; <$in> };
is( waitpid($pid, 0), $pid, 'Could run Build');
is($?, 0, 'Build returned 0');
my $filename = catfile(qw/lib Foo Bar.pm/);
like($output, qr{\Q$filename}, 'Build output looks correctly');
ok( -d 'blib', "created blib" );
ok( -d 'blib/lib', "created blib/lib" );
ok( -d 'blib/script', "created blib/script" );
my $pmfile = _mod2pm($dist->name);
ok( -f 'blib/lib/' . $pmfile, "$dist->{name} copied to blib" );
is( _slurp("lib/$pmfile"), _slurp("blib/lib/$pmfile"), "pm contents are correct" );
is((stat "blib/lib/$pmfile")[2] & 0222, 0, "pm file in blib is readonly" );
ok( -f 'blib/script/simple', "bin/simple copied to blib" );
like( _slurp("blib/script/simple"), '/' .quotemeta(_slurp("blib/script/simple")) . "/", "blib/script/simple contents are correct" );
if ($^O eq 'MSWin32') {
ok( -f "blib/script/simple.bat", "blib/script/simple is executable");
}
else {
ok( -x "blib/script/simple", "blib/script/simple is executable" );
}
is((stat "blib/script/simple")[2] & 0222, 0, "script in blib is readonly" );
if ($^O ne 'MSWin32') {
open my $fh, "<", "blib/script/simple";
my $line = <$fh>;
like( $line, qr{\A$interpreter}, "blib/script/simple has shebang line with \$^X" );
}
blib->import;
ok( -d dist_dir('Foo-Bar'), 'sharedir has been made');
ok( -f dist_file('Foo-Bar', 'file.txt'), 'sharedir file has been made');
ok( -d module_dir('Foo::Bar'), 'sharedir has been made');
ok( -f module_file('Foo::Bar', 'file.txt'), 'sharedir file has been made');
ok( -d catdir(qw/blib lib auto share dist Foo-Bar/), 'dist sharedir has been made');
ok( -f catfile(qw/blib lib auto share dist Foo-Bar file.txt/), 'dist sharedir file has been made');
ok( -d catdir(qw/blib lib auto share module Foo-Bar/), 'moduole sharedir has been made');
ok( -f catfile(qw/blib lib auto share module Foo-Bar file.txt/), 'module sharedir file has been made');
if ($has_compiler) {
XSLoader::load('Foo::Bar');
is(Foo::Bar::foo(), "Hello World!\n", 'Can run XSub Foo::Bar::foo');
if (defined &DynaLoader::dl_unload_file) {
my $module = pop @DynaLoader::dl_modules;
warn "Confused" if $module ne 'Foo::Bar';
my $libref = pop @DynaLoader::dl_librefs;
DynaLoader::dl_unload_file($libref);
}
ok( -f module_file('Foo::Bar', 'include/foo.h'), 'header file has been exported');
ok( -f module_file('Foo::Bar', 'compile.json'), 'compilation flag file has been exported');
}
my $meta = CPAN::Meta->load_file("MYMETA.json");
my $req = $meta->effective_prereqs->requirements_for('runtime', 'requires');
my $dynamic_dependency = join ',', sort $req->required_modules;
is($dynamic_dependency, 'Bar,perl', 'Dependency on Foo has been inserted');
SKIP: {
skip 'No manification supported', 1 if not ExtUtils::InstallPaths->new->is_default_installable('libdoc');
my $file = "blib/libdoc/" . ExtUtils::Helpers::man3_pagename($pmfile, '.');
ok( -e $file, 'Module gets manified properly');
}
}
{
ok( open2(my($in, $out), $^X, Build => 'install'), 'Could run Build install' );
my $output = do { local $/; <$in> };
my $filename = catfile(qw/install lib perl5/, ($has_compiler? $Config{archname} : () ), qw/Foo Bar.pm/);
like($output, qr/Installing \Q$filename/, 'Build install output looks correctly');
ok( -f $filename, 'Module is installed');
ok( -f 'install/bin/simple', 'Script is installed');
}
{
ok( open2(my($in, $out), $^X, Build => 'clean'), 'Could run Build clean' );
my $output = do { local $/; <$in> };
like($output, qr{lib[\\/]Foo[\\/]Bar.c}, 'clean also cleans source file');
}
done_testing;