55c29e32d847b3dda4103a4d1dd0231ae09b479c
[perl.git] / ext / ExtUtils-MakeMaker / t / MM_Unix.t
1 #!/usr/bin/perl -w
2
3 BEGIN {
4     unshift @INC, 't/lib';
5 }
6 chdir 't';
7
8 BEGIN { 
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 => 110;
16     }
17 }
18
19 BEGIN { use_ok( 'ExtUtils::MM_Unix' ); }
20
21 use strict;
22 use File::Spec;
23
24 my $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
28 my $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); 
32 cmp_ok ( $os, '<=', 1,  'There can be only one (or none)');
33
34 is($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
39 foreach ( qw( xx/ ./xx/ xx/././xx xx///xx) ) {
40     is ($class->canonpath($_), File::Spec->canonpath($_), "canonpath $_");
41 }
42
43 is ($class->catdir('xx','xx'), File::Spec->catdir('xx','xx'),
44      'catdir(xx, xx) => xx/xx');
45 is ($class->catfile('xx','xx','yy'), File::Spec->catfile('xx','xx','yy'),
46      'catfile(xx, xx) => xx/xx');
47
48 is ($class->file_name_is_absolute('Bombdadil'), 
49     File::Spec->file_name_is_absolute('Bombdadil'),
50      'file_name_is_absolute()');
51
52 is ($class->path(), File::Spec->path(), 'path() same as File::Spec->path()');
53
54 foreach (qw/updir curdir rootdir/)
55   {
56   is ($class->$_(), File::Spec->$_(), $_ );
57   }
58
59 foreach ( 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   quote_paren
102   realclean
103   static
104   static_lib
105   staticmake
106   subdir_x
107   subdirs
108   test
109   test_via_harness
110   test_via_script
111   tool_autosplit
112   tool_xsubpp
113   tools_other
114   top_targets
115   writedoc
116   xs_c
117   xs_cpp
118   xs_o
119   / )
120   {
121       can_ok($class, $_);
122   }
123
124 ###############################################################################
125 # some more detailed tests for the methods above
126
127 ok ( join (' ', $class->dist_basics()), 'distclean :: realclean distcheck');
128
129 ###############################################################################
130 # has_link_code tests
131
132 my $t = bless { NAME => "Foo" }, $class;
133 $t->{HAS_LINK_CODE} = 1; 
134 is ($t->has_link_code(),1,'has_link_code'); is ($t->{HAS_LINK_CODE},1);
135
136 $t->{HAS_LINK_CODE} = 0;
137 is ($t->has_link_code(),0); is ($t->{HAS_LINK_CODE},0);
138
139 delete $t->{HAS_LINK_CODE}; delete $t->{OBJECT};
140 is ($t->has_link_code(),0); is ($t->{HAS_LINK_CODE},0);
141
142 delete $t->{HAS_LINK_CODE}; $t->{OBJECT} = 1;
143 is ($t->has_link_code(),1); is ($t->{HAS_LINK_CODE},1);
144
145 delete $t->{HAS_LINK_CODE}; delete $t->{OBJECT}; $t->{MYEXTLIB} = 1;
146 is ($t->has_link_code(),1); is ($t->{HAS_LINK_CODE},1);
147
148 delete $t->{HAS_LINK_CODE}; delete $t->{MYEXTLIB}; $t->{C} = [ 'Gloin' ];
149 is ($t->has_link_code(),1); is ($t->{HAS_LINK_CODE},1);
150
151 ###############################################################################
152 # libscan
153
154 is ($t->libscan('foo/RCS/bar'),     '', 'libscan on RCS');
155 is ($t->libscan('CVS/bar/car'),     '', 'libscan on CVS');
156 is ($t->libscan('SCCS'),            '', 'libscan on SCCS');
157 is ($t->libscan('.svn/something'),  '', 'libscan on Subversion');
158 is ($t->libscan('foo/b~r'),         'foo/b~r',    'libscan on file with ~');
159 is ($t->libscan('foo/RCS.pm'),      'foo/RCS.pm', 'libscan on file with RCS');
160
161 is ($t->libscan('Fatty'), 'Fatty', 'libscan on something not a VC file' );
162
163 ###############################################################################
164 # maybe_command
165
166 open(FILE, ">command"); print FILE "foo"; close FILE;
167 SKIP: {
168     skip("no separate execute mode on VOS", 2) if $^O eq "vos";
169
170     ok !$t->maybe_command('command') ,"non executable file isn't a command";
171
172     chmod 0755, "command";
173     ok ($t->maybe_command('command'),        "executable file is a command");
174 }
175 unlink "command";
176
177
178 ###############################################################################
179 # perl_script (on unix any ordinary, readable file)
180
181 my $self_name = 'MM_Unix.t';
182 is ($t->perl_script($self_name),$self_name, 'we pass as a perl_script()');
183
184 ###############################################################################
185 # PERM_RW and PERM_RWX
186
187 $t->init_PERM;
188 is ($t->{PERM_RW},'644', 'PERM_RW is 644');
189 is ($t->{PERM_RWX},'755', 'PERM_RWX is 755');
190 is ($t->{PERM_DIR},'755', 'PERM_DIR is 755');
191
192
193 ###############################################################################
194 # post_constants, postamble, post_initialize
195
196 foreach (qw/ post_constants postamble post_initialize/) {
197   is ($t->$_(),'', "$_() is an empty string");
198 }
199
200 ###############################################################################
201 # replace_manpage_separator 
202
203 is ($t->replace_manpage_separator('Foo/Bar'),'Foo::Bar','manpage_separator'); 
204
205 ###############################################################################
206
207 $t->init_linker;
208 foreach (qw/ EXPORT_LIST PERL_ARCHIVE PERL_ARCHIVE_AFTER /)
209 {
210     ok( exists $t->{$_}, "$_ was defined" );
211     is( $t->{$_}, '', "$_ is empty on Unix"); 
212 }
213
214
215 {
216     $t->{CCFLAGS} = '-DMY_THING';
217     $t->{LIBPERL_A} = 'libperl.a';
218     $t->{LIB_EXT}   = '.a';
219     local $t->{NEEDS_LINKING} = 1;
220     $t->cflags();
221
222     # Brief bug where CCFLAGS was being blown away
223     is( $t->{CCFLAGS}, '-DMY_THING',    'cflags retains CCFLAGS' );
224 }
225