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 => 110;
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  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
127ok ( join (' ', $class->dist_basics()), 'distclean :: realclean distcheck');
128
129###############################################################################
130# has_link_code tests
131
132my $t = bless { NAME => "Foo" }, $class;
133$t->{HAS_LINK_CODE} = 1;
134is ($t->has_link_code(),1,'has_link_code'); is ($t->{HAS_LINK_CODE},1);
135
136$t->{HAS_LINK_CODE} = 0;
137is ($t->has_link_code(),0); is ($t->{HAS_LINK_CODE},0);
138
139delete $t->{HAS_LINK_CODE}; delete $t->{OBJECT};
140is ($t->has_link_code(),0); is ($t->{HAS_LINK_CODE},0);
141
142delete $t->{HAS_LINK_CODE}; $t->{OBJECT} = 1;
143is ($t->has_link_code(),1); is ($t->{HAS_LINK_CODE},1);
144
145delete $t->{HAS_LINK_CODE}; delete $t->{OBJECT}; $t->{MYEXTLIB} = 1;
146is ($t->has_link_code(),1); is ($t->{HAS_LINK_CODE},1);
147
148delete $t->{HAS_LINK_CODE}; delete $t->{MYEXTLIB}; $t->{C} = [ 'Gloin' ];
149is ($t->has_link_code(),1); is ($t->{HAS_LINK_CODE},1);
150
151###############################################################################
152# libscan
153
154is ($t->libscan('foo/RCS/bar'),     '', 'libscan on RCS');
155is ($t->libscan('CVS/bar/car'),     '', 'libscan on CVS');
156is ($t->libscan('SCCS'),            '', 'libscan on SCCS');
157is ($t->libscan('.svn/something'),  '', 'libscan on Subversion');
158is ($t->libscan('foo/b~r'),         'foo/b~r',    'libscan on file with ~');
159is ($t->libscan('foo/RCS.pm'),      'foo/RCS.pm', 'libscan on file with RCS');
160
161is ($t->libscan('Fatty'), 'Fatty', 'libscan on something not a VC file' );
162
163###############################################################################
164# maybe_command
165
166open(FILE, ">command"); print FILE "foo"; close FILE;
167SKIP: {
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}
175unlink "command";
176
177
178###############################################################################
179# perl_script (on unix any ordinary, readable file)
180
181my $self_name = 'MM_Unix.t';
182is ($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;
188is ($t->{PERM_RW},'644', 'PERM_RW is 644');
189is ($t->{PERM_RWX},'755', 'PERM_RWX is 755');
190is ($t->{PERM_DIR},'755', 'PERM_DIR is 755');
191
192
193###############################################################################
194# post_constants, postamble, post_initialize
195
196foreach (qw/ post_constants postamble post_initialize/) {
197  is ($t->$_(),'', "$_() is an empty string");
198}
199
200###############################################################################
201# replace_manpage_separator
202
203is ($t->replace_manpage_separator('Foo/Bar'),'Foo::Bar','manpage_separator');
204
205###############################################################################
206
207$t->init_linker;
208foreach (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
226