lib/ExtUtils/t/MM_Unix.t

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