Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
lib	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
testdata	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
00compile.t	929 B	-r--r--r--	2014-12-27 11:48
01perl_bugs.t	539 B	-r--r--r--	2014-12-27 11:48
FIRST_MAKEFILE.t	808 B	-r--r--r--	2014-12-27 11:49
INST.t	4.72 KB	-r--r--r--	2014-12-27 11:48
INSTALL_BASE.t	2.01 KB	-r--r--r--	2014-12-27 11:49
INST_PREFIX.t	9.07 KB	-r--r--r--	2014-12-27 11:48
Liblist.t	670 B	-r--r--r--	2014-12-27 11:48
META_for_testing.json	1.39 KB	-r--r--r--	2014-12-27 11:48
META_for_testing.yml	839 B	-r--r--r--	2014-12-27 11:48
META_for_testing_tricky_version.yml	574 B	-r--r--r--	2014-12-27 11:48
MM_Any.t	747 B	-r--r--r--	2014-12-27 11:48
MM_BeOS.t	1.04 KB	-r--r--r--	2014-12-27 11:48
MM_Cygwin.t	3.2 KB	-r--r--r--	2014-12-27 11:48
MM_NW5.t	7.68 KB	-r--r--r--	2014-12-27 11:48
MM_OS2.t	6.79 KB	-r--r--r--	2014-12-27 11:48
MM_Unix.t	5.63 KB	-r--r--r--	2014-12-27 11:49
MM_VMS.t	1.62 KB	-r--r--r--	2014-12-27 11:48
MM_Win32.t	10.83 KB	-r--r--r--	2014-12-27 11:48
MakeMaker_Parameters.t	1.57 KB	-r--r--r--	2014-12-27 11:49
Mkbootstrap.t	3.91 KB	-r--r--r--	2014-12-27 11:48
PL_FILES.t	797 B	-r--r--r--	2014-12-27 11:49
VERSION_FROM.t	599 B	-r--r--r--	2014-12-27 11:48
WriteEmptyMakefile.t	655 B	-r--r--r--	2014-12-27 11:48
arch_check.t	1.92 KB	-r--r--r--	2014-12-27 11:48
backwards.t	354 B	-r--r--r--	2014-12-27 11:48
basic.t	14.61 KB	-r--r--r--	2014-12-27 11:49
build_man.t	1.65 KB	-r--r--r--	2014-12-27 11:48
cd.t	1.15 KB	-r--r--r--	2014-12-27 11:49
config.t	261 B	-r--r--r--	2014-12-27 11:48
dir_target.t	256 B	-r--r--r--	2014-12-27 11:48
echo.t	2.48 KB	-r--r--r--	2014-12-27 11:49
fix_libs.t	693 B	-r--r--r--	2014-12-27 11:48
fixin.t	2.39 KB	-r--r--r--	2014-12-27 11:48
hints.t	1.47 KB	-r--r--r--	2014-12-27 11:48
installed_file.t	933 B	-r--r--r--	2014-12-27 11:48
is_of_type.t	842 B	-r--r--r--	2014-12-27 11:48
make.t	271 B	-r--r--r--	2014-12-27 11:48
maketext_filter.t	905 B	-r--r--r--	2014-12-27 11:48
meta_convert.t	3.35 KB	-r--r--r--	2014-12-27 11:49
metafile_data.t	22.35 KB	-r--r--r--	2014-12-27 11:48
metafile_file.t	7.37 KB	-r--r--r--	2014-12-27 11:48
min_perl_version.t	6.03 KB	-r--r--r--	2014-12-27 11:49
miniperl.t	1.12 KB	-r--r--r--	2014-12-27 11:49
oneliner.t	2.07 KB	-r--r--r--	2014-12-27 11:49
parse_abstract.t	1.59 KB	-r--r--r--	2014-12-27 11:48
parse_version.t	4.78 KB	-r--r--r--	2014-12-27 11:49
pm.t	741 B	-r--r--r--	2014-12-27 11:48
pm_to_blib.t	1.51 KB	-r--r--r--	2014-12-27 11:49
pod2man.t	904 B	-r--r--r--	2014-12-27 11:48
postamble.t	1.61 KB	-r--r--r--	2014-12-27 11:49
prefixify.t	1.23 KB	-r--r--r--	2014-12-27 11:48
prereq.t	3.36 KB	-r--r--r--	2014-12-27 11:49
prereq_print.t	1.91 KB	-r--r--r--	2014-12-27 11:48
problems.t	972 B	-r--r--r--	2014-12-27 11:48
prompt.t	1.24 KB	-r--r--r--	2014-12-27 11:48
recurs.t	2.9 KB	-r--r--r--	2014-12-27 11:49
revision.t	411 B	-r--r--r--	2014-12-27 11:48
several_authors.t	3.55 KB	-r--r--r--	2014-12-27 11:49
split_command.t	1.44 KB	-r--r--r--	2014-12-27 11:48
test_boilerplate.t	389 B	-r--r--r--	2014-12-27 11:48
testlib.t	784 B	-r--r--r--	2014-12-27 11:48
writemakefile_args.t	7.01 KB	-r--r--r--	2014-12-27 11:49
xs.t	999 B	-r--r--r--	2014-12-27 11:49

