MM_Unix.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
BEGIN {
chdir 't';
}
else {
}
}
chdir 't';
BEGIN {
}
else {
}
}
$VERSION = '0.02';
use strict;
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
# when the following calls like canonpath, catdir etc are replaced by
# File::Spec calls, the test's become a bit pointless
{
}
'file_name_is_absolute()');
{
}
foreach ( qw /
test
/ )
{
}
###############################################################################
# some more detailed tests for the methods above
###############################################################################
# has_link_code tests
$t->{HAS_LINK_CODE} = 1;
$t->{HAS_LINK_CODE} = 0;
delete $t->{HAS_LINK_CODE}; delete $t->{OBJECT};
delete $t->{HAS_LINK_CODE}; $t->{OBJECT} = 1;
delete $t->{HAS_LINK_CODE}; delete $t->{OBJECT}; $t->{MYEXTLIB} = 1;
###############################################################################
# libscan
###############################################################################
# maybe_command
###############################################################################
# nicetext (dummy method)
###############################################################################
# parse_version
my %versions = (
'$VERSION = 0.0' => 0.0,
'$VERSION = -1.0' => -1.0,
'$VERSION = undef' => 'undef',
'$wibble = 1.0' => 'undef',
);
}
###############################################################################
# perl_script (on unix any ordinary, readable file)
###############################################################################
# perm_rw perm_rwx
$t->init_PERM;
###############################################################################
# post_constants, postamble, post_initialize
foreach (qw/ post_constants postamble post_initialize/)
{
}
###############################################################################
# replace_manpage_separator
###############################################################################
$t->init_linker;
foreach (qw/ EXPORT_LIST PERL_ARCHIVE PERL_ARCHIVE_AFTER /)
{
}
{
local $t->{NEEDS_LINKING} = 1;
# Brief bug where CCFLAGS was being blown away
}