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

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

BEGIN {
    use Test::More;

if( $^O =~ /^VMS|os2|MacOS|MSWin32|cygwin|beos|netware$/i ) {
        plan skip_all => 'Non-Unix platform';
    }
    else {
        plan tests => 110;
    }
}

BEGIN { use_ok( 'ExtUtils::MM_Unix' ); }

use strict;
use File::Spec;

my $class = 'ExtUtils::MM_Unix';

# only one of the following can be true
# test should be removed if MM_Unix ever stops handling other OS than Unix
my $os =  ($ExtUtils::MM_Unix::Is{OS2}   || 0)
        + ($ExtUtils::MM_Unix::Is{Win32} || 0)
        + ($ExtUtils::MM_Unix::Is{Dos}   || 0)
        + ($ExtUtils::MM_Unix::Is{VMS}   || 0);
cmp_ok ( $os, '<=', 1,  'There can be only one (or none)');

is($ExtUtils::MM_Unix::VERSION, $ExtUtils::MakeMaker::VERSION, 'MM_Unix has a $VERSION');

# when the following calls like canonpath, catdir etc are replaced by
# File::Spec calls, the test's become a bit pointless

foreach ( qw( xx/ ./xx/ xx/././xx xx///xx) ) {
    is ($class->canonpath($_), File::Spec->canonpath($_), "canonpath $_");
}

is ($class->catdir('xx','xx'), File::Spec->catdir('xx','xx'),
     'catdir(xx, xx) => xx/xx');
is ($class->catfile('xx','xx','yy'), File::Spec->catfile('xx','xx','yy'),
     'catfile(xx, xx) => xx/xx');

is ($class->file_name_is_absolute('Bombdadil'),
    File::Spec->file_name_is_absolute('Bombdadil'),
     'file_name_is_absolute()');

is ($class->path(), File::Spec->path(), 'path() same as File::Spec->path()');

foreach (qw/updir curdir rootdir/)
  {
  is ($class->$_(), File::Spec->$_(), $_ );
  }

foreach ( qw /
  c_o
  clean
  const_cccmd
  const_config
  const_loadlibs
  constants
  depend
  dist
  dist_basics
  dist_ci
  dist_core
  distdir
  dist_test
  dlsyms
  dynamic
  dynamic_bs
  dynamic_lib
  exescan
  extliblist
  find_perl
  fixin
  force
  guess_name
  init_dirscan
  init_main
  init_others
  install
  installbin
  linkext
  lsdir
  macro
  makeaperl
  makefile
  manifypods
  needs_linking
  pasthru
  perldepend
  pm_to_blib
  ppd
  prefixify
  processPL
  quote_paren
  realclean
  static
  static_lib
  staticmake
  subdir_x
  subdirs
  test
  test_via_harness
  test_via_script
  tool_autosplit
  tool_xsubpp
  tools_other
  top_targets
  writedoc
  xs_c
  xs_cpp
  xs_o
  / )
  {
      can_ok($class, $_);
  }

###############################################################################
# some more detailed tests for the methods above

ok ( join (' ', $class->dist_basics()), 'distclean :: realclean distcheck');

###############################################################################
# has_link_code tests

my $t = bless { NAME => "Foo" }, $class;
$t->{HAS_LINK_CODE} = 1;
is ($t->has_link_code(),1,'has_link_code'); is ($t->{HAS_LINK_CODE},1);

$t->{HAS_LINK_CODE} = 0;
is ($t->has_link_code(),0); is ($t->{HAS_LINK_CODE},0);

delete $t->{HAS_LINK_CODE}; delete $t->{OBJECT};
is ($t->has_link_code(),0); is ($t->{HAS_LINK_CODE},0);

delete $t->{HAS_LINK_CODE}; $t->{OBJECT} = 1;
is ($t->has_link_code(),1); is ($t->{HAS_LINK_CODE},1);

delete $t->{HAS_LINK_CODE}; delete $t->{OBJECT}; $t->{MYEXTLIB} = 1;
is ($t->has_link_code(),1); is ($t->{HAS_LINK_CODE},1);

delete $t->{HAS_LINK_CODE}; delete $t->{MYEXTLIB}; $t->{C} = [ 'Gloin' ];
is ($t->has_link_code(),1); is ($t->{HAS_LINK_CODE},1);

###############################################################################
# libscan

is ($t->libscan('foo/RCS/bar'),     '', 'libscan on RCS');
is ($t->libscan('CVS/bar/car'),     '', 'libscan on CVS');
is ($t->libscan('SCCS'),            '', 'libscan on SCCS');
is ($t->libscan('.svn/something'),  '', 'libscan on Subversion');
is ($t->libscan('foo/b~r'),         'foo/b~r',    'libscan on file with ~');
is ($t->libscan('foo/RCS.pm'),      'foo/RCS.pm', 'libscan on file with RCS');

is ($t->libscan('Fatty'), 'Fatty', 'libscan on something not a VC file' );

###############################################################################
# maybe_command

open(FILE, ">command"); print FILE "foo"; close FILE;
SKIP: {
    skip("no separate execute mode on VOS", 2) if $^O eq "vos";

ok !$t->maybe_command('command') ,"non executable file isn't a command";

chmod 0755, "command";
    ok ($t->maybe_command('command'),        "executable file is a command");
}
unlink "command";

###############################################################################
# perl_script (on unix any ordinary, readable file)

my $self_name = 'MM_Unix.t';
is ($t->perl_script($self_name),$self_name, 'we pass as a perl_script()');

###############################################################################
# PERM_RW and PERM_RWX

$t->init_PERM;
is ($t->{PERM_RW},'644', 'PERM_RW is 644');
is ($t->{PERM_RWX},'755', 'PERM_RWX is 755');
is ($t->{PERM_DIR},'755', 'PERM_DIR is 755');

###############################################################################
# post_constants, postamble, post_initialize

foreach (qw/ post_constants postamble post_initialize/) {
  is ($t->$_(),'', "$_() is an empty string");
}

###############################################################################
# replace_manpage_separator

is ($t->replace_manpage_separator('Foo/Bar'),'Foo::Bar','manpage_separator');

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

$t->init_linker;
foreach (qw/ EXPORT_LIST PERL_ARCHIVE PERL_ARCHIVE_AFTER /)
{
    ok( exists $t->{$_}, "$_ was defined" );
    is( $t->{$_}, '', "$_ is empty on Unix");
}

{
    $t->{CCFLAGS} = '-DMY_THING';
    $t->{LIBPERL_A} = 'libperl.a';
    $t->{LIB_EXT}   = '.a';
    local $t->{NEEDS_LINKING} = 1;
    $t->cflags();

# Brief bug where CCFLAGS was being blown away
    is( $t->{CCFLAGS}, '-DMY_THING',    'cflags retains CCFLAGS' );
}