Rename

BEGIN {
    unshift @INC, 't/lib';
}

use strict;
use Test::More tests => 31;

use Data::Dumper;
use File::Temp;
use Cwd;
use Parse::CPAN::Meta;

require ExtUtils::MM_Any;

sub in_dir(&;$) {
    my $code = shift;
    my $dir = shift || File::Temp->newdir;

# chdir to the new directory
    my $orig_dir = cwd();
    chdir $dir or die "Can't chdir to $dir: $!";

# Run the code, but trap the error so we can chdir back
    my $return;
    my $ok = eval { $return = $code->(); 1; };
    my $err = $@;

# chdir back
    chdir $orig_dir or die "Can't chdir to $orig_dir: $!";

# rethrow if necessary
    die $err unless $ok;

return $return;
}

sub mymeta_ok {
    my($have, $want, $name) = @_;

local $Test::Builder::Level = $Test::Builder::Level + 1;

my $have_gen = delete $have->{generated_by};
    my $want_gen = delete $want->{generated_by};
    my $have_url = delete $have->{'meta-spec'}->{url};
    my $want_url = delete $want->{'meta-spec'}->{url};

is_deeply $have, $want, $name;
    like $have_gen, qr{CPAN::Meta}, "CPAN::Meta mentioned in the generated_by";
    like $have_url, qr{CPAN::Meta::Spec}, "CPAN::Meta::Spec mentioned in meta-spec URL";

return;
}

my $new_mm = sub {
    return bless { ARGS => {@_}, @_ }, 'ExtUtils::MM_Any';
};

