CPAN-Static
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
#! perl
use strict;
use warnings;
use Config;
use File::Spec::Functions 0 qw/catdir catfile/;
use Test::More 0.88;
use lib 't/lib';
use DistGen qw/undent/;
use XSLoader;
use CPAN::Static::Install ':all';
local $ENV{PERL_INSTALL_QUIET};
local $ENV{PERL_MB_OPT};
#--------------------------------------------------------------------------#
# fixtures
#--------------------------------------------------------------------------#
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->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]; <> } }
sub capture(&) {
my $callback = shift;
my $output;
open my $fh, '>', \$output;
my $old = select $fh;
eval { $callback->() };
select $old;
die $@ if $@;
return $output;
}
#--------------------------------------------------------------------------#
# configure
#--------------------------------------------------------------------------#
{
is(eval { configure(install_base => 'install'); 1 }, 1, 'Ran configure successfully') or diag $@;
ok( -f '_static_build_params', "_static_build_params created" );
}
#--------------------------------------------------------------------------#
# build
#--------------------------------------------------------------------------#
{
my $output = capture {
ok eval { build(); 1 }, 'Ran build successfully';
};
like( $output, qr{lib/Foo/Bar\.pm}, 'Build output looks correctly');
ok( -d 'blib', "created blib" );
ok( -d 'blib/lib', "created blib/lib" );
ok( -d 'blib/script', "created blib/script" );
# check pm
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" );
# check bin
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" );
}
require blib;
blib->import;
if (eval { require File::ShareDir }) {
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.405 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )