Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
actions	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
bundled	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
compat	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
lib	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
properties	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
00-compile.t	357 B	-r--r--r--	2014-12-27 11:49
PL_files.t	2.18 KB	-r--r--r--	2014-12-27 11:49
README.pod	2.94 KB	-r--r--r--	2014-12-27 11:49
add_property.t	3.1 KB	-r--r--r--	2014-12-27 11:49
add_property_array.t	349 B	-r--r--r--	2014-12-27 11:49
add_property_hash.t	351 B	-r--r--r--	2014-12-27 11:49
basic.t	6.48 KB	-r--r--r--	2014-12-27 11:49
bundle_inc.t	6.02 KB	-r--r--r--	2014-12-27 11:49
compat.t	15.42 KB	-r--r--r--	2014-12-27 11:49
debug.t	555 B	-r--r--r--	2014-12-27 11:49
destinations.t	9.52 KB	-r--r--r--	2014-12-27 11:49
ext.t	5.91 KB	-r--r--r--	2014-12-27 11:49
extend.t	6.7 KB	-r--r--r--	2014-12-27 11:49
files.t	905 B	-r--r--r--	2014-12-27 11:49
help.t	5.2 KB	-r--r--r--	2014-12-27 11:49
install.t	6.03 KB	-r--r--r--	2014-12-27 11:49
install_extra_target.t	2.94 KB	-r--r--r--	2014-12-27 11:49
manifypods.t	3.53 KB	-r--r--r--	2014-12-27 11:49
manifypods_with_utf8.t	1.61 KB	-r--r--r--	2014-12-27 11:49
metadata.t	3.13 KB	-r--r--r--	2014-12-27 11:49
metadata2.t	2.93 KB	-r--r--r--	2014-12-27 11:49
mymeta.t	5.23 KB	-r--r--r--	2014-12-27 11:49
new_from_context.t	429 B	-r--r--r--	2014-12-27 11:49
notes.t	1.26 KB	-r--r--r--	2014-12-27 11:49
parents.t	1.34 KB	-r--r--r--	2014-12-27 11:49
perl_mb_opt.t	1.63 KB	-r--r--r--	2014-12-27 11:49
pod_parser.t	2.77 KB	-r--r--r--	2014-12-27 11:49
ppm.t	5.43 KB	-r--r--r--	2014-12-27 11:49
resume.t	989 B	-r--r--r--	2014-12-27 11:49
runthrough.t	4.88 KB	-r--r--r--	2014-12-27 11:49
sample.t	589 B	-r--r--r--	2014-12-27 11:49
script_dist.t	1.78 KB	-r--r--r--	2014-12-27 11:49
test_file_exts.t	959 B	-r--r--r--	2014-12-27 11:49
test_reqs.t	1.04 KB	-r--r--r--	2014-12-27 11:49
test_type.t	1.41 KB	-r--r--r--	2014-12-27 11:49
test_types.t	4.24 KB	-r--r--r--	2014-12-27 11:49
tilde.t	2.89 KB	-r--r--r--	2014-12-27 11:49
unit_run_test_harness.t	2.34 KB	-r--r--r--	2014-12-27 11:49
use_tap_harness.t	2.42 KB	-r--r--r--	2014-12-27 11:49
versions.t	502 B	-r--r--r--	2014-12-27 11:49
write_default_maniskip.t	932 B	-r--r--r--	2014-12-27 11:49
xs.t	4.38 KB	-r--r--r--	2014-12-27 11:49

Rename

# sample.t -- a sample test file for Module::Build

use strict;
use lib 't/lib';
use MBTest; # or 'no_plan'
use DistGen;
use Config;
use File::Spec;
use ExtUtils::Packlist;
use ExtUtils::Installed;
use File::Path;

# Ensure any Module::Build modules are loaded from correct directory
blib_load('Module::Build');
blib_load('Module::Build::ConfigData');

if ( $ENV{PERL_CORE} ) {
  plan skip_all => 'bundle_inc tests will never succeed in PERL_CORE';
}
elsif ( ! $ENV{MB_TEST_EXPERIMENTAL} ) {
  plan skip_all => '$ENV{MB_TEST_EXPERIMENTAL} is not set';
}
elsif ( ! MBTest::check_EUI() ) {
  plan skip_all => 'ExtUtils::Installed takes too long on your system';
}
elsif ( Module::Build::ConfigData->feature('inc_bundling_support') ) {
  plan tests => 19;
} else {
  plan skip_all => 'inc_bundling_support feature is not enabled';
}

# need to do a temp install of M::B being tested to ensure a packlist
# is available for bundling

my $current_mb = Module::Build->resume();
my $temp_install = MBTest->tmpdir();
my $arch = $Config{archname};
my $lib_path = File::Spec->catdir($temp_install,qw/lib perl5/);
my $arch_path = File::Spec->catdir( $lib_path, $arch );
mkpath ( $arch_path );
ok( -d $arch_path, "created temporary M::B pseudo-install directory");

unshift @INC, $lib_path, $arch_path;
local $ENV{PERL5LIB} = join( $Config{path_sep},
  $lib_path, ($ENV{PERL5LIB} ? $ENV{PERL5LIB} : () )
);

# must uninst=0 so we don't try to remove an installed M::B!
stdout_of( sub { $current_mb->dispatch(
      'install', install_base => $temp_install, uninst => 0
    )
  }
);

# create dist object in a temp directory
# enter the directory and generate the skeleton files
my $dist = DistGen->new( inc => 1 )->chdir_in->regen;