{
    my $mm = $new_mm->(
        DISTNAME        => 'Foo-Bar',
        VERSION         => 1.23,
        PM              => {
            "Foo::Bar"          => 'lib/Foo/Bar.pm',
        },
    );

is_deeply {$mm->metafile_data}, {
        name            => 'Foo-Bar',
        version         => 1.23,
        abstract        => 'unknown',
        author          => [],
        license         => 'unknown',
        dynamic_config  => 1,
        distribution_type       => 'module',

configure_requires      => {
            'ExtUtils::MakeMaker'       => 0,
        },
        build_requires      => {
            'ExtUtils::MakeMaker'       => 0,
        },

no_index        => {
            directory           => [qw(t inc)],
        },

generated_by => "ExtUtils::MakeMaker version $ExtUtils::MakeMaker::VERSION",
        'meta-spec'  => {
            url         => 'http://module-build.sourceforge.net/META-spec-v1.4.html',
            version     => 1.4
        },
    };

is_deeply {$mm->metafile_data({}, { no_index => { directory => [qw(foo)] } })}, {
        name            => 'Foo-Bar',
        version         => 1.23,
        abstract        => 'unknown',
        author          => [],
        license         => 'unknown',
        dynamic_config  => 1,
        distribution_type       => 'module',

configure_requires      => {
            'ExtUtils::MakeMaker'       => 0,
        },
        build_requires      => {
            'ExtUtils::MakeMaker'       => 0,
        },

no_index        => {
            directory           => [qw(t inc foo)],
        },

{
    my $mm = $new_mm->(
        DISTNAME        => 'Foo-Bar',
        VERSION         => 1.23,
        AUTHOR          => ['Some Guy'],
        PREREQ_PM       => {
            Foo                 => 2.34,
            Bar                 => 4.56,
        },
    );

is_deeply {$mm->metafile_data(
        {
            configure_requires => {
                Stuff   => 2.34
            },
            wobble      => 42
        },
        {
            no_index    => {
                package => "Thing"
            },
            wibble      => 23
        },
    )},
    {
        name            => 'Foo-Bar',
        version         => 1.23,
        abstract        => 'unknown',
        author          => ['Some Guy'],
        license         => 'unknown',
        dynamic_config  => 1,
        distribution_type       => 'script',

configure_requires      => {
            Stuff       => 2.34,
        },
        build_requires      => {
            'ExtUtils::MakeMaker'       => 0,
        },

requires       => {
            Foo                 => 2.34,
            Bar                 => 4.56,
        },

no_index        => {
            directory           => [qw(t inc)],
            package             => 'Thing',
        },

wibble  => 23,
        wobble  => 42,
    };
}

# Test MIN_PERL_VERSION meta-spec 1.4
{
    my $mm = $new_mm->(
        DISTNAME        => 'Foo-Bar',
        VERSION         => 1.23,
        PM              => {
            "Foo::Bar"          => 'lib/Foo/Bar.pm',
        },
        MIN_PERL_VERSION => 5.006,
    );

configure_requires      => {
            'ExtUtils::MakeMaker'       => 0,
        },
        build_requires      => {
            'ExtUtils::MakeMaker'       => 0,
        },

requires        => {
            perl        => '5.006',
        },

no_index        => {
            directory           => [qw(t inc)],
        },

# Test MIN_PERL_VERSION meta-spec 2.0
{
    my $mm = $new_mm->(
        DISTNAME        => 'Foo-Bar',
        VERSION         => 1.23,
        PM              => {
            "Foo::Bar"          => 'lib/Foo/Bar.pm',
        },
        MIN_PERL_VERSION => 5.006,
    );

is_deeply {
        $mm->metafile_data(
                {}, {
                'meta-spec' => {
                url     => 'http://search.cpan.org/perldoc?CPAN::Meta::Spec',
                version => 2
                } } )
    }, {
        name            => 'Foo-Bar',
        version         => 1.23,
        abstract        => 'unknown',
        author          => [],
        license         => 'unknown',
        dynamic_config  => 1,
        distribution_type       => 'module',

prereqs => {
            configure       => {
                requires    => {
                    'ExtUtils::MakeMaker'   => 0,
                },
            },
            build           => {
                requires    => {
                    'ExtUtils::MakeMaker'   => 0,
                },
            },
            runtime         => {
                requires    => {
                    'perl'  => '5.006',
                },
            },
        },

no_index        => {
            directory           => [qw(t inc)],
        },

generated_by => "ExtUtils::MakeMaker version $ExtUtils::MakeMaker::VERSION",
        'meta-spec'  => {

url     => 'http://search.cpan.org/perldoc?CPAN::Meta::Spec',
            version => 2
        },
    }, 'MIN_PERL_VERSION meta-spec 2.0';
}

# Test MIN_PERL_VERSION meta-spec 1.4
{
    my $mm = $new_mm->(
        DISTNAME        => 'Foo-Bar',
        VERSION         => 1.23,
        PM              => {
            "Foo::Bar"          => 'lib/Foo/Bar.pm',
        },
        MIN_PERL_VERSION => 5.006,
        PREREQ_PM => {
            'Foo::Bar'  => 1.23,
        },
    );

configure_requires      => {
            'ExtUtils::MakeMaker'       => 0,
        },
        build_requires      => {
            'ExtUtils::MakeMaker'       => 0,
        },

requires        => {
            perl        => '5.006',
            'Foo::Bar'  => 1.23,
        },

no_index        => {
            directory           => [qw(t inc)],
        },

# Test CONFIGURE_REQUIRES meta-spec 1.4
{
    my $mm = $new_mm->(
        DISTNAME        => 'Foo-Bar',
        VERSION         => 1.23,
        CONFIGURE_REQUIRES => {
            "Fake::Module1" => 1.01,
        },
        PM              => {
            "Foo::Bar"          => 'lib/Foo/Bar.pm',
        },
    );

configure_requires      => {
            'Fake::Module1'     => 1.01,
        },
        build_requires      => {
            'ExtUtils::MakeMaker'   => 0,
        },

no_index        => {
            directory           => [qw(t inc)],
        },

# Test CONFIGURE_REQUIRES meta-spec 2.0
{
    my $mm = $new_mm->(
        DISTNAME        => 'Foo-Bar',
        VERSION         => 1.23,
        CONFIGURE_REQUIRES => {
            "Fake::Module1" => 1.01,
        },
        PM              => {
            "Foo::Bar"      => 'lib/Foo/Bar.pm',
        },
    );

prereqs => {
            configure       => {
                requires    => {
                    'Fake::Module1'         => 1.01,
                },
            },
            build           => {
                requires    => {
                    'ExtUtils::MakeMaker'   => 0,
                },
            },
        },

no_index        => {
            directory           => [qw(t inc)],
        },

generated_by => "ExtUtils::MakeMaker version $ExtUtils::MakeMaker::VERSION",
        'meta-spec'  => {
            url         => 'http://search.cpan.org/perldoc?CPAN::Meta::Spec',
            version     => 2
        },
    },'CONFIGURE_REQUIRES meta-spec 2.0';
}

# Test BUILD_REQUIRES meta-spec 1.4
{
    my $mm = $new_mm->(
        DISTNAME        => 'Foo-Bar',
        VERSION         => 1.23,
        BUILD_REQUIRES => {
            "Fake::Module1" => 1.01,
        },
        PM              => {
            "Foo::Bar"          => 'lib/Foo/Bar.pm',
        },
    );

configure_requires      => {
            'ExtUtils::MakeMaker'   => 0,
        },
        build_requires      => {
            'Fake::Module1'         => 1.01,
        },

no_index        => {
            directory           => [qw(t inc)],
        },

# Test BUILD_REQUIRES meta-spec 2.0
{
    my $mm = $new_mm->(
        DISTNAME        => 'Foo-Bar',
        VERSION         => 1.23,
        BUILD_REQUIRES => {
            "Fake::Module1" => 1.01,
        },
        PM              => {
            "Foo::Bar"          => 'lib/Foo/Bar.pm',
        },
        META_MERGE => { "meta-spec" => { version => 2 }},
    );

prereqs => {
            configure       => {
                requires    => {
                    'ExtUtils::MakeMaker'   => 0,
                },
            },
            build           => {
                requires    => {
                    'Fake::Module1'         => 1.01,
                },
            },
        },

no_index        => {
            directory           => [qw(t inc)],
        },

# Test TEST_REQUIRES meta-spec 1.4
{
    my $mm = $new_mm->(
        DISTNAME        => 'Foo-Bar',
        VERSION         => 1.23,
        TEST_REQUIRES => {
            "Fake::Module1"     => 1.01,
        },
        PM              => {
            "Foo::Bar"          => 'lib/Foo/Bar.pm',
        },
    );

configure_requires      => {
            'ExtUtils::MakeMaker'       => 0,
        },
        build_requires      => {
            'ExtUtils::MakeMaker'       => 0,
            'Fake::Module1'             => 1.01,
        },

no_index        => {
            directory           => [qw(t inc)],
        },

# Test TEST_REQUIRES meta-spec 2.0
{
    my $mm = $new_mm->(
        DISTNAME        => 'Foo-Bar',
        VERSION         => 1.23,
        TEST_REQUIRES => {
            "Fake::Module1"     => 1.01,
        },
        PM              => {
            "Foo::Bar"          => 'lib/Foo/Bar.pm',
        },
        META_MERGE => { "meta-spec" => { version => 2 }},
    );

prereqs => {
            configure       => {
                requires    => {
                    'ExtUtils::MakeMaker'   => 0,
                },
            },
            build           => {
                requires    => {
                    'ExtUtils::MakeMaker'   => 0,
                },
            },
            test            => {
                requires    => {
                    "Fake::Module1"         => 1.01,
                },
            },
        },

no_index        => {
            directory           => [qw(t inc)],
        },

# Test _REQUIRES key priority over META_ADD

{
    my $mm = $new_mm->(
        DISTNAME        => 'Foo-Bar',
        VERSION         => 1.23,
        BUILD_REQUIRES => {
            "Fake::Module1" => 1.01,
        },
        META_ADD => (my $meta_add = { build_requires => {}, configure_requires => {} }),
        PM              => {
            "Foo::Bar"          => 'lib/Foo/Bar.pm',
        },
    );

is_deeply {$mm->metafile_data($meta_add)}, {
        name            => 'Foo-Bar',
        version         => 1.23,
        abstract        => 'unknown',
        author          => [],
        license         => 'unknown',
        dynamic_config  => 1,
        distribution_type       => 'module',

configure_requires      => { },
        build_requires          => { },

no_index        => {
            directory           => [qw(t inc)],
        },

# Yes, this is all hard coded.
    require CPAN::Meta;
    my $want_mymeta = {
        name            => 'ExtUtils-MakeMaker',
        version         => '6.57_07',
        abstract        => 'Create a module Makefile',
        author          => ['Michael G Schwern <schwern@pobox.com>'],
        license         => ['perl_5'],
        dynamic_config  => 0,

prereqs => {
            runtime => {
                requires => {
                    "DirHandle"         => 0,
                    "File::Basename"    => 0,
                    "File::Spec"        => "0.8",
                    "Pod::Man"          => 0,
                    "perl"              => "5.006",
                },
            },
            configure => {
                requires => {
                    'ExtUtils::MakeMaker'   => 0,
                },
            },
            build    => {
                requires => {
                    'Fake::Module1'       => 1.01,
                },
            },
        },

release_status => 'testing',
        resources => {
            license     =>  [ 'http://dev.perl.org/licenses/' ],
            homepage    =>  'http://makemaker.org',
            bugtracker  =>  { web => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker' },
            repository  =>  { url => 'http://github.com/Perl-Toolchain-Gang/ExtUtils-MakeMaker' },
            x_MailingList => 'makemaker@perl.org',
        },

no_index        => {
            directory           => [qw(t inc)],
            package             => ["DynaLoader", "in"],
        },

generated_by => "ExtUtils::MakeMaker version 6.5707, CPAN::Meta::Converter version 2.110580",
        'meta-spec'  => {
            url         => 'http://search.cpan.org/perldoc?CPAN::Meta::Spec',
            version     => 2,
        },
    };

mymeta_ok $mm->mymeta("t/META_for_testing.json"),
              $want_mymeta,
              'MYMETA JSON data (BUILD_REQUIRES wins)';

mymeta_ok $mm->mymeta("t/META_for_testing.yml"),
              $want_mymeta,
              'MYMETA YAML data (BUILD_REQUIRES wins)';
}

{
    my $mm = $new_mm->(
        DISTNAME            => 'Foo-Bar',
        VERSION             => 1.23,
        CONFIGURE_REQUIRES  => { "Fake::Module0" => 0.99 },
        BUILD_REQUIRES      => { "Fake::Module1" => 1.01 },
        TEST_REQUIRES       => { "Fake::Module2" => 1.23 },
    );

my $meta = $mm->mymeta('t/META_for_testing.json');
    is($meta->{configure_requires}, undef, "no configure_requires in v2 META");
    is($meta->{build_requires}, undef, "no build_requires in v2 META");
    is_deeply(
        $meta->{prereqs}{configure}{requires},
        { "Fake::Module0" => 0.99 },
        "configure requires are one thing in META v2...",
    );

is_deeply(
        $meta->{prereqs}{build}{requires},
        { "Fake::Module1" => 1.01 },
        "build requires are one thing in META v2...",
    );

is_deeply(
        $meta->{prereqs}{test}{requires},
        { "Fake::Module2" => 1.23 },
        "...and test requires are another",
    );
}

note "CPAN::Meta bug using the module version instead of the meta spec version"; {
    my $mm = $new_mm->(
        NAME      => 'GD::Barcode::Code93',
        AUTHOR    => 'Chris DiMartino',
        ABSTRACT  => 'Code 93 implementation of GD::Barcode family',
        PREREQ_PM => {
            'GD::Barcode' => 0,
            'GD'          => 0
        },
        VERSION   => '1.4',
    );

my $meta = $mm->mymeta("t/META_for_testing_tricky_version.yml");
    is $meta->{'meta-spec'}{version}, 2, "internally, our MYMETA struct is v2";

in_dir {
        $mm->write_mymeta($meta);
        ok -e "MYMETA.yml";
        ok -e "MYMETA.json";

my $meta_yml = Parse::CPAN::Meta->load_file("MYMETA.yml");
        is $meta_yml->{'meta-spec'}{version}, 1.4, "MYMETA.yml correctly downgraded to 1.4";

my $meta_json = Parse::CPAN::Meta->load_file("MYMETA.json");
        cmp_ok $meta_json->{'meta-spec'}{version}, ">=", 2, "MYMETA.json at 2 or better";
    };
}

note "A bad license string"; {
    my $mm = $new_mm->(
        DISTNAME  => 'Foo::Bar',
        VERSION   => '1.4',
        LICENSE   => 'death and retribution',
    );

in_dir {
        my $meta = $mm->mymeta;
        $mm->write_mymeta($meta);

my $meta_yml = Parse::CPAN::Meta->load_file("MYMETA.yml");
        is $meta_yml->{license}, "unknown", "in yaml";

my $meta_json = Parse::CPAN::Meta->load_file("MYMETA.json");
        is_deeply $meta_json->{license}, ["unknown"], "in json";
    };
}