This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Suggested doc enhancement(?) to Exporter.pm
[perl5.git] / lib / ExtUtils / t / MM_Unix.t
CommitLineData
c7a17d47
T
1#!./perl -w
2
3# 2001-12-16 Tels first version
4
5BEGIN {
6 chdir 't' if -d 't';
7 @INC = '../lib';
8}
9
390b6567 10BEGIN { use Test::More; plan tests => 90; }
c7a17d47
T
11
12BEGIN { use_ok( 'ExtUtils::MM_Unix' ); }
13
14use strict;
15use File::Spec;
16
17my $class = 'ExtUtils::MM_Unix';
18
19# only one of the following can be true
20# test should be removed if MM_Unix ever stops handling other OS than Unix
21my $os = ($ExtUtils::MM_Unix::Is_OS2 || 0)
22 + ($ExtUtils::MM_Unix::Is_Mac || 0)
23 + ($ExtUtils::MM_Unix::Is_Win32 || 0)
24 + ($ExtUtils::MM_Unix::Is_Dos || 0)
25 + ($ExtUtils::MM_Unix::Is_VMS || 0);
26ok ( $os <= 1, 'There can be only one (or none)');
27
28is ($ExtUtils::MM_Unix::VERSION, '1.12604', 'Should be that version');
29
30# when the following calls like canonpath, catdir etc are replaced by
31# File::Spec calls, the test's become a bit pointless
32
33foreach ( qw( xx/ ./xx/ xx/././xx xx///xx) )
34 {
35 is ($class->canonpath($_), File::Spec->canonpath($_), "canonpath $_");
36 }
37
38is ($class->catdir('xx','xx'), File::Spec->catdir('xx','xx'),
39 'catdir(xx, xx) => xx/xx');
40is ($class->catfile('xx','xx','yy'), File::Spec->catfile('xx','xx','yy'),
41 'catfile(xx, xx) => xx/xx');
42
43foreach (qw/updir curdir rootdir/)
44 {
45 is ($class->$_(), File::Spec->$_(), $_ );
46 }
47
48foreach ( qw /
49 c_o
50 clean
51 const_cccmd
52 const_config
53 const_loadlibs
54 constants
55 depend
56 dir_target
57 dist
58 dist_basics
59 dist_ci
60 dist_core
61 dist_dir
62 dist_test
63 dlsyms
64 dynamic
65 dynamic_bs
66 dynamic_lib
67 exescan
68 export_list
69 extliblist
70 file_name_is_absolute
71 find_perl
72 fixin
73 force
74 guess_name
75 has_link_code
76 htmlifypods
77 init_dirscan
78 init_main
79 init_others
80 install
81 installbin
82 libscan
83 linkext
84 lsdir
85 macro
86 makeaperl
87 makefile
88 manifypods
89 maybe_command
90 maybe_command_in_dirs
91 needs_linking
92 nicetext
93 parse_version
94 pasthru
95 path
96 perl_archive
97 perl_archive_after
98 perl_script
99 perldepend
100 pm_to_blib
101 post_constants
102 post_initialize
103 postamble
104 ppd
105 prefixify
106 processPL
107 quote_paren
108 realclean
109 replace_manpage_separator
110 static
111 static_lib
112 staticmake
113 subdir_x
114 subdirs
115 test
116 test_via_harness
117 test_via_script
118 tool_autosplit
119 tool_xsubpp
120 tools_other
121 top_targets
122 writedoc
123 xs_c
124 xs_cpp
125 xs_o
126 xsubpp_version
127 / )
128 {
129 ok ($class->can ($_), "can $_");
130 }
131
132