# get a Module::Build object and test with it
my $mb = $dist->new_from_context(); # quiet by default
isa_ok( $mb, "Module::Build" );
is( $mb->dist_name, "Simple", "dist_name is 'Simple'" );
is_deeply( $mb->bundle_inc, [ 'Module::Build' ],
  "Module::Build is flagged for bundling"
);

# bundle stuff into distdir
stdout_stderr_of( sub { $mb->dispatch('distdir') } );

my $dist_inc = File::Spec->catdir($mb->dist_dir, 'inc');
ok( -e File::Spec->catfile( $dist_inc, 'latest.pm' ),
  "dist_dir/inc/latest.pm created"
);

ok( -d File::Spec->catdir( $dist_inc, 'inc_Module-Build' ),
  "dist_dir/inc/inc_Module_Build created"
);

my $mb_file =
  File::Spec->catfile( $dist_inc, qw/inc_Module-Build Module Build.pm/ );

ok( -e $mb_file,
  "dist_dir/inc/inc_Module_Build/Module/Build.pm created"
);

ok( -e File::Spec->catfile( $dist_inc, qw/inc_Module-Build Module Build Base.pm/ ),
  "dist_dir/inc/inc_Module_Build/Module/Build/Base.pm created"
);

# Force bundled M::B to a higher version so it gets loaded
# This has failed on Win32 for no known reason, so we'll skip if
# we can't edit the file.

eval {
  chmod 0666, $mb_file;
  open(my $fh, '<', $mb_file) or die "Could not read $mb_file: $!";
  my $mb_code = do { local $/; <$fh> };
  $mb_code =~ s{\$VERSION\s+=\s+\S+}{\$VERSION = 9999;};
  close $fh;
  open($fh, '>', $mb_file) or die "Could not write $mb_file: $!";
  print {$fh} $mb_code;
  close $fh;
};

my $err = $@;
diag $@ if $@;
SKIP: {
  skip "Couldn't adjust \$VERSION in bundled M::B for testing", 10
    if $err;

# test the bundling in dist_dir
  chdir $mb->dist_dir;

stdout_of( sub { Module::Build->run_perl_script('Build.PL',[],[]) } );
  ok( -e 'MYMETA.yml', 'MYMETA was created' );

open(my $meta, '<', 'MYMETA.yml');
  ok( $meta, "opened MYMETA.yml" );
  ok( scalar( grep { /generated_by:.*9999/ } <$meta> ),
    "dist_dir Build.PL loaded bundled Module::Build"
  );
  close $meta;

#--------------------------------------------------------------------------#
  # test identification of dependencies
  #--------------------------------------------------------------------------#

$dist->chdir_in;

$dist->add_file( 'mylib/Foo.pm', << 'HERE' );
package Foo;
our $VERSION = 1;
1;
HERE

$dist->add_file( 'mylib/Bar.pm', << 'HERE' );
package Bar;
use Foo;
our $VERSION = 42;
1;
HERE

$dist->change_file( 'Build.PL', << "HERE" );
use inc::latest 'Module::Build';
use inc::latest 'Foo';

Module::Build->new(
  module_name => '$dist->{name}',
  license => 'perl',
)->create_build_script;
HERE

$dist->regen( clean => 1 );

make_packlist($_,'mylib') for qw/Foo Bar/;

# get a Module::Build object and test with it
  my $abs_mylib = File::Spec->rel2abs('mylib');

unshift @INC, $abs_mylib;
  $mb = $dist->new_from_context(); # quiet by default
  isa_ok( $mb, "Module::Build" );
  is_deeply( [sort @{$mb->bundle_inc}], [ 'Foo', 'Module::Build' ],
    "Module::Build and Foo are flagged for bundling"
  );

my $output = stdout_stderr_of( sub { $mb->dispatch('distdir') } );

ok( -e File::Spec->catfile( $dist_inc, 'latest.pm' ),
    "./inc/latest.pm created"
  );

ok( -d File::Spec->catdir( $dist_inc, 'inc_Foo' ),
    "dist_dir/inc/inc_Foo created"
  );

$dist->change_file( 'Build.PL', << "HERE" );
use inc::latest 'Module::Build';
use inc::latest 'Bar';

Module::Build->new(
  module_name => '$dist->{name}',
  license => 'perl',
)->create_build_script;
HERE

$dist->regen( clean => 1 );
  make_packlist($_,'mylib') for qw/Foo Bar/;

$mb = $dist->new_from_context(); # quiet by default
  isa_ok( $mb, "Module::Build" );
  is_deeply( [sort @{$mb->bundle_inc}], [ 'Bar', 'Module::Build' ],
    "Module::Build and Bar are flagged for bundling"
  );

$output = stdout_stderr_of( sub { $mb->dispatch('distdir') } );

ok( -e File::Spec->catfile( $dist_inc, 'latest.pm' ),
    "./inc/latest.pm created"
  );

ok( -d File::Spec->catdir( $dist_inc, 'inc_Bar' ),
    "dist_dir/inc/inc_Bar created"
  );
}

sub make_packlist {
  my ($mod, $lib) = @_;
  my $arch = $Config{archname};
  (my $mod_path = $mod) =~ s{::}{/}g;
  my $mod_file = File::Spec->catfile( $lib, "$mod_path\.pm" );
  my $abs = File::Spec->rel2abs($mod_file);
  my $packlist_path = File::Spec->catdir($lib, $arch, 'auto', $mod_path);
  mkpath $packlist_path;
  my $packlist = ExtUtils::Packlist->new;
  $packlist->{$abs}++;
  $packlist->write( File::Spec->catfile( $packlist_path, '.packlist' ));
}

# vim:ts=2:sw=2:et:sta:sts=2