This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[PATCH] more MM_Unix.t tests
[perl5.git] / lib / ExtUtils / t / MM_Unix.t
1 #!./perl -w
2
3 # 2001-12-16 Tels first version
4 # 2002-01-13 Tels 0.02 added some tests for various functions, added Andreas
5 #                      fix to the version test (>= vs ==)
6
7 BEGIN {
8     chdir 't' if -d 't';
9     @INC = '../lib';
10 }
11
12 BEGIN { 
13     use Test::More; 
14
15     if( $^O =~ /^VMS|os2|MacOS|MSWin32|cygwin$/ ) {
16         plan skip_all => 'Non-Unix platform';
17     }
18     else {
19         plan tests => 108; 
20     }
21 }
22
23 BEGIN { use_ok( 'ExtUtils::MM_Unix' ); }
24
25 $VERSION = '0.02';
26 use strict;
27 use File::Spec;
28
29 my $class = 'ExtUtils::MM_Unix';
30
31 # only one of the following can be true
32 # test should be removed if MM_Unix ever stops handling other OS than Unix
33 my $os =  ($ExtUtils::MM_Unix::Is_OS2   || 0)
34         + ($ExtUtils::MM_Unix::Is_Mac   || 0)
35         + ($ExtUtils::MM_Unix::Is_Win32 || 0) 
36         + ($ExtUtils::MM_Unix::Is_Dos   || 0)
37         + ($ExtUtils::MM_Unix::Is_VMS   || 0); 
38 ok ( $os <= 1,  'There can be only one (or none)');
39
40 cmp_ok ($ExtUtils::MM_Unix::VERSION, '>=', '1.12606', 'Should be at least version 1.12606');
41
42 # when the following calls like canonpath, catdir etc are replaced by
43 # File::Spec calls, the test's become a bit pointless
44
45 foreach ( qw( xx/ ./xx/ xx/././xx xx///xx) )
46   {
47   is ($class->canonpath($_), File::Spec->canonpath($_), "canonpath $_");
48   }
49
50 is ($class->catdir('xx','xx'), File::Spec->catdir('xx','xx'),
51      'catdir(xx, xx) => xx/xx');
52 is ($class->catfile('xx','xx','yy'), File::Spec->catfile('xx','xx','yy'),
53      'catfile(xx, xx) => xx/xx');
54
55 is ($class->file_name_is_absolute('Bombdadil'), 
56     File::Spec->file_name_is_absolute('Bombdadil'),
57      'file_name_is_absolute()');
58
59 is ($class->path(), File::Spec->path(), 'path() same as File::Spec->path()');
60
61 foreach (qw/updir curdir rootdir/)
62   {
63   is ($class->$_(), File::Spec->$_(), $_ );
64   }
65
66 foreach ( qw /
67   c_o
68   clean
69   const_cccmd
70   const_config
71   const_loadlibs
72   constants
73   depend
74   dir_target
75   dist
76   dist_basics
77   dist_ci
78   dist_core
79   dist_dir
80   dist_test
81   dlsyms
82   dynamic
83   dynamic_bs
84   dynamic_lib
85   exescan
86   export_list
87   extliblist
88   find_perl
89   fixin
90   force
91   guess_name
92   htmlifypods
93   init_dirscan
94   init_main
95   init_others
96   install
97   installbin
98   linkext
99   lsdir
100   macro
101   makeaperl
102   makefile
103   manifypods
104   maybe_command_in_dirs
105   needs_linking
106   pasthru
107   perldepend
108   pm_to_blib
109   ppd
110   prefixify
111   processPL
112   quote_paren
113   realclean
114   static
115   static_lib
116   staticmake
117   subdir_x
118   subdirs
119   test
120   test_via_harness
121   test_via_script
122   tool_autosplit
123   tool_xsubpp
124   tools_other
125   top_targets
126   writedoc
127   xs_c
128   xs_cpp
129   xs_o
130   xsubpp_version 
131   / )
132   {
133   ok ($class->can ($_), "can $_");
134   }
135
136 ###############################################################################
137 # some more detailed tests for the methods above
138
139 ok ( join (' ', $class->dist_basics()), 'distclean :: realclean distcheck');
140
141 ###############################################################################
142 # has_link_code tests
143
144 my $t = {}; bless $t,$class;
145 $t->{HAS_LINK_CODE} = 1; 
146 is ($t->has_link_code(),1,'has_link_code'); is ($t->{HAS_LINK_CODE},1);
147
148 $t->{HAS_LINK_CODE} = 0;
149 is ($t->has_link_code(),0); is ($t->{HAS_LINK_CODE},0);
150
151 delete $t->{HAS_LINK_CODE}; delete $t->{OBJECT};
152 is ($t->has_link_code(),0); is ($t->{HAS_LINK_CODE},0);
153
154 delete $t->{HAS_LINK_CODE}; $t->{OBJECT} = 1;
155 is ($t->has_link_code(),1); is ($t->{HAS_LINK_CODE},1);
156
157 delete $t->{HAS_LINK_CODE}; delete $t->{OBJECT}; $t->{MYEXTLIB} = 1;
158 is ($t->has_link_code(),1); is ($t->{HAS_LINK_CODE},1);
159
160 delete $t->{HAS_LINK_CODE}; delete $t->{MYEXTLIB}; $t->{C} = [ 'Gloin' ];
161 is ($t->has_link_code(),1); is ($t->{HAS_LINK_CODE},1);
162
163 ###############################################################################
164 # libscan
165
166 is ($t->libscan('RCS'),'','libscan on RCS');
167 is ($t->libscan('CVS'),'','libscan on CVS');
168 is ($t->libscan('SCCS'),'','libscan on SCCS');
169 is ($t->libscan('Fatty'),'Fatty','libscan on something not RCS, CVS or SCCS');
170
171 ###############################################################################
172 # maybe_command
173
174 is ($t->maybe_command('blargel'),undef,"'blargel' isn't a command");
175
176 ###############################################################################
177 # nicetext (dummy method)
178
179 is ($t->nicetext('LOTR'),'LOTR','nicetext');
180
181 ###############################################################################
182 # parse_version
183
184 my $self_name = '../lib/ExtUtils/t/MM_Unix.t';
185
186 is ($t->parse_version($self_name),'0.02',
187   'parse_version on ourself');
188
189 ###############################################################################
190 # perl_script (on unix any ordinary, readable file)
191
192 is ($t->perl_script($self_name),$self_name, 'we pass as a perl_script()');
193
194 ###############################################################################
195 # perm_rw perm_rwx
196
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 # export_list, perl_archive, perl_archive_after
215
216 foreach (qw/ export_list perl_archive perl_archive_after/)
217   {
218   is ($t->$_(),'',"$_() is empty string on Unix"); 
219   }
220
221