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

#!/usr/bin/perl -w

# This is a test of the verification of the arguments to
# WriteMakefile.

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

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

use TieOut;
use MakeMaker::Test::Utils;
use MakeMaker::Test::Setup::BFD;

use ExtUtils::MakeMaker;

use File::Temp qw[tempdir];
my $tmpdir = tempdir( DIR => 't', CLEANUP => 1 );
chdir $tmpdir;

perl_lib();

ok( setup_recurs(), 'setup' );
END {
    ok( chdir File::Spec->updir );
    ok( teardown_recurs(), 'teardown' );
}

ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) ||
  diag("chdir failed: $!");

{
    ok( my $stdout = tie *STDOUT, 'TieOut' );
    my $warnings = '';
    local $SIG{__WARN__} = sub {
        $warnings .= join '', @_;
    };

my $mm;

eval {
        $mm = WriteMakefile(
            NAME            => 'Big::Dummy',
            VERSION_FROM    => 'lib/Big/Dummy.pm',
            MAN3PODS        => ' ', # common mistake
        );
    };

is( $warnings, <<VERIFY );
WARNING: MAN3PODS takes a HASH reference not a string/number.
         Please inform the author.
VERIFY

$warnings = '';
    eval {
        $mm = WriteMakefile(
            NAME            => 'Big::Dummy',
            VERSION_FROM    => 'lib/Big/Dummy.pm',
            AUTHOR          => sub {},
        );
    };

is( $warnings, <<VERIFY );
WARNING: AUTHOR takes a ARRAY reference not a CODE reference.
         Please inform the author.
VERIFY

# LIBS accepts *both* a string or an array ref.  The first cut of
    # our verification did not take this into account.
    $warnings = '';
    $mm = WriteMakefile(
        NAME            => 'Big::Dummy',
        VERSION_FROM    => 'lib/Big/Dummy.pm',
        LIBS            => '-lwibble -lwobble',
    );

# We'll get warnings about the bogus libs, that's ok.
    unlike( $warnings, qr/WARNING: .* takes/ );
    is_deeply( $mm->{LIBS}, ['-lwibble -lwobble'] );

$warnings = '';
    $mm = WriteMakefile(
        NAME            => 'Big::Dummy',
        VERSION_FROM    => 'lib/Big/Dummy.pm',
        LIBS            => ['-lwibble', '-lwobble'],
    );

# We'll get warnings about the bogus libs, that's ok.
    unlike( $warnings, qr/WARNING: .* takes/ );
    is_deeply( $mm->{LIBS}, ['-lwibble', '-lwobble'] );

$warnings = '';
    eval {
        $mm = WriteMakefile(
            NAME            => 'Big::Dummy',
            VERSION_FROM    => 'lib/Big/Dummy.pm',
            LIBS            => { wibble => "wobble" },
        );
    };

# We'll get warnings about the bogus libs, that's ok.
    like( $warnings, qr{^WARNING: LIBS takes a ARRAY reference or string/number not a HASH reference}m );

$warnings = '';
    $mm = WriteMakefile(
        NAME            => 'Big::Dummy',
        WIBBLE          => 'something',
        wump            => { foo => 42 },
    );

like( $warnings, qr{^WARNING: WIBBLE is not a known parameter.\n}m );
    like( $warnings, qr{^WARNING: wump is not a known parameter.\n}m );

is( $mm->{WIBBLE}, 'something' );
    is_deeply( $mm->{wump}, { foo => 42 } );

# Test VERSION
    $warnings = '';
    eval {
        $mm = WriteMakefile(
            NAME       => 'Big::Dummy',
            VERSION    => [1,2,3],
        );
    };
    like( $warnings, qr{^WARNING: VERSION takes a version object or string/number} );

$warnings = '';
    eval {
        $mm = WriteMakefile(
            NAME       => 'Big::Dummy',
            VERSION    => 1.002_003,
        );
    };
    is( $warnings, '' );
    is( $mm->{VERSION}, '1.002003' );

$warnings = '';
    eval {
        $mm = WriteMakefile(
            NAME       => 'Big::Dummy',
            VERSION    => '1.002_003',
        );
    };
    is( $warnings, '' );
    is( $mm->{VERSION}, '1.002_003' );

$warnings = '';
    eval {
        $mm = WriteMakefile(
            NAME       => 'Big::Dummy',
            VERSION    => bless {}, "Some::Class",
        );
    };
    like( $warnings, '/^WARNING: VERSION takes a version object or string/number not a Some::Class object/' );

SKIP: {
        skip("Can't test version objects", 8) unless eval { require version };
        version->import;

my $version = version->new("1.2.3");
        $warnings = '';
        ok eval {
            $mm = WriteMakefile(
                NAME       => 'Big::Dummy',
                VERSION    => $version,
            );
        } || diag $@;
        is( $warnings, '' );
        isa_ok( $mm->{VERSION}, 'version' );
        is( $mm->{VERSION}, $version );

$warnings = '';
        $version = qv('1.2.3');
        ok eval {
            $mm = WriteMakefile(
                NAME       => 'Big::Dummy',
                VERSION    => $version,
            );
        } || diag $@;
        is( $warnings, '' );
        isa_ok( $mm->{VERSION}, 'version' );
        is( $mm->{VERSION}, $version );
    }

# DISTNAME
    $warnings = '';
    eval {
        $mm = WriteMakefile(
            NAME       => 'Big::Dummy',
            VERSION    => '1.00',
            DISTNAME   => "Hooballa",
        );
    };
    is( $warnings, '' );
    is( $mm->{DISTNAME},  "Hooballa" );
    is( $mm->{DISTVNAME}, $Is_VMS ? "Hooballa-1_00" : "Hooballa-1.00" );

# DISTVNAME (rt.cpan.org 43217)
    $warnings = '';
    eval {
        $mm = WriteMakefile(
            NAME       => 'Big::Dummy',
            VERSION    => 1.00,
            DISTVNAME  => "Hooballoo",
        );
    };
    is( $warnings, '' );
    is( $mm->{DISTVNAME}, 'Hooballoo' );

# AUTHOR / scalar
    $warnings = '';
    eval {
        $mm = WriteMakefile(
            NAME       => 'Big::Dummy',
            VERSION    => '1.00',
            AUTHOR     => "test",
        );
    };
    is( $warnings, '' );
    is_deeply( $mm->{AUTHOR},  ["test"] );

# AUTHOR / array
    $warnings = '';
    eval {
        $mm = WriteMakefile(
            NAME       => 'Big::Dummy',
            VERSION    => '1.00',
            AUTHOR     => ["test1", "test2"],
        );
    };
    is( $warnings, '' );
    is_deeply( $mm->{AUTHOR},  ["test1","test2"] );

# PERL_MM_OPT
    {
      local $ENV{PERL_MM_OPT} = 'CCFLAGS="-Wl,-rpath -Wl,/foo/bar/lib" LIBS="-lwibble -lwobble"';
      $mm = WriteMakefile(
          NAME            => 'Big::Dummy',
          VERSION    => '1.00',
      );

like( $mm->{CCFLAGS}, qr{-Wl,-rpath -Wl,/foo/bar/lib}, 'parse_args() splits like shell' );
      is_deeply( $mm->{LIBS}, ['-lwibble -lwobble'], 'parse_args() splits like shell' );
    }

# PERL_MM_OPT
    {
      local $ENV{PERL_MM_OPT} = 'INSTALL_BASE=/how/we/have/not/broken/local/lib';
      $mm = WriteMakefile(
          NAME            => 'Big::Dummy',
          VERSION    => '1.00',
      );

is( $mm->{INSTALL_BASE}, "/how/we/have/not/broken/local/lib", 'parse_args() splits like shell' );
    }

# PERL_MM_OPT
    {
      local $ENV{PERL_MM_OPT} = 'INSTALL_BASE="/Users/miyagawa/tmp/car1 foo/foo bar"';
      $mm = WriteMakefile(
          NAME            => 'Big::Dummy',
          VERSION    => '1.00',
      );

is( $mm->{INSTALL_BASE}, "/Users/miyagawa/tmp/car1 foo/foo bar", 'parse_args() splits like shell' );
    }

}