This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to ExtUtils::MakeMaker 6.25
[perl5.git] / lib / ExtUtils / t / MM_Unix.t
index efd047a..f9b07f8 100644 (file)
@@ -1,13 +1,26 @@
-#!./perl -w
-
-# 2001-12-16 Tels first version
+#!/usr/bin/perl -w
 
 BEGIN {
 
 BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
+    if( $ENV{PERL_CORE} ) {
+        chdir 't';
+        @INC = '../lib';
+    }
+    else {
+        unshift @INC, 't/lib';
+    }
 }
 }
+chdir 't';
+
+BEGIN { 
+    use Test::More; 
 
 
-BEGIN { use Test::More; plan tests => 90; }
+    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' ); }
 
 
 BEGIN { use_ok( 'ExtUtils::MM_Unix' ); }
 
@@ -19,13 +32,12 @@ 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)
 # 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_Mac   || 0)
        + ($ExtUtils::MM_Unix::Is_Win32 || 0) 
        + ($ExtUtils::MM_Unix::Is_Dos   || 0)
        + ($ExtUtils::MM_Unix::Is_VMS   || 0); 
 ok ( $os <= 1,  'There can be only one (or none)');
 
        + ($ExtUtils::MM_Unix::Is_Win32 || 0) 
        + ($ExtUtils::MM_Unix::Is_Dos   || 0)
        + ($ExtUtils::MM_Unix::Is_VMS   || 0); 
 ok ( $os <= 1,  'There can be only one (or none)');
 
-is ($ExtUtils::MM_Unix::VERSION, '1.12604', 'Should be that version');
+cmp_ok ($ExtUtils::MM_Unix::VERSION, '>=', '1.12606', 'Should be at least version 1.12606');
 
 # when the following calls like canonpath, catdir etc are replaced by
 # File::Spec calls, the test's become a bit pointless
 
 # when the following calls like canonpath, catdir etc are replaced by
 # File::Spec calls, the test's become a bit pointless
@@ -40,6 +52,12 @@ is ($class->catdir('xx','xx'), File::Spec->catdir('xx','xx'),
 is ($class->catfile('xx','xx','yy'), File::Spec->catfile('xx','xx','yy'),
      'catfile(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/updir curdir rootdir/)
   {
   is ($class->$_(), File::Spec->$_(), $_ );
@@ -53,60 +71,42 @@ foreach ( qw /
   const_loadlibs
   constants
   depend
   const_loadlibs
   constants
   depend
-  dir_target
   dist
   dist_basics
   dist_ci
   dist_core
   dist
   dist_basics
   dist_ci
   dist_core
-  dist_dir
+  distdir
   dist_test
   dlsyms
   dynamic
   dynamic_bs
   dynamic_lib
   exescan
   dist_test
   dlsyms
   dynamic
   dynamic_bs
   dynamic_lib
   exescan
-  export_list
   extliblist
   extliblist
-  file_name_is_absolute
   find_perl
   fixin
   force
   guess_name
   find_perl
   fixin
   force
   guess_name
-  has_link_code
-  htmlifypods
   init_dirscan
   init_main
   init_others
   install
   installbin
   init_dirscan
   init_main
   init_others
   install
   installbin
-  libscan
   linkext
   lsdir
   macro
   makeaperl
   makefile
   manifypods
   linkext
   lsdir
   macro
   makeaperl
   makefile
   manifypods
-  maybe_command
-  maybe_command_in_dirs
   needs_linking
   needs_linking
-  nicetext
-  parse_version
   pasthru
   pasthru
-  path
-  perl_archive
-  perl_archive_after
-  perl_script
   perldepend
   pm_to_blib
   perldepend
   pm_to_blib
-  post_constants
-  post_initialize
-  postamble
   ppd
   prefixify
   processPL
   quote_paren
   realclean
   ppd
   prefixify
   processPL
   quote_paren
   realclean
-  replace_manpage_separator
   static
   static_lib
   staticmake
   static
   static_lib
   staticmake
@@ -123,10 +123,110 @@ foreach ( qw /
   xs_c
   xs_cpp
   xs_o
   xs_c
   xs_cpp
   xs_o
-  xsubpp_version 
   / )
   {
   / )
   {
-  ok ($class->can ($_), "can $_");
+      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;
+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";
+
+###############################################################################
+# nicetext (dummy method)
+
+is ($t->nicetext('LOTR'),'LOTR','nicetext');
+
+
+###############################################################################
+# perl_script (on unix any ordinary, readable file)
+
+my $self_name = $ENV{PERL_CORE} ? '../lib/ExtUtils/t/MM_Unix.t' 
+                                 : 'MM_Unix.t';
+is ($t->perl_script($self_name),$self_name, 'we pass as a perl_script()');
+
+###############################################################################
+# perm_rw perm_rwx
+
+$t->init_PERM;
+is ($t->perm_rw(),'644', 'perm_rw() is 644');
+is ($t->perm_rwx(),'755', 'perm_rwx() 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' );
+}