1#!/usr/bin/perl -w 2 3BEGIN { 4 unshift @INC, 't/lib'; 5} 6chdir 't'; 7 8BEGIN { 9 use Test::More; 10 11 if( $^O =~ /^VMS|os2|MacOS|MSWin32|cygwin|beos|netware$/i ) { 12 plan skip_all => 'Non-Unix platform'; 13 } 14 else { 15 plan tests => 113; 16 } 17} 18 19BEGIN { use_ok( 'ExtUtils::MM_Unix' ); } 20 21use strict; 22use File::Spec; 23 24my $class = 'ExtUtils::MM_Unix'; 25 26# only one of the following can be true 27# test should be removed if MM_Unix ever stops handling other OS than Unix 28my $os = ($ExtUtils::MM_Unix::Is{OS2} || 0) 29 + ($ExtUtils::MM_Unix::Is{Win32} || 0) 30 + ($ExtUtils::MM_Unix::Is{Dos} || 0) 31 + ($ExtUtils::MM_Unix::Is{VMS} || 0); 32cmp_ok ( $os, '<=', 1, 'There can be only one (or none)'); 33 34is($ExtUtils::MM_Unix::VERSION, $ExtUtils::MakeMaker::VERSION, 'MM_Unix has a $VERSION'); 35 36# when the following calls like canonpath, catdir etc are replaced by 37# File::Spec calls, the test's become a bit pointless 38 39foreach ( qw( xx/ ./xx/ xx/././xx xx///xx) ) { 40 is ($class->canonpath($_), File::Spec->canonpath($_), "canonpath $_"); 41} 42 43is ($class->catdir('xx','xx'), File::Spec->catdir('xx','xx'), 44 'catdir(xx, xx) => xx/xx'); 45is ($class->catfile('xx','xx','yy'), File::Spec->catfile('xx','xx','yy'), 46 'catfile(xx, xx) => xx/xx'); 47 48is ($class->file_name_is_absolute('Bombdadil'), 49 File::Spec->file_name_is_absolute('Bombdadil'), 50 'file_name_is_absolute()'); 51 52is ($class->path(), File::Spec->path(), 'path() same as File::Spec->path()'); 53 54foreach (qw/updir curdir rootdir/) 55 { 56 is ($class->$_(), File::Spec->$_(), $_ ); 57 } 58 59foreach ( qw / 60 c_o 61 clean 62 const_cccmd 63 const_config 64 const_loadlibs 65 constants 66 depend 67 dist 68 dist_basics 69 dist_ci 70 dist_core 71 distdir 72 dist_test 73 dlsyms 74 dynamic 75 dynamic_bs 76 dynamic_lib 77 exescan 78 extliblist 79 find_perl 80 fixin 81 force 82 guess_name 83 init_dirscan 84 init_main 85 init_others 86 install 87 installbin 88 linkext 89 lsdir 90 macro 91 makeaperl 92 makefile 93 manifypods 94 needs_linking 95 pasthru 96 perldepend 97 pm_to_blib 98 ppd 99 prefixify 100 processPL 101 realclean 102 static 103 static_lib 104 staticmake 105 subdir_x 106 subdirs 107 test 108 test_via_harness 109 test_via_script 110 tool_autosplit 111 tool_xsubpp 112 tools_other 113 top_targets 114 writedoc 115 xs_c 116 xs_cpp 117 xs_o 118 / ) 119 { 120 can_ok($class, $_); 121 } 122 123############################################################################### 124# some more detailed tests for the methods above 125 126ok ( join (' ', $class->dist_basics()), 'distclean :: realclean distcheck'); 127 128############################################################################### 129# has_link_code tests 130 131my $t = bless { NAME => "Foo" }, $class; 132$t->{HAS_LINK_CODE} = 1; 133is ($t->has_link_code(),1,'has_link_code'); is ($t->{HAS_LINK_CODE},1); 134 135$t->{HAS_LINK_CODE} = 0; 136is ($t->has_link_code(),0); is ($t->{HAS_LINK_CODE},0); 137 138delete $t->{HAS_LINK_CODE}; delete $t->{OBJECT}; 139is ($t->has_link_code(),0); is ($t->{HAS_LINK_CODE},0); 140 141delete $t->{HAS_LINK_CODE}; $t->{OBJECT} = 1; 142is ($t->has_link_code(),1); is ($t->{HAS_LINK_CODE},1); 143 144delete $t->{HAS_LINK_CODE}; delete $t->{OBJECT}; $t->{MYEXTLIB} = 1; 145is ($t->has_link_code(),1); is ($t->{HAS_LINK_CODE},1); 146 147delete $t->{HAS_LINK_CODE}; delete $t->{MYEXTLIB}; $t->{C} = [ 'Gloin' ]; 148is ($t->has_link_code(),1); is ($t->{HAS_LINK_CODE},1); 149 150############################################################################### 151# libscan 152 153is ($t->libscan('Readme.pod'), '', 'libscan excludes base Readme.pod'); 154is ($t->libscan('README.pod'), '', 'libscan excludes base README.pod'); 155is ($t->libscan('lib/Foo/README.pod'), 'lib/Foo/README.pod', 'libscan accepts README.pod in a subdirectory'); 156is ($t->libscan('foo/RCS/bar'), '', 'libscan on RCS'); 157is ($t->libscan('CVS/bar/car'), '', 'libscan on CVS'); 158is ($t->libscan('SCCS'), '', 'libscan on SCCS'); 159is ($t->libscan('.svn/something'), '', 'libscan on Subversion'); 160is ($t->libscan('foo/b~r'), 'foo/b~r', 'libscan on file with ~'); 161is ($t->libscan('foo/RCS.pm'), 'foo/RCS.pm', 'libscan on file with RCS'); 162 163is ($t->libscan('Fatty'), 'Fatty', 'libscan on something not a VC file' ); 164 165############################################################################### 166# maybe_command 167 168open(FILE, ">command"); print FILE "foo"; close FILE; 169SKIP: { 170 skip("no separate execute mode on VOS", 2) if $^O eq "vos"; 171 172 ok !$t->maybe_command('command') ,"non executable file isn't a command"; 173 174 chmod 0755, "command"; 175 ok ($t->maybe_command('command'), "executable file is a command"); 176} 177unlink "command"; 178 179 180############################################################################### 181# perl_script (on unix any ordinary, readable file) 182 183my $self_name = 'MM_Unix.t'; 184is ($t->perl_script($self_name),$self_name, 'we pass as a perl_script()'); 185 186############################################################################### 187# PERM_RW and PERM_RWX 188 189$t->init_PERM; 190is ($t->{PERM_RW},'644', 'PERM_RW is 644'); 191is ($t->{PERM_RWX},'755', 'PERM_RWX is 755'); 192is ($t->{PERM_DIR},'755', 'PERM_DIR is 755'); 193 194 195############################################################################### 196# post_constants, postamble, post_initialize 197 198foreach (qw/ post_constants postamble post_initialize/) { 199 is ($t->$_(),'', "$_() is an empty string"); 200} 201 202############################################################################### 203# replace_manpage_separator 204 205is ($t->replace_manpage_separator('Foo/Bar'),'Foo::Bar','manpage_separator'); 206 207############################################################################### 208 209$t->init_linker; 210foreach (qw/ EXPORT_LIST PERL_ARCHIVE PERL_ARCHIVE_AFTER /) 211{ 212 ok( exists $t->{$_}, "$_ was defined" ); 213 is( $t->{$_}, '', "$_ is empty on Unix"); 214} 215 216 217{ 218 $t->{CCFLAGS} = '-DMY_THING'; 219 $t->{LIBPERL_A} = 'libperl.a'; 220 $t->{LIB_EXT} = '.a'; 221 local $t->{NEEDS_LINKING} = 1; 222 $t->cflags(); 223 224 # Brief bug where CCFLAGS was being blown away 225 like( $t->{CCFLAGS}, qr/\-DMY_THING/, 'cflags retains CCFLAGS' ); 226} 227 228{ 229 my @targv = ("var=don't forget about spaces and single quotes"); 230 local @ARGV = @targv; 231 my $t = bless { NAME => "Foo", FULLPERL => $0, DIR => [] }, $class; 232 $t->makeaperl( TARGET => "Tgt" ); 233 is_deeply( \@ARGV, \@targv, 'ARGV is not polluted by makeaperl' ); 234} 235