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

#!/usr/bin/perl -w

use strict;
use lib 't/lib';
use MBTest;
use CPAN::Meta 2.110420;
use CPAN::Meta::YAML;
use Parse::CPAN::Meta 1.4401;
plan tests => 39;

blib_load('Module::Build');

my $tmp = MBTest->tmpdir;

use DistGen;
my $dist = DistGen->new( dir => $tmp );
$dist->change_file('Build.PL', <<"---");
use strict;
use Module::Build;

my \$builder = Module::Build->new(
  module_name         => '$dist->{name}',
  license             => 'perl',
  requires            => {
    'File::Spec' => ( \$ENV{BUMP_PREREQ} ? 0.86 : 0 ),
  },
  configure_requires  => {
    'Module::Build' => '0.42',
  }
);

\$builder->create_build_script();
---
$dist->regen;
$dist->chdir_in;

#########################

# Test MYMETA generation
{
  ok( ! -e "META.yml", "META.yml doesn't exist before Build.PL runs" );
  ok( ! -e "MYMETA.yml", "MYMETA.yml doesn't exist before Build.PL runs" );
  ok( ! -e "META.json", "META.json doesn't exist before Build.PL runs" );
  ok( ! -e "MYMETA.json", "MYMETA.json doesn't exist before Build.PL runs" );
  my $output;
  $output = stdout_of sub { $dist->run_build_pl };
  like($output, qr/Created MYMETA\.yml and MYMETA\.json/,
    "Ran Build.PL and saw MYMETA.yml creation message"
  );
  ok( -e "MYMETA.yml", "MYMETA.yml exists" );
  ok( -e "MYMETA.json", "MYMETA.json exists" );
}

#########################

# Test interactions between META/MYMETA
{
  my $output = stdout_stderr_of sub { $dist->run_build('distmeta') };
  like($output, qr/Created META\.yml and META\.json/,
    "Ran Build distmeta to create META.yml");
  # regenerate MYMETA to pick up from META instead of creating from scratch
  $output = stdout_of sub { $dist->run_build_pl };
  like($output, qr/Created MYMETA\.yml and MYMETA\.json/,
    "Re-ran Build.PL and regenerated MYMETA.yml based on META.yml"
  );

for my $suffix ( qw/.yml .json/ ) {
    my $meta = Parse::CPAN::Meta->load_file("META$suffix");
    my $mymeta = Parse::CPAN::Meta->load_file("MYMETA$suffix");
    is( delete $meta->{dynamic_config}, 1,
      "META$suffix 'dynamic_config' is 1"
    );
    is( delete $mymeta->{dynamic_config}, 0,
      "MYMETA$suffix 'dynamic_config' is 0"
    );
    is_deeply( $mymeta, $meta, "Other generated MYMETA$suffix matches generated META$suffix" )
      or do {
        require Data::Dumper;
        diag "MYMETA:\n" . Data::Dumper::Dumper($mymeta)
          .  "META:\n" . Data::Dumper::Dumper($meta);
      };
  }

$output = stdout_stderr_of sub { $dist->run_build('realclean') };
  like( $output, qr/Cleaning up/, "Ran realclean");
  ok( ! -e 'Build', "Build file removed" );
  ok( ! -e 'MYMETA.yml', "MYMETA.yml file removed" );
  ok( ! -e 'MYMETA.json', "MYMETA.json file removed" );

# test that dynamic prereq is picked up
  my $meta = Parse::CPAN::Meta->load_file("META.yml");
  my $meta2 = Parse::CPAN::Meta->load_file("META.json");
  local $ENV{BUMP_PREREQ} = 1;
  $output = stdout_of sub { $dist->run_build_pl };
  like($output, qr/Created MYMETA\.yml and MYMETA\.json/,
    "Ran Build.PL with dynamic config"
  );
  ok( -e "MYMETA.yml", "MYMETA.yml exists" );
  ok( -e "MYMETA.json", "MYMETA.json exists" );
  my $mymeta = Parse::CPAN::Meta->load_file('MYMETA.yml');
  my $mymeta2 = Parse::CPAN::Meta->load_file('MYMETA.json');
  isnt(   $meta->{requires}{'File::Spec'},
        $mymeta->{requires}{'File::Spec'},
        "MYMETA.yml requires differs from META.yml"
  );
  isnt(   $meta2->{prereqs}{runtime}{requires}{'File::Spec'},
        $mymeta2->{prereqs}{runtime}{requires}{'File::Spec'},
        "MYMETA.json requires differs from META.json"
  );
  $output = stdout_stderr_of sub { $dist->run_build('realclean') };
  like( $output, qr/Cleaning up/, "Ran realclean");
  ok( ! -e 'Build', "Build file removed" );
  ok( ! -e 'MYMETA.yml', "MYMETA file removed" );
  ok( ! -e 'MYMETA.json', "MYMETA file removed" );

# manually change META and check that changes are preserved
  $meta->{author} = ['John Gault'];
  $meta2->{author} = ['John Gault'];
  ok( CPAN::Meta::YAML->new($meta)->write('META.yml'),
    "Wrote manually modified META.yml" );
  ok( CPAN::Meta->new( $meta2 )->save('META.json'),
    "Wrote manually modified META.json" );

$output = stdout_of sub { $dist->run_build_pl };
  like($output, qr/Created MYMETA\.yml and MYMETA\.json/,
    "Ran Build.PL"
  );
  $mymeta = Parse::CPAN::Meta->load_file('MYMETA.yml');
  $mymeta2 = Parse::CPAN::Meta->load_file('MYMETA.json');
  is_deeply( $mymeta->{author}, [ 'John Gault' ],
    "MYMETA.yml preserved META.yml modifications"
  );
  is_deeply( $mymeta2->{author}, [ 'John Gault' ],
    "MYMETA.json preserved META.json modifications"
  );

}

#########################

# Test cleanup
{
  my $output = stdout_stderr_of sub { $dist->run_build('distcheck') };
  like($output, qr/Creating a temporary 'MANIFEST.SKIP'/,
    "MANIFEST.SKIP created for distcheck"
  );
  unlike($output, qr/MYMETA/,
    "MYMETA not flagged by distcheck"
  );
}

{
  my $output = stdout_of sub { $dist->run_build_pl };
  like($output, qr/Created MYMETA\.yml and MYMETA\.json/,
    "Ran Build.PL and saw MYMETA.yml creation message"
  );
  $output = stdout_stderr_of sub { $dist->run_build('distclean') };
  ok( ! -f 'MYMETA.yml', "No MYMETA.yml after distclean" );
  ok( ! -f 'MYMETA.json', "No MYMETA.json after distclean" );
  ok( ! -f 'MANIFEST.SKIP', "No MANIFEST.SKIP after distclean" );
}